%siteHead(" ")
Dim GBL_ID,GBL_Name
initDatabase
If GBL_ID = 0 and GBL_Name = "" Then
If GBL_ID = 0 Then GBL_ID = GBL_UserID
GBL_CHK_TempStr = ""
If GBL_ID = 0 Then
GBL_CHK_TempStr = "找不到用户
" & VbCrLf
End If
Else
If GBL_ID <> 0 Then GBL_Name = ""
GBL_CHK_TempStr = ""
End If
If GBL_UserID < 1 Then GBL_CHK_TempStr = "
" & GBL_CHK_TempStr & ""
Else
GBL_CHK_TempStr = ""
If LookUserInfo = 0 Then Response.Write "
" & GBL_CHK_TempStr & ""
End If
Function LookUserInfo
Dim Form_UserName,Form_Pass,Form_Mail,Form_Address
Dim Form_Sex,Form_Birthday,Form_ApplyTime,Form_ICQ,Form_OICQ
Dim Form_Prevtime,Form_Userphoto,Form_UserLevel,Form_Homepage,Form_Underwrite
Dim Form_Officer,Form_Points,Form_OnlineTime
Dim Form_FaceUrl,Form_FaceWidth,Form_FaceHeight,Form_NongLiBirth,Form_UserLimit
Dim Form_AnnounceNum,Form_AnnounceTopic,Form_AnnounceGood,Form_NotSecret,Form_AnnounceNum2
Dim Form_LastDoingTime,Form_CachetValue,Form_CharmPoint,LastWriteTime
Dim Rs
If GBL_Name <> "" Then
Set Rs = Con.ExeCute("Select top 1 ID,UserName,Mail,Address,Sex,ICQ,OICQ,Userphoto,Homepage,PrintUnderwrite,birthday,NotSecret,ApplyTime,UserLevel,Officer,Points,Onlinetime,Prevtime,NongLiBirth,UserLimit,AnnounceNum,AnnounceTopic,AnnounceGood,LastDoingTime,CachetValue,CharmPoint,LastWriteTime,FaceUrl,FaceWidth,FaceHeight,AnnounceNum2 from LeadBBS_User where UserName='" & Replace(GBL_Name,"'","''") & "'")
GBL_DBNum = GBL_DBNum + 1
Else
Set Rs = Con.ExeCute("Select top 1 ID,UserName,Mail,Address,Sex,ICQ,OICQ,Userphoto,Homepage,PrintUnderwrite,birthday,NotSecret,ApplyTime,UserLevel,Officer,Points,Onlinetime,Prevtime,NongLiBirth,UserLimit,AnnounceNum,AnnounceTopic,AnnounceGood,LastDoingTime,CachetValue,CharmPoint,LastWriteTime,FaceUrl,FaceWidth,FaceHeight,AnnounceNum2 from LeadBBS_User where id=" & GBL_ID)
GBL_DBNum = GBL_DBNum + 1
End If
If Rs.Eof Then
GBL_CHK_TempStr = GBL_CHK_TempStr & "请您登陆
" & VbCrLf
LookUserInfo = 0
GBL_CHK_Flag = 0
Rs.Close
Set Rs = Nothing
Exit Function
End If
GBL_ID = cCur(Rs(0))
Form_UserName = Rs(1)
Form_Mail = Rs(2)
Form_Address = Rs(3)
Form_Sex = Rs(4)
Form_ICQ = Rs(5)
Form_OICQ = Rs(6)
Form_Userphoto = Rs(7)
Form_Homepage = Rs(8)
Form_Underwrite = Rs(9)
Form_birthday = Rs(10)
Form_NotSecret = Rs(11)
If Form_NotSecret = 1 or Form_NotSecret = True Then
Form_NotSecret = 1
Else
Form_NotSecret = 0
End If
REM 特殊数据
Form_ApplyTime = Rs(12)
Form_UserLevel = Rs(13)
Form_Officer = Rs(14)
Form_Points = Rs(15)
Form_OnlineTime = Rs(16)
Form_Prevtime = Rs(17)
Form_NongLiBirth = Rs(18)
Form_UserLimit = Rs(19)
Form_AnnounceNum = cCur(Rs(20))
Form_AnnounceTopic = cCur(Rs(21))
Form_AnnounceGood = cCur(Rs(22))
Form_LastDoingTime = Rs(23)
Form_CachetValue = Rs(24)
Form_CharmPoint = cCur(Rs(25))
LastWriteTime = cCur(Rs(26))
Dim Temp
If DEF_AllDefineFace = 1 Then
Form_FaceUrl = Rs(27)
Form_FaceWidth = Rs(28)
Form_FaceHeight = Rs(29)
End If
Form_AnnounceNum2 = Rs(30)
Rs.Close
Set Rs = Nothing
If isNull(Form_FaceUrl) Then Form_FaceUrl = ""
If DEF_AllDefineFace = 0 or Trim(Form_FaceUrl) = "" Then%>
|