interface.asp

《动易网站管理系统》2005 SP2正式版中

	iMyUserInfo = Split(iMyUserInfo,"|||")
	If iMyUserInfo(17)=1 or iMyUserInfo(19)=5 Then
		Exit Sub
	Else
		Session(Dvbbs.CacheName & "UserID") = iMyUserInfo
		Dvbbs.UserID = iMyUserInfo(4)
		UpiUserName = iMyUserInfo(5)
		LastIP = Dvbbs.UserTrueIP
		Article = iMyUserInfo(8)
		UserLastLogin = iMyUserInfo(15)
		UserClass = iMyUserInfo(18)			
		GroupID = iMyUserInfo(19)
		TitlePic = iMyUserInfo(34)
		If Article<0 Then Article=0
	End If

	'自动更新用户数据
	set TempRs=Dvbbs.Execute("select MinArticle,IsSetting,ParentGID from Dv_UserGroups where usertitle='"&UserClass&"'")
	If TempRs.eof and TempRs.bof Then
		'如果没有找到用户等级
		'先判断该组是否有按照文章升级的，也就是MinArticle不是-1的
		Set UserGrade=Dvbbs.Execute("select top 1 usertitle,GroupPic,UserGroupID,IsSetting,ParentGID from Dv_UserGroups where (ParentGID="&GroupID&" Or UserGroupID="&GroupID&") and Minarticle<="&Article&" and not Minarticle=-1 order by MinArticle desc")
		If not (UserGrade.eof and UserGrade.bof) Then
			UserClass=UserGrade(0)
			TitlePic=UserGrade(1)
			If UserGrade(3)=1 Then
				GroupID=UserGrade(2)
			Else
				GroupID=UserGrade(4)
			End If
			FoundGrade=True
		End If
		If not FoundGrade Then
			'该组在等级表中不按照文章升级
			Set UserGrade=Dvbbs.Execute("select top 1 usertitle,GroupPic,UserGroupID,IsSetting,ParentGID from Dv_UserGroups where UserGroupID="&GroupID&" and Minarticle=-1 order by UserGroupID")
			If not (UserGrade.eof and UserGrade.bof) Then
				UserClass=UserGrade(0)
				TitlePic=UserGrade(1)
				If UserGrade(3)=1 Then
					GroupID=UserGrade(2)
				Else
					GroupID=UserGrade(4)
				End If
				FoundGrade=True
			End If
			If not FoundGrade Then
			'如果在等级表中未找到相关记录，则使用组名定义等级，采用最低等级用户的图片
			Set UserGrade=Dvbbs.Execute("select top 1 GroupPic from Dv_UserGroups where ParentGID>0 And not Minarticle=-1 order by MinArticle")
			TitlePic=UserGrade(0)
			Set UserGrade=Dvbbs.Execute("select usertitle from Dv_UserGroups where UserGroupID="&GroupID)
			UserClass=UserGrade(0)
			End If
		End If
	Else
		'找到用户等级
		'用户等级按照发布文章升级
		If TempRs(0)>-1 Then
			'如果为自定义等级，则取其父类GroupID做升级依据
			GroupID_Q=GroupID
			If TempRs(1)=1 And TempRs(2)>0 Then GroupID_Q=TempRs(2)
			set UserGrade=Dvbbs.Execute("select top 1 usertitle,GroupPic,UserGroupID,IsSetting,ParentGID from Dv_UserGroups where ParentGID="&GroupID_Q&" and Minarticle<="&article&" and not MinArticle=-1 order by MinArticle desc,UserGroupID")
			If not (UserGrade.eof and UserGrade.bof) Then
				UserClass=UserGrade(0)
				TitlePic=UserGrade(1)
				If UserGrade(3)=1 Then
					GroupID=UserGrade(2)
				Else
					GroupID=UserGrade(4)
				End If
				FoundGrade=True
			End If
			'如果没有相关用户组的等级记录，则采用用户组名称定义等级，采用最低等级用户的图片
			'该情况出现于认证用户组或者添加了用户组没有添加相关等级的用户组
			If not FoundGrade Then
			set UserGrade=Dvbbs.Execute("select top 1 GroupPic from Dv_UserGroups where ParentGID>0 And not Minarticle=-1 order by MinArticle")
			TitlePic=UserGrade(0)
			set UserGrade=Dvbbs.Execute("select usertitle from Dv_UserGroups where UserGroupID="&GroupID)
			UserClass=UserGrade(0)
			End If
		Else
		'用户等级不按照文章升级
			set UserGrade=Dvbbs.Execute("select usertitle,GroupPic,UserGroupID,IsSetting,ParentGID from Dv_UserGroups where usertitle='"&UserClass&"'")
			If not (UserGrade.eof and UserGrade.bof) Then
				UserClass=UserGrade(0)
				TitlePic=UserGrade(1)
				If UserGrade(3)=1 Then
					GroupID=UserGrade(2)
				Else
					GroupID=UserGrade(4)
				End If
			End If
		End If
	End If
	set TempRs=nothing
	set UserGrade=nothing
	If Datediff("d",UserLastLogin,Now())=0 Then
		TempSQL="update [Dv_User] set LastLogin="&SqlNowString&",UserLogins=UserLogins+1,UserLastIP='"&LastIP&"',userclass='"&UserClass&"',titlepic='"&TitlePic&"',UserGroupID="&GroupID&",TruePassWord='"&TruePassWord&"' where userid="&dvbbs.UserID
	Else
		TempSQL="update [Dv_User] set userWealth=userWealth+"&Dvbbs.Forum_user(4)&",userEP=userEP+"&Dvbbs.Forum_user(9)&",userCP=userCP+"&Dvbbs.Forum_user(14)&",LastLogin="&SqlNowString&",UserLogins=UserLogins+1,UserLastIP='"&LastIP&"',userclass='"&UserClass&"',titlepic='"&TitlePic&"',UserGroupID="&GroupID&",TruePassWord='"&TruePassWord&"' where userid="&dvbbs.UserID
	End If
	Dvbbs.Execute(TempSQL)
	Dim StatUserID,UserSessionID
		StatUserID = Dvbbs.checkStr(Trim(Request.Cookies(Dvbbs.Forum_sn)("StatUserID")))
		If IsNumeric(StatUserID) = 0 or StatUserID = "" Then
			StatUserID = Replace(Dvbbs.UserTrueIP,".","")
			UserSessionID = Replace(Startime,".","")
			If IsNumeric(StatUserID) = 0 or StatUserID = "" Then StatUserID = 0
			StatUserID = Ccur(StatUserID) + Ccur(UserSessionID)
		End If
	StatUserID = Ccur(StatUserID)
	Dvbbs.Execute("delete from dv_online where id="&StatUserID&"")
	If trim(UpiUserName)<>trim(Dvbbs.membername) Then
		Response.Cookies(Dvbbs.Forum_sn)("username")=""
		Response.Cookies(Dvbbs.Forum_sn)("password")=""
		Response.Cookies(Dvbbs.Forum_sn)("userclass")=""
		Response.Cookies(Dvbbs.Forum_sn)("userid")=""
		Response.Cookies(Dvbbs.Forum_sn)("userhidden")=""
		Response.Cookies(Dvbbs.Forum_sn)("usercookies")=""
		Dvbbs.Execute("delete from dv_online where username='"&Dvbbs.membername&"'")
	End If
	If isnull(UpiSaveCookies) or UpiSaveCookies="" Then UpiSaveCookies="0"
	Select Case UpiSaveCookies
	Case "0"
		Response.Cookies(Dvbbs.Forum_sn)("usercookies") = UpiSaveCookies
	Case 1
   		Response.Cookies(Dvbbs.Forum_sn).Expires=Date+1
		Response.Cookies(Dvbbs.Forum_sn)("usercookies") = UpiSaveCookies
	Case 2
		Response.Cookies(Dvbbs.Forum_sn).Expires=Date+31
		Response.Cookies(Dvbbs.Forum_sn)("usercookies") = UpiSaveCookies
	Case 3
		Response.Cookies(Dvbbs.Forum_sn).Expires=Date+365
		Response.Cookies(Dvbbs.Forum_sn)("usercookies") = UpiSaveCookies
	End Select
	Response.Cookies(Dvbbs.Forum_sn).path = Dvbbs.cookiepath
	Response.Cookies(Dvbbs.Forum_sn)("username") = UpiUserName
	Response.Cookies(Dvbbs.Forum_sn)("userid") = Dvbbs.UserID
	Response.Cookies(Dvbbs.Forum_sn)("password") = TruePassWord
	Response.Cookies(Dvbbs.Forum_sn)("userclass") = UserClass
	Response.Cookies(Dvbbs.Forum_sn)("userhidden") = UserHidden
	rem 清除图片上传数的限制
	Response.Cookies("upNum")=0
	Dim iUserInfo
	iUserInfo = Session(Dvbbs.CacheName & "UserID")
	iUserInfo(35) = TruePassWord
	Session(Dvbbs.CacheName & "UserID") = iUserInfo
	Dvbbs.membername=UpiUserName
	Dvbbs.userhidden=UserHidden
	Dvbbs.MemberClass=UserClass
End Sub

Sub LogoutUser()
	Response.Cookies(Dvbbs.Forum_sn).path=Dvbbs.cookiepath
	Response.Cookies(Dvbbs.Forum_sn)("username")=""
	Response.Cookies(Dvbbs.Forum_sn)("password")=""
	Response.Cookies(Dvbbs.Forum_sn)("userclass")=""
	Response.Cookies(Dvbbs.Forum_sn)("userid")=""
	Response.Cookies(Dvbbs.Forum_sn)("userhidden")=""
	Response.Cookies(Dvbbs.Forum_sn)("usercookies")=""
	Session(Dvbbs.CacheName & "UserID")=Empty
	Session("flag")=Empty
End Sub

Sub ModifyUserInfo()
	On Error Resume Next
	Dim tempSQL
	tempSQL = "UPDATE Dv_User Set "
	If UpiUserPass <> "" and Len(UpiUserPass) = 16 Then
		tempSQL = tempSQL & "UserPassWord='" & UpiUserPass & "'"
	Else
		tempSQL = tempSQL & "UserPassword=UserPassword"
	End If
	If UpiQuestion <> "" Then
		tempSQL = tempSQL & ",UserQuesion='" & UpiQuestion & "'"
	End If
	If UpiAnswer <> "" and Len(UpiAnswer) = 16 Then
		tempSQL = tempSQL & ",UserAnswer='" & UpiAnswer & "'"
	End If
	If UpiEmail <> "" Then
		tempSQL = tempSQL & ",UserEmail='" & UpiEmail & "'"
	End If
	If UpiUserSex <> "" and IsNumeric(UpiUserSex) Then
		If UpiUserSex <0 or UpiUserSex > 1 Then UpiUserSex = 0
		tempSQL = tempSQL & ",UserSex=" & UpiUserSex
	End If
	If UpiUserLock <> "" and IsNumeric(UpiUserLock) Then
		If UpiUserLock <0 or UpiUserLock > 1 Then UpiUserLock = 0
		tempSQL = tempSQL & ",lockuser=" & UpiUserLock
	End If

	tempSQL = tempSQL & " WHERE UserName='" & UpiUserName & "'"

	Dvbbs.Execute(TempSQL)
	
End Sub

Sub DelUser()
	On Error Resume Next
	Dim AllPostTable
	Dim Trs
	Set Trs=Dvbbs.Execute("select * from [Dv_TableList]")
	AllPostTable=""
	Do While Not TRs.EOF
		If AllPostTable=""  Then 
			AllPostTable=TRs("TableName")
		Else
			AllPostTable=AllPostTable&"|"&TRs("TableName")
		End If
	TRs.MoveNext
	Loop 
	Trs.Close
	AllPostTable=Split(AllPostTable,"|")
	Dvbbs.Execute("DELETE FROM dv_message WHERE incept='" & UpiUserName & "' or sender='" & UpiUserName & "'")
	Dvbbs.Execute("delete from dv_friend where F_username='" & UpiUserName & "'") 
	Dvbbs.Execute("delete from dv_bookmark where username='" & UpiUserName & "'") 
	Dvbbs.Execute("DELETE FROM dv_User WHERE UserName='" & UpiUserName & "'")
	Dvbbs.Execute("DELETE FROM dv_BestTopic WHERE PostUserName='" & UpiUserName & "'")
	Dim iNum
	For iNum = 0 to Ubound(AllPostTable)
		Dvbbs.Execute("DELETE FROM " & AllPostTable(iNum) & " WHERE UserName='" & UpiUserName & "'")
	Next
	Dvbbs.Execute("DELETE FROM dv_Topic WHERE PostUserName='" & UpiUserName & "'")
	Dvbbs.Execute("DELETE FROM dv_Upfile WHERE F_Username='" & UpiUserName & "'")

End Sub
%>