📄 logic_user.asp

📁 学习管理校友录有关的系统本人学习的结果与大家共享
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
	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
%>
上一页 12
💿 文件大小 4414 K
👤 上传用户 moxcki
📂 所属分类汇编语言
🏷️ 相关标签

#家
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -