📄 poll_browse.asp
字号:
<%@language="VBScript" %>
<!--#include file="Connections/conn.asp" -->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql_rs= "SELECT bookname, poll FROM DB_Poll ORDER BY bookname DESC"
rs.open sql_rs,conn,3
%>
<%
Set rs_sum = Server.CreateObject("ADODB.Recordset")
sql_sum= "SELECT sum(poll) AS sumpoll FROM DB_Poll"
rs_sum.open sql_sum,conn,3
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>投票成功！</title>
<link href="style.css" rel="stylesheet">
<style>
<!--
.style1 {
color: #990000;
font-size: 10pt;
font-weight: bold;
}
.style4 {color: #990000}
.style5 {color: #336699}
-->
</style>
</head>
<body leftmargin="0" topmargin="0">
<table width="640" height="133" border="0" cellpadding="-1" cellspacing="-1">
<tr>
<td background="images/poll_top.gif"> </td>
</tr>
</table>
<table width="640" height="318" border="0" cellpadding="-1" cellspacing="-1">
<tr>
<td height="95" background="images/buycar_bottom.jpg"><div align="center">
<table width="100%" border="0" cellspacing="-2" cellpadding="-2">
<tr>
<td width="11" rowspan="3" valign="bottom"> </td>
<td width="168" height="186" valign="bottom">
<div align="right">
<table border="0" align="right" cellpadding="-2" cellspacing="-2">
<tr>
<% rs.movefirst
j=1
while not rs.eof
imgname="images/image_poll/Img_"&j&".gif"%>
<td width="27" valign="bottom"><img src=<%= imgname %> width="10"
height="<%= round(rs("poll")/rs_sum("sumPoll")*100,2)*1.4%>"></td>
<% rs.movenext
j=j+1
wend %>
</tr>
</table>
</div></td>
<td width="461" rowspan="3"><table width="459" height="82" border="0"
align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF"
bordercolorlight="#FFFFFF" bordercolordark="#0000FF">
<tr>
<td height="48" align="center" valign="middle" nowrap>
<div align="left" class="style1"> 您已经成功投票，谢谢您的支持！
单击[返回]返回首页。</div></td>
</tr>
<tr>
<td height="22" align="right" valign="middle" nowrap><div align="left"
class="style4">最受欢迎的图书列表：</div></td>
</tr>
</table>
<table width="459" height="25" border="1" align="center"
cellpadding="0" cellspacing="0" bordercolor="#FFFFFF"
bordercolorlight="#FFFFFF" bordercolordark="#0099FF">
<%i=1
rs.movefirst %>
<% While NOT rs.EOF %>
<% imgname="images/image_poll/img_"&i&".gif"%>
<tr>
<td width="25" align="right" valign="middle" nowrap>
<div align="center"><img src=<%= imgname %> width="10" height="17">
</div></td>
<td width="220" height="23" align="right" valign="middle" nowrap>
<div align="left"> <span class="style5"><%=rs("bookname")%>
</span></div></td>
<td width="120" align="right" valign="middle" nowrap>
<div align="center">共有[<font color="#990000">
<%=rs("poll")%></font>]人投票</div></td>
<td width="84" align="right" valign="middle" nowrap>
<div align="center">占 <font color="#990000">
<%=round(rs("poll")/rs_sum("sumPoll")*100,2)%></font>%</div></td>
</tr>
<% rs.MoveNext()
i=i+1
Wend %>
</table>
<table width="96%" border="0" cellspacing="-2" cellpadding="-2">
<tr>
<td height="27"><div align="right">目前共有[<span class="style4">
<%=rs_sum("sumpoll")%></span>]人投票！</div></td>
</tr>
</table></td>
</tr>
<tr>
<td height="27" valign="bottom"> </td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td height="53" background="images/buycar_bottom.jpg"><div align="center">
<a href="default.asp"> <img src="images/register_back.gif" width="81"
height="36" border="0"></a></div></td>
</tr>
<tr>
<td background="images/buycar_bottom.jpg"><table width="97%" border="0"
align="center" cellpadding="-1" cellspacing="-1">
<tr>
<td><div align="center"><font size="2">本站请用IE4.0或以上版本浏览，
800*60</font>0为<font size="2">最佳效果
<br>
</font>版权所有：长春市明日科技有限责任公司 <font size="2"><br>
</font>客户信箱：mingrisoft@sina.com 联系电话：0431-4972266</div>
</td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -