Question

下面代码是ASP投票系统的代码，这是同一IP只能投一票，帮我改成同一IP20分钟内只能能投1票，谢谢

<% Dim VoTeid,HostUrl,Zuid
VoTeid = Int(CHECKSTR(trim(Request.QueryString("VoTeid"))))
HostUrl=Request.ServerVariables("HTTP_REFERER")
Zuid=Cint(session("zhi_rui_v_userID"))
if VoTeid="" then
Call Alert ("不允许值为空，请选择后提交!",HostUrl)
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 ("暂时无法投票!",HostUrl)
End if
function ZhiIP(vid,ip)
sql="Select * from zhi_rui_v_Vo 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()&"已经投票，不能继续投票！",HostUrl)
end if
sql="update zhi_rui_v_po 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()&"','来源','"&HostUrl&"',#"&now()&"#)"
conn.execute(sql)
Call Alert("投票成功，感谢您宝贵的一票！请填写信息参与抽奖","/voterinfo/login.asp")
%>
20分钟后此IP还可以继续投票

提示该问答中所提及的号码未经验证，请注意甄别。

Answer 1

我不知道你用的什么数据库如果是sqlserver的话把
sql语句修改成
加上了 datediff(mi,AddTime,GETDATE()) >20 这个条件
access数据库
datediff(‘n‘,AddTime,now()) >20
sql="Select * from zhi_rui_v_Vo where Voteid="&vid&" and Hostip='"&ip&"' and datediff(mi,AddTime,GETDATE()) >20 "

就可以了

追问

ACCESS的呢

追答

access数据库
datediff(‘n‘,AddTime,now()) >20

追问

不行啊，现在可以不限制的投票了
是不是<20啊？

追答

修改成小于20就可以了
datediff(‘n‘,AddTime,now()) <20

Answer 2

联系 1997124