📄 poll.asp
字号:
<%
StarTime = Timer():AccessNum=0
username=Request.Cookies("username")
%>
<head>
<link rel="stylesheet" type="text/css" href="../css/style1.css">
</head>
<!--#include file="../conn.asp"-->
<%
lookpollid=Request.QueryString("lookpollid")
if lookpollid<>"" then
AccessNum=AccessNum+1
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT top 11 * FROM 投票项目 where id="&lookpollid&" or 主题ID="&lookpollid&" "
rs.open sql,conn,1,1
rs.movefirst
Response.Write "<table border=0 cellspacing=0 cellpadding=0 align=center class=table1>"
while not rs.eof
if rs("主题ID")=0 then Response.Write "<tr><td colspan=2 width=400 height=27 class=Tbhead> 主题:"+rs("选项内容")+"</td></tr>" else Response.Write "<tr><td height=27 class=light> "&rs("选项内容")&"</td><td align=center class=light>"&cstr(rs("票数"))&"</td></tr>" end if
rs.movenext
wend
else
%><!--#include file="../inc/top1.inc"-->
<!--#include file="BtBBS_Fun.asp"--><%
Call Login_EN
Response.Write "<br><br><br><br>"
speak="<center>投票内容不能为空</center>"
tptype=Request.QueryString("tptype")
pollid=Request.QueryString("pollid")
AccessNum=AccessNum+1
Set rs = Server.CreateObject("ADODB.Recordset") '写入已投过票，或写入已投票
sql="SELECT top 1 * FROM 投票项目 where id="&pollid&" "
rs.open sql,conn,1,3
if not (rs.bof and rs.eof) and instr(1,rs("投票用户"),username)=0 then
rs("投票用户")=rs("投票用户")+"|"+username
rs.update
else
tptype=""
speak="<center>你已经投过票</center>"
end if
rs.close
set rs=nothing '---------------
tpnl=Request.Form("tp")
if tptype<>"" and tpnl<>"" then
if tptype=1 then
AccessNum=AccessNum+1
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT top 1 * FROM 投票项目 where id="&tpnl&" "
rs.open sql,conn,1,3
if not (rs.BOF and rs.EOF) then
rs("票数")=rs("票数")+1
rs.Update
Response.Write "投票成功"
else
Response.Write "没有找到这个选项"
end if
rs.Close
set rs=nothing
else
AccessNum=AccessNum+1
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT top 10 * FROM 投票项目 where 主题ID="&pollid&" "
rs.open sql,conn,1,3
rs.movefirst
while not rs.eof
if instr(1,tpnl,cstr(rs("id")))<>0 then
rs("票数")=rs("票数")+1
rs.Update
end if
rs.movenext
wend
rs.close
set rs=nothing
Response.Write "<center>投票成功</center>"
end if
else
Response.Write speak
end if
EndTime = Timer()
%><br><br><br><br>
<!--#include file="../inc/tom1.inc"--><%
end if
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -