www.gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\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 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 Mybbs.founduser Then
		Mybbs.AddErrCode "34":Mybbs.Showerr()
	End If
	Mybbs.execute("update [Dv_online] set userhidden=1 where userid="&Mybbs.userid)
	Mybbs.execute("update [Dv_user] set userhidden=1 where userid="&Mybbs.userid)
	Dim usercookies
	usercookies=request.cookies(Mybbs.Forum_sn)("usercookies")
	If IsNull(usercookies) or usercookies="" then usercookies="0"
	Select Case usercookies
		Case "0"
			Response.Cookies(Mybbs.Forum_sn)("usercookies") = usercookies
		Case 1
   			Response.Cookies(Mybbs.Forum_sn).Expires=Date+1
			Response.Cookies(Mybbs.Forum_sn)("usercookies") = usercookies
		Case 2
			Response.Cookies(Mybbs.Forum_sn).Expires=Date+31
			Response.Cookies(Mybbs.Forum_sn)("usercookies") = usercookies
		Case 3
			Response.Cookies(Mybbs.Forum_sn).Expires=Date+365
			Response.Cookies(Mybbs.Forum_sn)("usercookies") = usercookies
	End Select 
	Response.Cookies(Mybbs.Forum_sn)("userhidden") = 1
	Response.Cookies(Mybbs.Forum_sn).path=Mybbs.cookiepath
End Sub

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

Sub stylemod()
	Response.Cookies("skin").expires= date+7
	Response.Cookies("skin").path=Mybbs.cookiepath
	If Not isnumeric(request("skinid")) Then
		Mybbs.AddErrCode "35":Mybbs.Showerr()
	End If
	Dim cssid,skinid
	cssid=Request("cssid")
	If Not isnumeric(cssid) Then
		cssid=0
	End If
	skinid=Request("skinid")
	If CInt(skinid)<>0 Then
		Response.Cookies("skin")("skinid_"&Mybbs.boardid)=skinid
		Response.Cookies("skin")("cssid_"&Mybbs.boardid)=cssid
	Else
		Response.Cookies("skin")("skinid_"&Mybbs.boardid)=""
		Response.Cookies("skin")("cssid_"&Mybbs.boardid)=""
	End If
End Sub
Sub SetListmod()
	Response.Write "<script language=""javascript"">"
	Response.Write "parent.ReShowList("&Request("id")&");"
	Response.Write "</script>"
	Response.Cookies("List").path=Mybbs.cookiepath
	Response.Cookies("List").expires= date+7
	Response.Cookies("List")("list"&Request("id"))=request("thisvalue")
	Response.End 
End Sub
%>