请教：设置一个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")
%>