📄 vote.asp
字号:
<!--#include file="conn.asp"-->
<%dim options,total,sql,i,answer
if request.QueryString("stype")="" then
if Request.ServerVariables("REMOTE_ADDR")=request.cookies("IPAddress") then
response.write"<SCRIPT language=JavaScript>alert('感谢您的支持，您已经投过票了，请勿重复投票，谢谢！');"
response.write"javascript:window.close();</SCRIPT>"
else
options=request.form("options")
response.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR")
conn.execute("update shop_toupiao set answer"&options&"=answer"&options&"+1 where IsChecked=1")
end if
end if
%><head>
<title>调查结果</title>
<link href="images//css.css" rel="stylesheet">
</head>
<div align="center">
<TABLE width=98% border=0 cellPadding=0 cellSpacing=1 bgcolor="#CCCCCC">
<TBODY>
<TR>
<TD height=25 colSpan=2 bgcolor="#FFFFFF"> <img
src="images/go.gif"><b>调查结果<strong></strong></b></TD>
</TR>
<TR>
<TD align=left vAlign=top bgcolor="#FFFFFF"> <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5">
<tr>
<td height="10"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
total=0
set rs=server.createobject("adodb.recordset")
sql="select * From shop_toupiao where IsChecked=1"
rs.open sql,conn,3,3
%>
<tr valign="top">
<td height="50" colspan="3"><div align="center"><%=rs("Title")%></div></td>
</tr>
<tr>
<td width="41%"><div align="left">序号</div></td>
<td width="28%"><div align="left">百比分</div></td>
<td width="31%"><div align="left">人数</div></td>
</tr>
<%
for i=1 to 8
if rs("Select"&i)<>"" then
total=total+rs("answer"&i)
end if
next
%>
<%for i=1 to 8
if rs("Select"&i)<>"" then
if total=0 then
answer=0
else
answer=(rs("answer"&i)/total)*100
end if
%>
<tr>
<td><%=i%>.<%=rs("select"&i)%>：</td>
<td><%=round(answer,3)%>%</td>
<td><%=rs("answer"&i)%>人</td>
<%
end if
next
%>
<tr>
<td colspan="3">共有【<%=total%>】人参加投票</td>
</tr>
</table>
<div align="center">
<div align="center"><br>
<br>
【<a href="javascript:window.close()">关闭窗口</a>】
<% rs.close
set rs=nothing
conn.close
set conn=nothing %>
</div>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="5">
<tr>
<td height="10"></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
</div>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -