<%
response.buffer=true
select case request("action")
case "hidden"
call hidden()
case "online"
call online()
case "stylemod"
call stylemod()
case else
Errmsg=Errmsg+"
"+"请指定正确的参数。"
founderr=true
end select
call nav()
call head_var(2,0,"","")
if founderr then
call dvbbs_error()
else
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
end if
call footer()
sub hidden()
if not founduser then
Errmsg=Errmsg+"
"+"请登陆后进行操作。"
founderr=true
exit sub
end if
conn.execute("update online set userhidden=1 where userid="&userid)
dim usercookies
usercookies=request.cookies("aspsky")("usercookies")
if isnull(usercookies) or usercookies="" then usercookies="0"
select case usercookies
case "0"
Response.Cookies("aspsky")("usercookies") = usercookies
case 1
Response.Cookies("aspsky").Expires=Date+1
Response.Cookies("aspsky")("usercookies") = usercookies
case 2
Response.Cookies("aspsky").Expires=Date+31
Response.Cookies("aspsky")("usercookies") = usercookies
case 3
Response.Cookies("aspsky").Expires=Date+365
Response.Cookies("aspsky")("usercookies") = usercookies
end select
Response.Cookies("aspsky")("userhidden") = 1
Response.Cookies("aspsky").path=cookiepath
end sub
sub online()
if not founduser then
Errmsg=Errmsg+"
"+"请登陆后进行操作。"
founderr=true
exit sub
end if
conn.execute("update online set userhidden=2 where userid="&userid)
dim usercookies
usercookies=request.cookies("aspsky")("usercookies")
if isnull(usercookies) or usercookies="" then usercookies="0"
select case usercookies
case "0"
Response.Cookies("aspsky")("usercookies") = usercookies
case 1
Response.Cookies("aspsky").Expires=Date+1
Response.Cookies("aspsky")("usercookies") = usercookies
case 2
Response.Cookies("aspsky").Expires=Date+31
Response.Cookies("aspsky")("usercookies") = usercookies
case 3
Response.Cookies("aspsky").Expires=Date+365
Response.Cookies("aspsky")("usercookies") = usercookies
end select
Response.Cookies("aspsky")("userhidden") = 2
Response.Cookies("aspsky").path=cookiepath
end sub
sub stylemod()
Response.Cookies("skin").expires= date+7
if not isnumeric(request("skinid")) then
Errmsg=Errmsg+"
"+"非法的参数。"
founderr=true
exit sub
end if
if Cint(request("skinid"))>0 then
Response.Cookies("skin")("skinid_"&boardid)=request("skinid")
else
Response.Cookies("skin")("skinid_"&boardid)=""
end if
end sub
%>