?? logic_user.asp
字號:
GBL_objPubDB.AddField "SMS_ID",""
If Not GBL_objPubDB.SQLRSExecute() Then
GetUserSmsNumLogic = False
Exit Function
End If
intSms = GBL_objPubDB.intRSNum
GetUserSmsNumLogic = True
End Function
''===================================================================
'= Function : GetUserNewSmsNumLogic()
'= Time : Created At 2006-5-5
'= Input : intUserId :
'= Output : intNewSms : 新短信數
'= Return : boolean
'= Description : 用戶新短信數
'==================================================================='
Function GetUserNewSmsNumLogic(intUserId,ByRef intNewSms)
GBL_objPubDB.Clear()
GBL_objPubDB.TableName = "CLASS_SMS"
GBL_objPubDB.SQLType = "SELECT"
GBL_objPubDB.Where = "SMS_INCEPTER_ID=" & intUserId & " AND SMS_SEND_FLAG=1 AND SMS_DEL_INCEPT=0 AND SMS_VIEW_FLAG=0"
GBL_objPubDB.AddField "SMS_ID",""
If Not GBL_objPubDB.SQLRSExecute() Then
GetUserNewSmsNumLogic = False
Exit Function
End If
intNewSms = GBL_objPubDB.intRSNum
GetUserNewSmsNumLogic = True
End Function
''===================================================================
'= Function : StatisticsUserDataLogic()
'= Time : Created At 2006-5-5
'= Input : strMethod :
'= Output : strWhere : 符合條件
'= Return : boolean
'= Description : 統計用戶數據
'==================================================================='
Function StatisticsUserDataLogic(strMethod,strWhere)
Dim intNum,arrTmp,i
If strMethod = "board" Then
GBL_objPubDB.Clear()
GBL_objPubDB.AllSQL = "SELECT BOARD_USER_ID,COUNT(BOARD_USER_ID) FROM CLASS_BOARD WHERE 1=1 " & strWhere & " GROUP BY BOARD_USER_ID ORDER BY BOARD_USER_ID DESC"
If Not GBL_objPubDB.SQLRSExecute() Then
StatisticsUserDataLogic = False
Exit Function
End If
intNum = GBL_objPubDB.intRsNum
arrTmp = GBL_objPubDB.objPubRS.GetRows(-1)
For i = 0 To intNum -1
GBL_objPubDB.Clear()
GBL_objPubDB.AllSQL = "UPDATE CLASS_USER SET USER_BOARD=" & arrTmp(1,i) & " WHERE USER_ID=" & arrTmp(0,i)
If Not GBL_objPubDB.SQLRSExecute() Then
StatisticsUserDataLogic = False
Exit Function
End If
Next
End If
If strMethod = "album" Then
GBL_objPubDB.Clear()
GBL_objPubDB.AllSQL = "SELECT ALBUM_OWNER_ID,COUNT(ALBUM_OWNER_ID) FROM CLASS_ALBUM WHERE 1=1 " & strWhere & " GROUP BY ALBUM_OWNER_ID ORDER BY ALBUM_OWNER_ID DESC"
If Not GBL_objPubDB.SQLRSExecute() Then
StatisticsUserDataLogic = False
Exit Function
End If
intNum = GBL_objPubDB.intRsNum
arrTmp = GBL_objPubDB.objPubRS.GetRows(-1)
For i = 0 To intNum -1
GBL_objPubDB.Clear()
GBL_objPubDB.AllSQL = "UPDATE CLASS_USER SET USER_PHOTO=" & arrTmp(1,i) & " WHERE USER_ID=" & arrTmp(0,i)
If Not GBL_objPubDB.SQLRSExecute() Then
StatisticsUserDataLogic = False
Exit Function
End If
Next
GBL_objPubDB.Clear()
GBL_objPubDB.AllSQL = "SELECT ALBUM_REVIEW_OWNER_ID,COUNT(ALBUM_REVIEW_OWNER_ID) FROM CLASS_ALBUM_REVIEW GROUP BY ALBUM_REVIEW_OWNER_ID ORDER BY ALBUM_REVIEW_OWNER_ID DESC"
If Not GBL_objPubDB.SQLRSExecute() Then
StatisticsUserDataLogic = False
Exit Function
End If
intNum = GBL_objPubDB.intRsNum
arrTmp = GBL_objPubDB.objPubRS.GetRows(-1)
For i = 0 To intNum -1
GBL_objPubDB.Clear()
GBL_objPubDB.AllSQL = "UPDATE CLASS_USER SET USER_REVIEW=" & arrTmp(1,i) & " WHERE USER_ID=" & arrTmp(0,i)
If Not GBL_objPubDB.SQLRSExecute() Then
StatisticsUserDataLogic = False
Exit Function
End If
Next
End If
If strMethod = "forum" Then
GBL_objPubDB.Clear()
GBL_objPubDB.AllSQL = "SELECT TOPICS_OWNER_ID,COUNT(TOPICS_OWNER_ID) FROM CLASS_TOPICS WHERE 1=1 " & strWhere & " GROUP BY TOPICS_OWNER_ID ORDER BY TOPICS_OWNER_ID DESC"
If Not GBL_objPubDB.SQLRSExecute() Then
StatisticsUserDataLogic = False
Exit Function
End If
intNum = GBL_objPubDB.intRsNum
arrTmp = GBL_objPubDB.objPubRS.GetRows(-1)
For i = 0 To intNum -1
GBL_objPubDB.Clear()
GBL_objPubDB.AllSQL = "UPDATE CLASS_USER SET USER_TOPICS=" & arrTmp(1,i) & " WHERE USER_ID=" & arrTmp(0,i)
If Not GBL_objPubDB.SQLRSExecute() Then
StatisticsUserDataLogic = False
Exit Function
End If
Next
GBL_objPubDB.Clear()
GBL_objPubDB.AllSQL = "SELECT REPLY_OWNER_ID,COUNT(REPLY_OWNER_ID) FROM CLASS_REPLY GROUP BY REPLY_OWNER_ID ORDER BY REPLY_OWNER_ID DESC"
If Not GBL_objPubDB.SQLRSExecute() Then
StatisticsUserDataLogic = False
Exit Function
End If
intNum = GBL_objPubDB.intRsNum
arrTmp = GBL_objPubDB.objPubRS.GetRows(-1)
For i = 0 To intNum -1
GBL_objPubDB.Clear()
GBL_objPubDB.AllSQL = "UPDATE CLASS_USER SET USER_REPLY=" & arrTmp(1,i) & " WHERE USER_ID=" & arrTmp(0,i)
If Not GBL_objPubDB.SQLRSExecute() Then
StatisticsUserDataLogic = False
Exit Function
End If
Next
End If
If strMethod = "level" Then
GBL_objPubDB.Clear()
GBL_objPubDB.AllSQL = "UPDATE CLASS_USER SET USER_LEVEL=(USER_BOARD*" & GBL_intBoardLevel & "+USER_PHOTO*" & GBL_intAlbumLevel & "+USER_REVIEW*" & GBL_intReviewLevel & "+USER_TOPICS*" & GBL_intTopicsLevel & "+USER_REPLY*" & GBL_intReplyLevel &"+USER_LOGIN_COUNT*" & GBL_intLoginLevel & ") WHERE 1=1 " & strWhere
If Not GBL_objPubDB.SQLRSExecute() Then
StatisticsUserDataLogic = False
Exit Function
End If
End If
StatisticsUserDataLogic = True
End Function
''===================================================================
'= Function : SaveUserLogic()
'= Time : Created At 2006-5-5
'= Input : intUserId :
'= Output : objFormData : 表單數據
'= Return : boolean
'= Description : 保存用戶信息
'==================================================================='
Function SaveUserLogic(intUserId,objFormData)
Dim strBirth,strBirthYear,strBirthMon,strBirthDay
If objFormData.Item("Grad") < objFormData.Item("Enroll") Then
Call GBL_objException.catchErr(E_USER_PUB,"請填入正確的畢業和入學年份")
SaveUser = False
Exit Function
End If
strBirthYear = objFormData.Item("BirthYear")
strBirthMon = objFormData.Item("BirthMon")
strBirthDay = objFormData.Item("BirthDay")
strBirth = strBirthYear & "-" & strBirthMon & "-" & strBirthDay
GBL_objPubDB.Clear()
GBL_objPubDB.TableName = "CLASS_USER"
GBL_objPubDB.SQLType = "SELECT"
GBL_objPubDB.AddField "USER_ID",""
GBL_objPubDB.Where = "USER_EMAIL='" & objFormData.Item("Email") & "' AND USER_ID<>" & intUserId
If Not GBL_objPubDB.SQLRSExecute() Then
Exit Function
End If
If GBL_objPubDB.intRSNum <> 0 Then
SaveUserLogic = False
Call GBL_objException.catchErr(E_USER_PUB,"該郵件地址已被人使用")
Exit Function
End If
GBL_objPubDB.Clear()
GBL_objPubDB.TableName = "CLASS_USER"
GBL_objPubDB.SQLType = "UPDATE"
GBL_objPubDB.Where = "USER_ID=" & intUserId
GBL_objPubDB.AddField "USER_EMAIL", objFormData.Item("Email")
GBL_objPubDB.AddField "USER_REALNAME", objFormData.Item("RealName")
GBL_objPubDB.AddField "USER_QUESTION", objFormData.Item("Question")
GBL_objPubDB.AddField "USER_ANSWER", objFormData.Item("Answer")
GBL_objPubDB.AddField "USER_QQ", objFormData.Item("Qq")
GBL_objPubDB.AddField "USER_WORKSHOP", objFormData.Item("WorkShop")
GBL_objPubDB.AddField "USER_TELE", objFormData.Item("Tele")
GBL_objPubDB.AddField "USER_ADDRESS", objFormData.Item("Address")
GBL_objPubDB.AddField "USER_CLASS", objFormData.Item("Class")
GBL_objPubDB.AddField "USER_SEX", objFormData.Item("Sex")
GBL_objPubDB.AddField "USER_BIRTH", strBirth
GBL_objPubDB.AddField "USER_GRAD", objFormData.Item("Grad")
GBL_objPubDB.AddField "USER_ENROLL", objFormData.Item("Enroll")
GBL_objPubDB.AddField "USER_WORK", objFormData.Item("Work")
GBL_objPubDB.AddField "USER_INFO",htmlencode2(objFormData.Item("Content"))
If Not GBL_objPubDB.SQLExecute() Then
SaveUserLogic = False
Exit Function
End If
SaveUserLogic = True
End Function
''===================================================================
'= Function : CheckUserPwdLogic()
'= Time : Created At 2006-5-5
'= Input : intUserId :
'= Output : objFormData : 表單數據
'= Return : boolean
'= Description : 檢驗密碼當前是否正確
'==================================================================='
Function CheckUserPwdLogic(intUserId,objFormData)
Dim strOldPwd
strOldPwd = objFormData.Item("OldPwd")
strOldPwd = Md5(strOldPwd)
GBL_objPubDB.Clear()
GBL_objPubDB.TableName = "CLASS_USER"
GBL_objPubDB.SQLType = "SELECT"
GBL_objPubDB.Where = "USER_ID=" & intUserId
GBL_objPubDB.AddField "USER_PASSWORD", ""
If Not GBL_objPubDB.SQLRSExecute() Then
Exit Function
End If
If GBL_objPubDB.objPubRS("USER_PASSWORD") <> strOldPwd Then
CheckUserPwdLogic = False
Exit Function
End If
CheckUserPwdLogic = True
End Function
''===================================================================
'= Function : SaveUserPwdLogic()
'= Time : Created At 2006-5-5
'= Input : intUserId :
'= Output : objFormData : 表單數據
'= Return : boolean
'= Description : 修改用戶密碼
'==================================================================='
Function SaveUserPwdLogic(intUserId,objFormData)
GBL_objPubDB.Clear()
GBL_objPubDB.TableName = "CLASS_USER"
GBL_objPubDB.SQLType = "UPDATE"
GBL_objPubDB.Where = "USER_ID=" & intUserId
GBL_objPubDB.AddField "USER_PASSWORD", Md5(objFormData.Item("NewPwd"))
If Not GBL_objPubDB.SQLExecute() Then
SaveUserPwdLogic = False
Exit Function
End If
SaveUserPwdLogic = True
End Function
''===================================================================
'= Function : MakeHtmlUserOptionLogic()
'= Time : Created At 2006-5-8
'= Input : strWhere 符合條件
'= Input : strFile 文件地址
'= Return : boolean
'= Description : 生成用戶select的option html文件
'==================================================================='
Function MakeHtmlUserOptionLogic(strWhere,strFile)
Dim strFileContent
GBL_objPubDB.Clear()
GBL_objPubDB.TableName = "CLASS_USER"
GBL_objPubDB.SQLType = "SELECT"
GBL_objPubDB.Where = "1=1 AND USER_AUTHEN<>8 " & strWhere
GBL_objPubDB.AddField "USER_REALNAME", ""
GBL_objPubDB.AddField "USER_ID", ""
GBL_objPubDB.ORDER = "USER_ID DESC"
If Not GBL_objPubDB.SQLRSExecute() Then
MakeHtmlUserOptionLogic = False
Exit Function
End If
While Not GBL_objPubDB.objPubRS.Eof
strFileContent = strFileContent & "<option value=""" & GBL_objPubDB.objPubRS("USER_ID") & """>" & GBL_objPubDB.objPubRS("USER_REALNAME") & "</option>" & chr(13) & chr(10)
GBL_objPubDB.objPubRS.MoveNext
Wend
Call fsoWriteToFile(strFileContent,strFile,10)
MakeHtmlUserOptionLogic = True
End Function
''===================================================================
'= Function : MakeQQShow()
'= Time : Created At 2006-6-24
'= Input : intQQ
'= Return : string
'= Description : qq url
'==================================================================='
Function MakeQQShow(intQQ)
MakeQQShow = "http://qqshow-user.tencent.com/" & intQQ & "/10/00/"
End Function
''===================================================================
'= Function : GetFriendLogic(strWhere)
'= Time : Created At 2006-6-24
'= Input : strWhere
'= Return : string
'= Description :
'==================================================================='
Function GetFriendLogic(strWhere)
Dim strFileContent
GBL_objPubDB.Clear()
GBL_objPubDB.TableName = "CLASS_USER"
GBL_objPubDB.SQLType = "SELECT"
GBL_objPubDB.Where = "1=1 " & strWhere
GBL_objPubDB.AddField "USER_REALNAME", ""
GBL_objPubDB.AddField "USER_ID", ""
If Not GBL_objPubDB.SQLRSExecute() Then
GetFriendLogic = False
Exit Function
End If
While Not GBL_objPubDB.objPubRS.Eof
strFileContent = strFileContent & "<option value=""" & GBL_objPubDB.objPubRS("USER_ID") & """>" & GBL_objPubDB.objPubRS("USER_REALNAME") & "</option>" & chr(13) & chr(10)
GBL_objPubDB.objPubRS.MoveNext
Wend
Call fsoWriteToFile(strFileContent,strFile,10)
GetFriendLogic = True
End Function
''===================================================================
'= Function : SaveUserSignLogic(intUserId,strImg)
'= Time : Created At 2006-6-24
'= Input : intUserId
'= Input : strImg
'= Return : boolean
'= Description : 用戶簽名圖指定
'==================================================================='
Function SaveUserSignLogic(intUserId,strImg)
GBL_objPubDB.Clear()
GBL_objPubDB.TableName = "CLASS_USER"
GBL_objPubDB.SQLType = "UPDATE"
GBL_objPubDB.AddField "USER_UP_FACE", GBL_objFormData.Item("UpFace")
GBL_objPubDB.Where = "USER_ID=" & intUserId
If Not GBL_objPubDB.SQLExecute() Then
SaveUserSignLogic = False
Exit Function
End If
SaveUserSignLogic = True
End Function
''===================================================================
'= Function : GetUserSignLogic(intUserId)
'= Time : Created At 2006-6-24
'= Input : intUserId
'= Input : strImg
'= Return : boolean
'= Description : 用戶簽名圖指定
'==================================================================='
Function GetUserSignLogic(intUserId,ByRef strUserSign)
GBL_objPubDB.Clear()
GBL_objPubDB.TableName = "CLASS_USER"
GBL_objPubDB.SQLType = "SELECT"
GBL_objPubDB.AddField "USER_UP_FACE", ""
GBL_objPubDB.Where = "USER_ID=" & intUserId
If Not GBL_objPubDB.SQLRSExecute() Then
GetUserSignLogic = False
Exit Function
End If
strUserSign = GBL_objPubDB.objPubRS("USER_UP_FACE")
GetUserSignLogic = True
End Function
''===================================================================
'= Function : SaveUserPassLogic(intUserId)
'= Time : Created At 2006-6-24
'= Input : intUserId
'= Input : strImg
'= Return : boolean
'= Description : 修改管理員用戶密碼
'==================================================================='
Function SaveUserPassLogic(intUserId,strPass)
GBL_objPubDB.Clear()
GBL_objPubDB.TableName = "CLASS_USER"
GBL_objPubDB.SQLType = "UPDATE"
GBL_objPubDB.AddField "USER_PASSWORD", Md5(strPass)
GBL_objPubDB.Where = "USER_ID=" & intUserId
If Not GBL_objPubDB.SQLExecute() Then
SaveUserPassLogic = False
Exit Function
End If
SaveUserPassLogic = True
End Function
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -