请教：设置一个IP只能投5人的票。谢谢(希望可以大家直接写出代码来哦)
一个用户，或者一个IP只能投5个人。。。然后对一个候选人只能投一次。我目前的代码只能实现一个IP对同一候选人只能投一次，但是可以投无数次个候选人。。我现在想设置为只能投5个候选人。
<% Dim VoTeid,HostUrl,Zuid
VoTeid = Int(CHECKSTR(trim(Request.QueryString("VoTeid"))))
HostUrl=Request.ServerVariables("HTTP_REFERER")
Zuid=Cint(session("nihaoID"))
if VoTeid="" then
Call Alert ("不允许值为空，请选择后提交!","index.asp")
End if
Rem 获取IP
function getIP()
getIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If getIP = "" Then
getIP = Request.ServerVariables("REMOTE_ADDR")
end if
end function
Rem 投票开关
If power=0 then
Call Alert ("投票评选活动已关闭!","index.asp")
End if
function ZhiIP(vid,ip)
sql="Select * from nihao where Voteid="&vid&" and Hostip='"&ip&"'"
Set rs=conn.execute(sql)
if not rs.eof then
ZhiIP=true
else
ZhiIP=false
end if
end function
if ZhiIP(Voteid,getIP())=true then
Call Alert ("你的IP："&getIP()&"已经给这位选手投票，不能继续投票！","index.asp")
end if
sql="update nihao set Amio=Amio+1 where id="&Voteid
conn.execute(sql)
sql="insert into zhi_rui_v_Vo(Voteid,Userid,Hostip,HostAd,HostUl,AddTime) values("&Voteid&","&Zuid&",'"&getIP()&"','"&dlwz&"','"&HostUrl&"',#"&now()&"#)"
conn.execute(sql)
Call Alert("投票成功，感谢您宝贵的一票！","index.asp")
%>
