?? 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('感謝您的支持，您已經(jīng)投過票了，請勿重復(fù)投票，謝謝！');"
response.write"javascript:window.close();</SCRIPT>"
else
options=request.form("options")
response.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR")
conn.execute("update vote set answer"&options&"=answer"&options&"+1 where IsChecked=1")
end if
end if
%><head>
<title>投票結(jié)果</title>
<LINK href=images/css.css rel=stylesheet>
<style>
td{font-size:9pt;line-height:120%;color:#353535}
body{font-size:9pt;line-height:120%}
a:link { color: #000000; text-decoration: none }
a:visited { color: #000000; text-decoration: none }
a:active { color: #000000; text-decoration: none }
a:hover { color: #336699; text-decoration: none; position: relative; right: 0px; top: 1px }
</style>
</head>
<div align="center">
<table width="370" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td background="images/bj_6.gif" height="29">
<table cellspacing=0 cellpadding=0 width=170 height="20">
<tr>
<td width=5> </td>
<td width=28>
<div align="center"><img src="images/icon2.gif" width="12" height="13"></div>
</td>
<td class=hg12 valign=bottom width="123"> <font color="#000000"><b>投票結(jié)果</b></font></td>
<td width=12> </td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<table width="370" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td background="images/bj_7.gif" height="29">
<table border="0" cellpadding="0" cellspacing="0" width="95%" height="48" style="border-collapse: collapse" align="center">
<%
total=0
set rs=server.createobject("adodb.recordset")
sql="select * from vote where IsChecked=1"
rs.open sql,conn,3,3
%>
<tr>
<td height="48" valign="top" colspan="3" align=center><font color="#000000"><br>
=======================================================<br>
</font> <font color="#000073"> <%=rs("Title")%></font> </td>
</tr>
<tr>
<td valign="top">序號</td>
<td valign="top">百比分</td>
<td valign="top">人數(shù)</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 valign="top"><%=i%>.<%=rs("select"&i)%>：</td>
<td valign="top"><img src=images/RSCount.gif width=<%=int(answer*2)%> height=8>
<%=round(answer,3)%>%</td>
<td valign="top"><%=rs("answer"&i)%>人</td>
<%
end if
next
%>
<tr>
<td colspan="3"> 共有【<%=total%>】人參加投票<br>
=======================================================</td>
</tr>
</table>
<div align="center"></div>
<p align="center">【<a href="javascript:window.close()">關(guān)閉窗口</a>】
<% rs.close
set rs=nothing
conn.close
set conn=nothing %>
</td>
</tr>
</table>
<table width="370" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td background="images/bj_8.gif" height="23">
<div align="center"></div>
</td>
</tr>
</table>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -