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 %>