📄 vote.asp
字号:
<!--#include file = "conn.asp"-->
<%
Dim sid,yrs,prs,str,tp,tt,Rsrs,RestrictIP,fIP
sid=Request.QueryString("sid")
If Request.Form("submit") = "投票" Then
Set Rsrs=Server.CreateObject("ADODB.RecordSet")
Rsrs.open "Select * from Admin",conn,1,1
RestrictIP=Rsrs("RestrictIP")
Rsrs.close
Set Rsrs=Nothing
If RestrictIP=True Then
conn.execute("delete from IP where datediff('d',time,now())>=1")
fIP=Request.ServerVariables("Remote_Addr")
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open "Select * from IP where sid="&sid&" and ip='"&fIP&"'",conn,1,3
If not(rs.eof and rs.bof) Then
Response.Write "<script>alert('你已经投过票了！');window.close()</script>"
Response.End
Else
rs.addnew
rs("sid")=sid
rs("ip")=fIP
rs("time")=now()
rs.update
End If
rs.close
Set rs=nothing
End If
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open "Select * from Title where sid="&sid,conn,1,3
If not(rs.eof and rs.bof) Then
Do while not rs.eof
tp=split(Trim(Request.Form(""&rs("id")&""))&",",",")
For tt=0 to Ubound(tp)-1
If tp(tt)<>"" Then
Set prs=Server.CreateObject("ADODB.RecordSet")
prs.open "Select ps from Question where id="&tp(tt),conn,1,3
prs("ps")=prs("ps")+1
prs.update
prs.close
Set prs=nothing
End If
Next
rs.MoveNext
Loop
End If
rs.close
Set rs=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>投票结果</title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body topmargin="0" leftmargin="0">
<p align="center" style="margin-top: 10"><font size="5">
投票成功!</font>
<br>
<br>
<br>
<br>
<br>
<br>
<div align="center">
<a href = "index.asp">返回</a>
</div>
</body>
</html>
<%
ElseIf Request.Form("submit") = "查看结果" Then
Response.Redirect "view.asp?sid="&sid
End If
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -