Question

大牛呀，求帮助，一段网站投票的限制IP的代码.

大牛呀，求帮助，我有一段网站投票的限制IP的代码，但是运行时，效果却是投票时，每个IP可以投所有人（虽然IP限制了，但只是限制每个IP对每个人投一张票），我现在想实现：每个IP只能投一票给一个人，怎么修改？
急求帮助呀，大牛！

<!--#include file="inc/config.asp"-->
<!--#include file="inc/conn.asp"-->
<%
if ks=0 then
response.write "<script>alert('友情提示：投票功能关闭，目前不能投票！');javascript:history.back();</script>"
response.end
end if

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 "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#F0F7FF width=450>"
response.write "<tr align=center><td>"
response.write "你提交的路径有误，禁止从站点外部提交数据！<br>"
response.write "</td></tr></table></center>"
response.end
end if

vid=Request.QueryString("id")

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

'===IP限制
ipdate=vid&getIP&date()

if ipdate<>"" then
Set rs = Server.CreateObject( "ADODB.Recordset" )
sql = "select * from Result where ipdate='" & ipdate & "' "
rs.open sql,conn,1,3
if not (rs.bof and rs.eof) then
Response.write("<script language='javascript'>alert('您已经投票，请稍后再来投票!\n');location='index.asp';</script>")
else
rs.addnew
rs("voteid")=vid
rs("addip")=getIP
rs("ipdate")=ipdate
rs.update
rs.close
Set rs=nothing

sql="update Info set ps=ps+1 where id="&vid
conn.execute(sql)
Response.write "<script language='javascript'>alert('恭喜您,投票成功,谢谢您的参与!\n');history.go(-1);</script>"
end if
end if
%>

Answer 1

ipdate=vid&getIP&date()'这里的vid去掉。
sql = "select * from Result where ipdate='" & ipdate & "' "'这句不动。结果就是只要投过了，不管对谁投的，就不让再投了。

Answer 2

可以试试用兔子...IP
可随意选择全国800多个城市IP线路连接
支持单页面，单窗口，单IP
连上之后IP地址自动发生改变，动态IP静态IP都支持