28,391
社区成员
发帖
与我相关
我的任务
分享
<%
'首先判断客户浏览器是否支持cookies、是否禁用了cookies
Dim cook
cook = Request.ServerVariables("HTTP_COOKIE")
if len(cook)<2 or cook="" then
response.write("<script>alert('对不起!您的浏览器禁止使用cookies,不能参与投票,请设置!');history.go(-1);</script>")
End if
%>
把你的代码能运行的部分抠 出来
<%
if request.Cookies("voteCookies") = "yes" then
response.Write(" <script language='javascript'>alert('Sorry,you had voted!');history.go(-1); </script>")
else
response.Cookies("voteCookies") = "yes"
response.Cookies("voteCookies").Expires =DateAdd("h",1,now())
end if
%>
这一段能很好的实现防止多次投票。
你试一下。是不是更新数据库的代码有问题。