不好意思又来麻烦蓝鲸大哥,而且是新开主题。之前我问过蓝鲸大哥,可是我如法做了,还是没找出毛病来,只好请教蓝鲸大哥了。我的投票显示是这样的:
图片如下:

我的投票表是这样的:
图片如下:

我的检查更新投票结果页代码是:
Action=Request("Action"

VoteType=request("VoteType"

VoteOption=replace(request("VoteOption"

," ",""

id=request("id"

if action="vote" and VoteOption="" then
response.write "<script language='javascript'>"
response.write "alert('您什么也没有选择!');"
response.write "location.href='vote.asp?action=view';"
response.write "</script>"
response.end
end if
if action="vote" and request.cookies("buyok_Voted"

=request.ServerVariables("remote_address"

then
response.write "<script language='javascript'>"
response.write "alert('您已经投票了,不能重复投票!');"
response.write "location.href='vote.asp?action=view';"
response.write "</script>"
response.end
end if
'投票
If Action = "vote" And VoteOption<>"" Then
arrOptions=split(VoteOption,","

for i=0 to ubound(arrOptions)
answer=cstr("answer"&arrOptions(i))
conn.execute "Update Vote set "&answer&"="&answer&"+1 where id="&id
next
'将用户IP写入COOKIES防止重复投票
response.cookies("buyok_Voted"

= request.ServerVariables("remote_address"

' response.cookies("buyok_Voted"

.expires=now+1
response.write "<script language='javascript'>"
response.write "alert('投票已提交,感谢您的参与!');"
response.write "location.href='vote.asp?action=view';"
response.write "</script>"
response.end
End If
蓝鲸大哥能不能耐心帮我看看,我帮同学做的协会网站就剩这个功能有问题了。非常谢谢蓝鲸大哥的帮助。