vote.asp

来自「安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!」· ASP 代码 · 共 68 行

<!--#include file="inc/pstart.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/bbsinfo.asp"-->
<%
dim comeurl,action,userid,id,svote,voteduser,outtime,votetype,voten,i,votenum,votenum2,canvote,voteduser2,cook
comeurl=Request.ServerVariables("HTTP_REFERER")
action=request.querystring("action")
id=checknum(request.querystring("id"))

select case action

case"userhidden"
cook=checknum(request.querystring("cook"))
userhidden=checknum(Request.Cookies("HX_USER")("userhidden"))
if userhidden=1 then Response.Cookies(HX_USER)("userhidden")=2:conn.execute("update hx66online set hx66type=2 where hx66name='"&ckuname&"'")
if userhidden=2 then Response.Cookies(HX_USER)("userhidden")=1:conn.execute("update hx66online set hx66type=1 where hx66name='"&ckuname&"'")
if cook>0 then Response.Cookies(HX_USER).Expires=date+cook


case"vote"
set svote=conn.execute("select*from [hx66_Vote] where id="&id&"")
voteduser=svote("voteduser")
voteduser2=voteduser
if isnull(voteduser2) or voteduser2="" then voteduser2="|0"
voteduser2=split(voteduser2,"|")
outtime=svote("outtime")
canvote=true
if outtime<now()+timezone/24 then
canvote=false
else
for i=1 to ubound(voteduser2)
if isnull(userid) or userid="" then canvote=false:exit for
if int(voteduser2(i))=userid then canvote=false:exit for
next
end if
if canvote=false then response.end

votetype=svote("type")
voten=svote("votenum")
voten=split(voten,"|")

if votetype=1 then
votenum=checknum(request.form("votenum"))
for i=1 to ubound(voten)
if i-votenum=0 then voten(i)=voten(i)+1
votenum2=votenum2&"|"&voten(i)
next
end if

if votetype=2 then
for i=1 to ubound(voten)
votenum=checknum(request.form("votenum_"&i&""))
if votenum=1 then voten(i)=voten(i)+1
votenum2=votenum2&"|"&voten(i)
next
end if

set svote=nothing

voteduser=voteduser&"|"&userid
conn.execute("update [hx66_Vote] set votenum='"&votenum2&"',voteduser='"&voteduser&"' where id="&id&"")

end select
if isnull(comeurl) or comeurl="" then comeurl="default.asp"
response.redirect comeurl
%>