Question

如何在这段asp代码中加入ip限制投票代码

<%
if request.Cookies("pointed") = "" then
if request("menberid") = "" then
response.Write("<script>alert('要投票必须选择至少一个作品！');history.go(-1)</script>")
response.End()
else
set rs = server.CreateObject("adodb.recordset")
sqlstr = "insert into pointer (UserName,sex,age,address,tel,email,selmenbers)values('"
sqlstr2 = "update menber set point = point + 1 where id in("
sqlstr = sqlstr&request("UserName")&"','"&request("sex")&"','"&request("age")&"','"&request("address")&"','"&request("tel")&"','"&request("email")&"','"&request("menberid")&"')"
sqlstr2 = sqlstr2 & request("menberid") & ")"
rs.open sqlstr,conn,3,1
rs.open sqlstr2,conn,3,1
'conn.execute(sqlstr)
'conn.execute(sqlstr2)
Response.Cookies("pointed").Expires = Date + 1
Response.Cookies("pointed") = "1"
response.Write("<script>alert('投票成功,谢谢您参与！');location.href='index.asp'</script>")
end if
else
response.Write("<script>alert('对不起,您先前已经投了一票,谢谢您的参与！');location.href='index.asp'</script>")
end if

Answer 1

加入IP限制,你可以新建一个表[Vote_IP_Table],用于存放投过票的IP,表字段,ID,Vote_IP
<%
Dim PostIP
PostIP=Request.Servervariables("Http_X_Forwarded_For") '取客户端IP
If PostIP="" Then '客户端使用代理,未能取得IP
PostIP=Request.Servervariables("Remote_Addr") '取代理IP
End If
'验证投票过程
Dim IPSql,IPRs
IF Request.Cookies("pointed") = "" then '取Cookies,判断是否投过
Set IPRs = Server.CreateObject("adodb.recordset")
IPSql="Select Top 1 * From [Vote_IP_Table] Where Vote_IP='"&PostIP&"'"
IPRs.Open IPSql,Conn,1,1
IF not(IPRs.Bof and IPRs.Eof) Then '找到数据,证明投过票
Response.Write "您已投过票!"
Response.End()
IPSql.close
Set IPSql=Nothing
Else
IPRs.Addnew
IPRs("Vote_IP")=PostIP
IPRS.Update
IPSql.close
Set IPSql=Nothing
'---------------------------------------------------------------------------------------------------------
'判断是否有选择投票项目
'符合后,进入投票入库过程
'百度回答有字符限制,这里就不进行原问题过程的复制了.
'---------------------------------------------------------------------------------------------------------
End If
Else
Response.Write "您已投过票!"
Response.End()
End If

Answer 2

限制IP 首先把投票了的IP记录，然后在投票的时候先判断IP是否已经有了
如果是限制某个地区的人投票，我给你一个IP查询归属地的接口：
http://www.comqu.com/api/comip.asp?ip=61.142.52.66
把IP换成客户端获取的IP就可以查询到地点了

Answer 3

楼下你可以直接采纳了