logic_user.asp

学习管理 校友录有关的系统 本人学习的结果 与大家共享

<%
''===================================================================
'= ASP FILENAME	: /inc/logic/logic_user.asp
'= CREATED TIME : Feb,08,2004
'= LAST MODIFIED: Feb,08,2004
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : 用户处理逻辑
'= Change Log:
'==================================================================='
%>

<%
''===================================================================
'= Function    : GetUsersLogic()
'= Time		   : Created At 2006-5-5
'= Input	   : strWhere : 符合条件
'= Return      : boolean
'= Description : 取用户记录集
'==================================================================='
Function GetUsersLogic(strWhere)
	GBL_objPubDB.Clear()
	If Instr(strWhere,"ORDER BY") > 0 Then
		GBL_objPubDB.AllSQL = "SELECT * FROM CLASS_USER WHERE 1=1 " & strWhere
	Else
	GBL_objPubDB.AllSQL = "SELECT * FROM CLASS_USER WHERE 1=1 " & strWhere & "ORDER BY USER_ID DESC"
	End If
	If Not GBL_objPubDB.SQLRSExecute() Then
		GetUsersLogic = False
		Exit Function
	End If
	GetUsersLogic = True
End Function

''===================================================================
'= Function    : GetUserLogic()
'= Time		   : Created At 2006-5-5
'= Input	   : strWhere : 符合条件
'= Return      : boolean
'= Description : 取用户记录
'==================================================================='
Function GetUserLogic(strWhere)
	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT USER_QQ,USER_AUTHEN,USER_CLASS,USER_QUESTION,USER_ANSWER,USER_WORK,USER_SEX,USER_LEVEL,USER_BOARD,USER_INFO,USER_TOPICS,USER_PHOTO,USER_REPLY,USER_REVIEW,USER_LOGIN_COUNT,USER_ENROLL,USER_LAST_IP,USER_WORKSHOP,USER_ADDRESS,USER_GRAD,USER_EMAIL,USER_TELE,USER_ADD_DATE,USER_LAST_TIME,USER_BIRTH,USER_REALNAME,USER_NOW_FACE,USER_FACE_SELECT,USER_ACCOUNT,USER_ID FROM CLASS_USER WHERE 1=1" & strWhere
	If Not GBL_objPubDB.SQLRSExecute() Then
		GetUserLogic = False
		Exit Function
	End If
	GetUserLogic = True
End Function

''===================================================================
'= Function    : GetUserFaceSetLogic()
'= Time		   : Created At 2006-5-5
'= Input	   : intUserId : 用户ID
'= Return      : boolean
'= Description : 取得用户签名图
'==================================================================='
Function GetUserFaceSetLogic(intUserId)
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_USER"
	GBL_objPubDB.SQLType = "SELECT"
	GBL_objPubDB.AddField "USER_FACE_SELECT",""
	GBL_objPubDB.Where = "USER_ID=" & intUserId
	If Not GBL_objPubDB.SQLRSExecute() Then
		GetUserFaceSetLogic = False
		Exit Function
	End If
	GetUserFaceSetLogic = True
End Function

''===================================================================
'= Function    : SaveUserFaceSetLogic()
'= Time		   : Created At 2006-5-5
'= Input	   : intUserId : 用户ID
'= Input	   : objFormData : 表单数据
'= Return      : boolean
'= Description : 保存用户首选签名图设置
'==================================================================='
Function SaveUserFaceSetLogic(intUserId,objFormData)
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_USER"
	GBL_objPubDB.SQLType = "UPDATE"
	GBL_objPubDB.AddField "USER_FACE_SELECT",objFormData.Item("FaceSet")
	GBL_objPubDB.Where = "USER_ID=" & intUserId
	If Not GBL_objPubDB.SQLExecute() Then
		SaveUserFaceSetLogic = False
		Exit Function
	End If
	If Not ChgUserFaceLogic(intUserId) Then
		SaveUserFaceSetLogic = False
		Exit Function
	End If
	SaveUserFaceSetLogic = True
End Function

''===================================================================
'= Function    : SaveUserCartoonLogic()
'= Time		   : Created At 2006-5-5
'= Input	   : intUserId : 用户ID
'= Input	   : objFormData : 表单数据
'= Return      : boolean
'= Description : 保存用户卡通签名设置
'==================================================================='
Function SaveUserCartoonLogic(intUserId,objFormData)
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_USER"
	GBL_objPubDB.SQLType = "UPDATE"
	GBL_objPubDB.AddField "USER_CARTOON_FACE",objFormData.Item("CartoonFace")
	GBL_objPubDB.Where = "USER_ID=" & intUserId
	If Not GBL_objPubDB.SQLExecute() Then
		SaveUserCartoonLogic = False
		Exit Function
	End If
	If Not ChgUserFaceLogic(intUserId) Then
		SaveUserCartoonLogic = False
		Exit Function
	End If
	SaveUserCartoonLogic = True
End Function

''===================================================================
'= Function    : GetUserCartoonLogic()
'= Time		   : Created At 2006-5-5
'= Input	   : intUserId : 用户ID
'= Return      : boolean
'= Description : 取得用户签名图及qq
'==================================================================='
Function GetUserCartoonLogic(intUserId)
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_USER"
	GBL_objPubDB.SQLType = "SELECT"
	GBL_objPubDB.AddField "USER_CARTOON_FACE,USER_QQ",""
	GBL_objPubDB.Where = "USER_ID=" & intUserId
	If Not GBL_objPubDB.SQLRSExecute() Then
		GetUserCartoonLogic = False
		Exit Function
	End If
	GetUserCartoonLogic = True
End Function

''===================================================================
'= Function    : ChgUserFaceLogic()
'= Time		   : Created At 2006-5-5
'= Input	   : intUserId : 用户ID
'= Return      : boolean
'= Description : 修改用户签名图
'==================================================================='
Function ChgUserFaceLogic(intUserId)
	Dim strNowFace,strFaceSet

	ChgUserFaceLogic = True
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_USER"
	GBL_objPubDB.SQLType = "SELECT"
	GBL_objPubDB.AddField "USER_FACE_SELECT,USER_QQ,USER_CARTOON_FACE,USER_UP_FACE",""
	GBL_objPubDB.Where = "USER_ID=" & intUserId 
	If Not GBL_objPubDB.SQLRSExecute() Then		
		ChgUserFaceLogic = False
		Exit Function
	End If

	strFaceSet = GBL_objPubDB.objPubRS("USER_FACE_SELECT")
	If strFaceSet = "个人头像" Then
		strNowFace =_
			GBL_strUserUpFace & GBL_objPubDB.objPubRS("USER_UP_FACE")
	ElseIf strFaceSet = "QQ秀" Then
		strNowFace =_
			MakeQQShow(GBL_objPubDB.objPubRS("USER_QQ"))
	Else
		strNowFace =_
			GBL_strCartoonFacePath & GBL_objPubDB.objPubRS("USER_CARTOON_FACE") & ".gif"
	End If

	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_USER"
	GBL_objPubDB.SQLType = "UPDATE"
	GBL_objPubDB.Where = "USER_ID=" & intUserId
	GBL_objPubDB.AddField "USER_NOW_FACE",strNowFace
	If Not GBL_objPubDB.SQLExecute() Then
		ChgUserFaceLogic = False
		Exit Function
	End If
	ChgUserFaceLogic = True
End Function

''===================================================================
'= Function    : GetUserAuthLogic()
'= Time		   : Created At 2006-5-5
'= Input	   : intAuth : 
'= Return      : 用户身份的中文含义
'= Description : 取得用户身份
'==================================================================='
Function GetUserAuthLogic(intAuth)
	Dim strTmp
	Select Case Cint(intAuth)
		Case	0	: strTmp = "普通成员"
		Case	1	: strTmp = "管理员"
		Case	2	: strTmp = "副管理员"
		Case	3	: strTmp = "未通过认证的新用户"
		Case	4	: strTmp = "锁定用户"
		Case	Else : strTmp = "不明用户"
	End Select
	GetUserAuthLogic = strTmp
End Function

''===================================================================
'= Function    : RemoveUsersLogic()
'= Time		   : Created At 2006-5-5
'= Input	   : strIds : 
'= Return      : 用户身份的中文含义
'= Description : 删除用户
'==================================================================='
Function RemoveUsersLogic(strIds)
	'== Delete this user's board
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_BOARD"
	GBL_objPubDB.SQLType = "DELETE"
	GBL_objPubDB.Where = "BOARD_USER_ID IN (" & strIds & ")"
	If Not GBL_objPubDB.SQLRSExecute() Then
		RemoveUsersLogic = False
		Exit Function
	End If

	'== Delete this user's review
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_ALBUM_REVIEW"
	GBL_objPubDB.SQLType = "DELETE"
	GBL_objPubDB.Where = "ALBUM_REVIEW_OWNER_ID IN (" & strIds & ")"
	If Not GBL_objPubDB.SQLRSExecute() Then
		RemoveUsersLogic = False
		Exit Function
	End If

	'== Delete this user's album
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_ALBUM"
	GBL_objPubDB.SQLType = "DELETE"
	GBL_objPubDB.Where = "ALBUM_OWNER_ID IN (" & strIds & ")"
	If Not GBL_objPubDB.SQLRSExecute() Then
		RemoveUsersLogic = False
		Exit Function
	End If

	'== Delete this user's bbs reply
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_REPLY"
	GBL_objPubDB.SQLType = "DELETE"
	GBL_objPubDB.Where = "REPLY_OWNER_ID IN (" & strIds & ")"
	If Not GBL_objPubDB.SQLRSExecute() Then
		RemoveUsersLogic = False
		Exit Function
	End If

	'== Delete this user's bbs topics
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_TOPICS"
	GBL_objPubDB.SQLType = "DELETE"
	GBL_objPubDB.Where = "TOPICS_OWNER_ID IN (" & strIds & ")"
	If Not GBL_objPubDB.SQLRSExecute() Then
		RemoveUsersLogic = False
		Exit Function
	End If

	'== Delete this user's meeting
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_MEET"
	GBL_objPubDB.SQLType = "DELETE"
	GBL_objPubDB.Where = "MEET_OWNER_ID IN (" & strIds & ")"
	If Not GBL_objPubDB.SQLRSExecute() Then
		RemoveUsersLogic = False
		Exit Function
	End If

	'== Delete this user's meeting bbs
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_MEET_BBS"
	GBL_objPubDB.SQLType = "DELETE"
	GBL_objPubDB.Where = "MEET_BBS_OWNER_ID IN (" & strIds & ")"
	If Not GBL_objPubDB.SQLRSExecute() Then
		RemoveUsersLogic = False
		Exit Function
	End If

	'== Delete this meet join
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_MEET_JOIN"
	GBL_objPubDB.SQLType = "DELETE"
	GBL_objPubDB.Where = "MEET_JOIN_OWNER_ID IN (" & strIds & ")"
	If Not GBL_objPubDB.SQLRSExecute() Then
		RemoveUsersLogic = False
		Exit Function
	End If

	'== Delete this user's sms
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_SMS"
	GBL_objPubDB.SQLType = "DELETE"
	GBL_objPubDB.Where = "SMS_INCEPTER_ID IN (" & strIds  & ") OR SMS_SENDER_ID IN (" & strIds & ")"
	If Not GBL_objPubDB.SQLRSExecute() Then
		RemoveUsersLogic = False
		Exit Function
	End If
	
	'== 最后删除用户
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_USER"
	GBL_objPubDB.SQLType = "DELETE"
	GBL_objPubDB.Where = "USER_ID In (" & strIds & ")"
	If Not GBL_objPubDB.SQLRSExecute() Then
		RemoveUsersLogic = False
		Exit Function
	End If

	RemoveUsersLogic = True
End Function

''===================================================================
'= Function    : AccUsersLogic()
'= Time		   : Created At 2006-7-1
'= Input	   : strIds : 
'= Return      : boolean
'= Description : 批准用户
'==================================================================='
Function AccUsersLogic(strIds)
	
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_USER"
	GBL_objPubDB.SQLType = "UPDATE"
	GBL_objPubDB.AddField "USER_AUTHEN",0
	GBL_objPubDB.Where = "USER_ID In (" & strIds & ") AND USER_AUTHEN=8 "
	If Not GBL_objPubDB.SQLRSExecute() Then
		AccUsersLogic = False
		Exit Function
	End If

	AccUsersLogic = True
End Function

''===================================================================
'= Function    : MasterUsersLogic()
'= Time		   : Created At 2006-7-1
'= Input	   : strIds : 
'= Return      : boolean
'= Description : 设置用户为论坛总版主
'==================================================================='
Function MasterUsersLogic(strIds)
	
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_USER"
	GBL_objPubDB.SQLType = "UPDATE"
	GBL_objPubDB.AddField "USER_AUTHEN",1
	GBL_objPubDB.Where = "USER_ID In (" & strIds & ") AND USER_AUTHEN=0 "
	If Not GBL_objPubDB.SQLRSExecute() Then
		MasterUsersLogic = False
		Exit Function
	End If

	MasterUsersLogic = True
End Function

''===================================================================
'= Function    : UnMasterUsersLogic()
'= Time		   : Created At 2006-7-1
'= Input	   : strIds : 
'= Return      : boolean
'= Description : 解除设置用户为论坛总版主
'==================================================================='
Function UnMasterUsersLogic(strIds)
	
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_USER"
	GBL_objPubDB.SQLType = "UPDATE"
	GBL_objPubDB.AddField "USER_AUTHEN",0
	GBL_objPubDB.Where = "USER_ID In (" & strIds & ") AND USER_AUTHEN=1 "
	If Not GBL_objPubDB.SQLRSExecute() Then
		UnMasterUsersLogic = False
		Exit Function
	End If

	UnMasterUsersLogic = True
End Function

''===================================================================
'= Function    : GetUserSmsNumLogic()
'= Time		   : Created At 2006-5-5
'= Input	   : intUserId : 
'= Output	   : intSms : 短信数
'= Return      : boolean
'= Description : 用户短信数
'==================================================================='
Function GetUserSmsNumLogic(intUserId,ByRef intSms)
	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"