ASP限制IP地址投票的页面怎么设计?
<%vid=request("id")'当前投票题目的id,肯定是以参数形式传来的setRs=Server.CreateObject("Adodb.Recordset")...
<%
vid=request("id")'当前投票题目的id,肯定是以参数形式传来的
set Rs=Server.CreateObject("Adodb.Recordset")
Ip=getIP()
if ip="" then
response.write("<script>alert('ip获取错误,请不要使用代理,或隐藏ip');history.go(-1);</script>")
response.end()
end if
Rs.open "select * from userip where ip='"&Ip&"'"
if not Rs.eof then
Response.Write "<script>alert('一个IP地址一天内只能投一次票,谢谢您的参与!');history.go(-1);</script>"
Response.End()
else
Rs.addnew
Rs("ip")=Ip
rs("vid")=vid
rs("date")=now()
Rs.update
end if
Rs.close
set Rs=nothing
%>
<%
Response.Write "<script>alert('投票成功,谢谢您的参与!')</script>"
%>
这是我设计的投票界面,但是提示有错误 ,在限制IP地址那,哪位高人告诉我错在哪了。急啊!!! 展开
vid=request("id")'当前投票题目的id,肯定是以参数形式传来的
set Rs=Server.CreateObject("Adodb.Recordset")
Ip=getIP()
if ip="" then
response.write("<script>alert('ip获取错误,请不要使用代理,或隐藏ip');history.go(-1);</script>")
response.end()
end if
Rs.open "select * from userip where ip='"&Ip&"'"
if not Rs.eof then
Response.Write "<script>alert('一个IP地址一天内只能投一次票,谢谢您的参与!');history.go(-1);</script>"
Response.End()
else
Rs.addnew
Rs("ip")=Ip
rs("vid")=vid
rs("date")=now()
Rs.update
end if
Rs.close
set Rs=nothing
%>
<%
Response.Write "<script>alert('投票成功,谢谢您的参与!')</script>"
%>
这是我设计的投票界面,但是提示有错误 ,在限制IP地址那,哪位高人告诉我错在哪了。急啊!!! 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询