Question

IP投票限制代码如何改进？《asp》

现在是这样写的，但是被刷票刷的厉害。我想限制一个IP只能投一次票。

'===IP限制
Function getIP()
getIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If getIP = "" Then getIP = (Request.ServerVariables("REMOTE_ADDR"))
End Function

if Session("tp")="yes" then
Response.write("<script language='javascript'>alert('您已经投票，请稍后再来投票!');location='index.asp';</script>")
Response.End()
end if
'===IP限制

Answer 1

你用Session判断当然不行的了，如果真的要限制IP的话，那么，你应该把投过票的IP存一数据库中，然后再判断。
建一个数据表，ipTable，如果你的投票有多种的，比如专业的投票信息站，可能同时有多个投票进行，这样字段应该为 id,VoteProjectID,IP,UserVoteTime
编号，投票项目编号，用户IP，用户投票时间，当然如果只有一个投票进行，前两个字段可以不用。
你投票结束截至日期到的时候，可以清空该表中对应投票信息的数据。
function IsVote()
string userIP=getIP()
sql="select * from ipTable wehre ip='" & userIP &"'"
这里连接数据库判断是否存在记录
根据搜索结果返回
IsVote=true/false
end function

if IsVote()=true then
Response.write("<script language='javascript'>alert('您已经投票，请稍后再来投票!');location='index.asp';</script>")
Response.End()
else
进行投票
end if
IP投票限制代码如何改进？《asp》
悬赏分：150 - 离问题结束还有 15 天 10 小时
现在是这样写的，但是被刷票刷的厉害。我想限制一个IP只能投一次票。

'===IP限制
Function getIP()
getIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If getIP = "" Then getIP = (Request.ServerVariables("REMOTE_ADDR"))
End Function

if Session("tp")="yes" then
Response.write("<script language='javascript'>alert('您已经投票，请稍后再来投票!');location='index.asp';</script>")
Response.End()
end if
'===IP限制

Answer 2

你用Session判断当然不行的了，如果真的要限制IP的话，那么，你应该把投过票的IP存一数据库中，然后再判断。
建一个数据表，ipTable，如果你的投票有多种的，比如专业的投票信息站，可能同时有多个投票进行，这样字段应该为 id,VoteProjectID,IP,UserVoteTime
编号，投票项目编号，用户IP，用户投票时间，当然如果只有一个投票进行，前两个字段可以不用。
你投票结束截至日期到的时候，可以清空该表中对应投票信息的数据。
function IsVote()
string userIP=getIP()
sql="select * from ipTable wehre ip='" & userIP &"'"
这里连接数据库判断是否存在记录
根据搜索结果返回
IsVote=true/false
end function

if IsVote()=true then
Response.write("<script language='javascript'>alert('您已经投票，请稍后再来投票!');location='index.asp';</script>")
Response.End()
else
进行投票
end if

Answer 3

response.cookies("IPaddress")=request.servervariables("REMOTE_addr")

if request.ServerVariables("REMOTE_addr")=request.cookies("IPAddress") then
response.write"您已经投票了"
response.End
else
处理投票结果
end if