interface.asp

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

	cookies_path_s=split(Request.ServerVariables("PATH_INFO"),"/")
	cookies_path_d=ubound(cookies_path_s)
	cookies_path="/"
	For i=1 to cookies_path_d-1
		If not (cookies_path_s(i)="upload" or cookies_path_s(i)="admin") Then cookies_path=cookies_path&cookies_path_s(i)&"/"
	Next
	If dvbbs.cookiepath<>cookies_path Then
		cookies_path=replace(cookies_path,"'","")
		Dvbbs.execute("update dv_setup set Forum_Cookiespath='"&cookies_path&"'")
		Dim setupData 
		Dvbbs.CacheData(26,0)=cookies_path
		Dvbbs.Name="setup"
		Dvbbs.value=Dvbbs.CacheData
	End If
	
	TempSQL = "Select UserID,UserName,UserPassword,UserEmail,UserPost,UserTopic,UserSex,UserFace,UserWidth,UserHeight,JoinDate,LastLogin,UserLogins,Lockuser,Userclass,UserGroupID,UserGroup,userWealth,userEP,userCP,UserPower,UserBirthday,UserLastIP,UserDel,UserIsBest,UserHidden,UserMsg,IsChallenge,UserMobile,TitlePic,UserTitle,TruePassWord,UserToday,UserMoney,UserTicket,FollowMsgID,Vip_StarTime,Vip_EndTime"
	TempSQL = TempSQL & " From [Dv_User] Where UserName='" & UpiUserName & "'"
	Set TempRs = Dvbbs.Execute(TempSQL)
	If TempRs.eof and TempRs.bof Then
		TempRs.Close:Set TempRs = Nothing
		Exit Sub
	Else
		iMyUserInfo=TempRs.GetString(,1, "|||", "", "")
		TempRs.Close:Set TempRs = Nothing
	End If
	iMyUserInfo = "Dvbbs|||"& Now & "|||" & Now &"|||"& Dvbbs.BoardID &"|||"& iMyUserInfo &"|||"&Dvbbs.FoundUserPermission_All()&"|||0||||||Dvbbs"
	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,UserTitle,GroupPic From Dv_UserGroups Where UserGroupID="&GroupID)
	If Not (TempRs.eof and TempRs.bof) Then
		If TempRs(2)=1 Or TempRs(2)=2 Or TempRs(2)=4 Or TempRs(2)=5 Then
			'用户等级不按照文章升级，用户为系统或特殊或多属性组
			UserClass=TempRs(3)
			TitlePic=TempRs(4)
			FoundGrade=True
		End If
	End If
	If Not FoundGrade Then
		'如果不属于系统或特殊或多属性组,则将该用户属于注册用户组且按照其文章数自动更新其用户组(等级)
		Set TempRs=Dvbbs.Execute("Select Top 1 usertitle,GroupPic,UserGroupID From Dv_UserGroups Where ParentGID=3 And Minarticle<="&Article&" Order By MinArticle Desc,UserGroupID")
		If Not (TempRs.Eof And TempRs.Bof) Then
			UserClass=TempRs(0)
			TitlePic=TempRs(1)
			GroupID=TempRs(2)
			FoundGrade=True
		End If
	End If
	Set TempRs = 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
%>