cookies.asp

现在好了

<!--#include file=conn.asp-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/Dv_ClsOther.asp" -->
<%
Dim action
action=Request("action")
Select Case action
	Case "hidden"
		Call hidden()
	Case "online"
		Call online()
	Case "stylemod"
		Call stylemod()
	Case "setlistmod"
		Call SetListmod
	Case "setlistmoda"
		Call SetListmoda
	Case "ReGroup"
		Call ReGroup
	Case Else
End Select

If IsNull(Request.ServerVariables("HTTP_REFERER")) Or Request.ServerVariables("HTTP_REFERER")="" Then
	Response.Redirect "index.asp"
Else
	Response.Redirect Request.ServerVariables("HTTP_REFERER")
End If

Sub hidden()
	If Not Dvbbs.founduser Then
		Dvbbs.AddErrCode "34":Dvbbs.Showerr()
	End If
	Dvbbs.execute("update [Dv_online] set userhidden=1 where userid="&Dvbbs.userid)
	Dvbbs.execute("update [Dv_user] set userhidden=1 where userid="&Dvbbs.userid)
	Dim usercookies
	usercookies=request.cookies(Dvbbs.Forum_sn)("usercookies")
	If IsNull(usercookies) or usercookies="" then usercookies="0"
	Select Case usercookies
		Case "0"
			Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
		Case 1
   			Response.Cookies(Dvbbs.Forum_sn).Expires=Date+1
			Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
		Case 2
			Response.Cookies(Dvbbs.Forum_sn).Expires=Date+31
			Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
		Case 3
			Response.Cookies(Dvbbs.Forum_sn).Expires=Date+365
			Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
	End Select 
	Response.Cookies(Dvbbs.Forum_sn)("userhidden") = 1
	Response.Cookies(Dvbbs.Forum_sn).path=Dvbbs.cookiepath
End Sub

Sub online()
	If Not Dvbbs.founduser Then
 		Dvbbs.AddErrCode "34":Dvbbs.Showerr()
	End If
	Dvbbs.execute("update [dv_online] set userhidden=2 where userid="&Dvbbs.userid)
	Dvbbs.execute("update [Dv_user] set userhidden=2 where userid="&Dvbbs.userid)
	Dim  usercookies
	usercookies=request.cookies(Dvbbs.Forum_sn)("usercookies")
	If IsNull(usercookies) or usercookies="" Then usercookies="0"
	Select Case usercookies
		Case "0"
			Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
		Case 1
   			Response.Cookies(Dvbbs.Forum_sn).Expires=Date+1
			Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
		Case 2
			Response.Cookies(Dvbbs.Forum_sn).Expires=Date+31
			Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
		Case 3
			Response.Cookies(Dvbbs.Forum_sn).Expires=Date+365
			Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
	End select
	Response.Cookies(Dvbbs.Forum_sn)("userhidden") = 2
	Response.Cookies(Dvbbs.Forum_sn).path=Dvbbs.cookiepath
End Sub

Sub Stylemod()
	If Not isnumeric(request("skinid")) Then
		Dvbbs.AddErrCode "35":Dvbbs.Showerr()
	End If
	Dim skinid
	skinid=Request("skinid")
	Response.Cookies("skin").expires= date+7
	Response.Cookies("skin")("skinid_"&Dvbbs.boardid)=skinid
	Response.Cookies("skin").path=Dvbbs.cookiepath
	Response.Write "<script language=""javascript"">parent.location.reload();</script>"
	Response.End
End Sub
Sub SetListmod()
	Response.Cookies("List").path=Dvbbs.cookiepath
	Response.Cookies("List").expires= date+7
	Response.Cookies("List")("list"&Request("id"))=request("thisvalue")
	Response.Write "<script language=""javascript"">parent.location.reload();</script>"
	Response.End 
End Sub

Sub ReGroup()
	If Dvbbs.UserID = 0 Then Exit Sub
	If Dvbbs.UserGroupParent <> 4 And Cint(Dvbbs.IsUserPermissionOnly) = 0 Then Exit Sub
	Dim ReGroupID,i,FoundGroupID,iUserInfo
	ReGroupID = Request("GroupID")
	If Not IsNumeric(ReGroupID) Or ReGroupID="" Then Exit Sub
	ReGroupID = Cint(ReGroupID)
	FoundGroupID = False
	For i = 0 To Ubound(Dvbbs.UserGroupParentID)
		If ReGroupID = Cint(Dvbbs.UserGroupParentID(i)) Then
			FoundGroupID = True
			Exit For
		End If
	Next
	If Cint(Dvbbs.IsUserPermissionOnly) > 0 Then FoundGroupID = True
	If Not FoundGroupID Then Exit Sub
	iUserInfo = Session(Dvbbs.CacheName & "UserID")
	Dim TempUBound
	TempUBound = Ubound(iUserInfo)-2
	If Cint(iUserInfo(TempUBound)) = ReGroupID Then
		iUserInfo(TempUBound) = 0
	Else
		iUserInfo(TempUBound) = iUserInfo(19)
	End If
	iUserInfo(19) = ReGroupID
	Session(Dvbbs.CacheName & "UserID") = iUserInfo
End Sub
%>