<!-- #include file="../Inc.asp" -->
<!-- #include file="../ydzq.asp" -->
<!-- #include file="conn.asp" -->
<%Call Head()
dim action,rUrl
action = trim(Request.QueryString("action"))
if action = "1" or action = "2" or action = "3" or action = "4" then
else
  conn.close
  set conn=Nothing
response.redirect "/bbs/?sid="&sid&"&amp;saytk="&saytk&""
  response.end
end if
if action = "1" then
conn.execute("update Users Set v=2,vzs=1 where ID="&myid)
elseif action = "2" then
conn.execute("update Users Set v=2,vzs=2 where ID="&myid)
elseif action = "3" then
conn.execute("update Users Set v=2,vzs=3 where ID="&myid)
elseif action = "4" then
conn.execute("update Users Set v=1 where ID="&myid)
else
response.redirect "?sid="&sid&"&amp;saytk="&saytk&""
end if
conn.close
set conn=Nothing
response.redirect "/bbs/zone/?sid="&sid&"&amp;saytk="&saytk&""
%>                          