votetou.asp

宁波娱乐在线城市,丰富的内容版块

<!--#include file="const.asp"-->
<!--#include file="../inc/conn2.asp"-->
<% 
if Request.Cookies("NC")="" or Request.Cookies("NC")="访客" then
response.write "<script>alert('访客不能参与投票！');</script>"
response.write "<script>window.close();</script>"
response.end
end if%>
<%on error resume next

if request("voted")<>"" then

username=Request.Cookies("NC")
set rs2=server.createobject("adodb.recordset")
rs2.open"select pollid from HY where NC='"&username&"'",conn,1,1
polled=rs2("pollid")
rs2.close

if polled=cint(request("classid")) then
response.write "<script>alert('请不要重复投票');</script>"
response.write "<script>window.close();</script>"
response.end
end if

set rs=server.createobject("adodb.recordset")

if request("style")="radio" then
sql="select * from vote where id="&request("voted")
rs.open sql,conn,3,2
rs("count")=rs("count")+1
rs.update
rs.close
elseif request("style")="checkbox" then
for i=1 to request("voted").count
sql="select * from vote where id="&request("voted")(i)
rs.open sql,conn,3,2
rs("count")=rs("count")+1
rs.update
rs.close
next
end if


set rs2=server.createobject("adodb.recordset")
sql="select pollid from HY where NC='"&username&"'"
rs2.open sql,conn,3,2
rs2("pollid")=request("classid")
rs2.update
rs2.close


set rs=nothing
set rs2=nothing
conn.close
set conn=nothing
response.write "<script>window.open('showvote.asp?classid="&request("classid")&"','','width=650,height=300,resizable=1,scrollbars=1');</script>"
response.write "<script>window.close();</script>"

else%>
<script language=vbscript>
  MsgBox "抱歉，你没有选择投票选项"
  history.back
</script>
<%end if%>