ASP防刷票思路及代码

server_v1 = Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2 = Cstr(Request.ServerVariables("SERVER_NAME"))

if mid(server_v1,8,len(server_v2))<>server_v2 then
    Response.write("<script language='javascript'>alert('禁止从站外提交数据!');location='index.asp';</script>")
    response.end
end If

'' 利用cookies 防止单机重复投票

If request.cookies("chishu")="" Then
chi=0
Response.cookies("chishu")=chi
Else
chi=request.cookies("chishu")
chi=chi+1
Response.cookies("chishu")=chi
End if

If request.cookies("chishu")<10 Then

bs=true

Else
if request.cookies("visitime")<>"" then
if DateDiff("s",request.cookies("visitime"),now())<600 then
Response.write("<script language='javascript'>alert('本机1小时内只允许投票10次，\n请稍后再来投票!');location='index.asp';</script>")    
response.end
Else
response.cookies("visitime")=now()
Response.cookies("chishu")=0
bs=true
end if
Else
response.cookies("visitime")=now()
Response.cookies("chishu")=0
end if
End If
'' 利用cookies 防止单机重复投票