<% 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 "dispBoard" Call dispBoard() Case "dispRight" Call dispRight() Case "ReGroup" Call ReGroup Case Else End Select Dvbbs.PageEnd() 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 Dvbbs.UserID=0 Then Exit Sub Dvbbs.execute("update [Dv_online] set userhidden=1 where userid="&Dvbbs.userid) Dvbbs.execute("update [Dv_user] set userhidden=1 where userid="&Dvbbs.userid) Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userhidden").text=1 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 Dvbbs.UserID=0 Then Exit Sub Dvbbs.execute("update [dv_online] set userhidden=2 where userid="&Dvbbs.userid) Dvbbs.execute("update [Dv_user] set userhidden=2,lastlogin=" & SqlNowString & " where userid="&Dvbbs.userid) Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userhidden").text=2 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() Dim skinid skinid=Request("skinid") Response.Cookies("skin").expires= date+7 Response.Cookies("skin")("skinid_"&Dvbbs.boardid)=skinid Response.Cookies("skin").path=Dvbbs.cookiepath End Sub Sub SetListmod() Dim mode If CInt(request("thisvalue"))=0 Then mode=1 Else mode=0 End If Response.Cookies("List").path=Dvbbs.cookiepath Response.Cookies("List").expires= date+7 Response.Cookies("List")("list"&CInt(Request("id")))=mode 'Response.Write "" 'Response.End End Sub Sub dispBoard() Dim mode If request("do")="" Then mode="none" Else mode="" End If Response.Cookies("Disp").path=Dvbbs.cookiepath Response.Cookies("Disp").expires= date+7 Response.Cookies("Disp")("list"&CInt(Request("id")))=mode 'Response.Write "" 'Response.End End Sub Sub dispRight() Response.Cookies("Disp").path=Dvbbs.cookiepath Response.Cookies("Disp").expires= date+7 If Trim(Request.Cookies("Disp")("right"))="1" Then Response.Cookies("Disp")("right")="0" Else Response.Cookies("Disp")("right")="1" End if End Sub %>