?? showvote.asp
字號:
<!--#include file="const.asp"-->
<!--#include file="conn.asp"-->
<%classid=request("classid")
set rs=server.createobject("adodb.recordset")
set rs=conn.execute("select title from class where id="&classid)
title=rs("title")
rs.close
sql="select * from vote where class="&classid
rs.open sql,conn,3,1
totalcount=0
do while not rs.eof
totalcount=totalcount+rs("count")
rs.movenext
loop
totalren=totalcount
if totalcount=0 then
totalcount=1
end if
%>
<head>
<title>新揚州健康頻道投票系統</title>
<link rel="stylesheet" type="text/css" href="STYLE.CSS">
</head>
<body bgcolor="#93CA35">
<table width="600" height="73" border="0" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td width="596" colspan="3" height="23" bgcolor="#E7E7E7">
<p align="center"><b><font size=3 color=#0066cc>~<%=title%>~</font></b></td>
</tr>
<%rs.movefirst
do while not rs.eof%>
<tr>
<td height="23" width="164" bgcolor="#E7E7E7">
<p align="center"><%=rs("vote")%></td>
<%h=(rs("count")*300)/totalcount%>
<td height="23" width="300" valign="middle" bgcolor="#E7E7E7">
<table border="0" width="<%=h%>" height="13" bgcolor="<%=rs("color")%>" cellspacing="0" cellpadding="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td width="100%" style="border-style: solid; border-width: 1" valign="middle"></td>
</tr>
</table>
</td>
<td height="23" width="129" bgcolor="#E7E7E7">
<p align="center"><font color=green><%=rs("count")%></font> 票(<%=cint((rs("count")*10000)/totalcount)/100%>%)</td>
</tr>
<%rs.movenext
loop%>
<tr>
<td width="596" colspan="3" height="21" bgcolor="#E7E7E7">
<p align="center">共有投票<b><font color=red><%=totalren%></font></b>人次</td>
</tr>
</table>
<br><center><a href="javascript:self.close()">關閉窗口</a></center>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -