📄 viewvote.asp
字号:
<!--#include file="tools.asp"-->
<HTML><HEAD><TITLE>调查结果</TITLE>
<LINK href="images/zzz.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2600.0" name=GENERATOR>
</HEAD>
<BODY leftMargin=0 topMargin=0>
<table height="100%" cellSpacing="0" cellPadding="5" width="90%" align="center"
bgColor="#333333" border="0">
<%
vid=trim(Request.QueryString("vid"))
vtitle=trim(Request.QueryString("vtitle"))
%>
<TBODY>
<tr>
<td bgColor="#ffcc00" height="20"><div class="zzz" align="center"><b><p><%=vtitle%>调查结果：</b></p>
</div></td>
</tr>
<tr>
<td vAlign="top" bgColor="#eeeeee">
<div align="center"><center><table class="box1" cellSpacing="0" cellPadding="4"
width="450" align="center" border="0">
<TBODY>
<%
set rsd=server.CreateObject("adodb.recordset")
strsql="select sum(vnum) vn from tblvotes where vid=" & vid
rsd.Open strsql,conn
vn=rsd("vn")
rsd.Close
strsql="select vtitle,vnum from tblvotes where vid=" & vid & " order by vtitle desc"
i=1
rsd.Open strsql,conn
while not rsd.EOF
%>
<tr>
<td class="zzz" width="30%" align="right" height=30><%=rsd("vtitle")%></td>
<td class="zzz" width="60%" valign="center"><img src="images/v<%=i%>.gif" width=<%=400*rsd("vnum")/vn%> height=15></td>
<td class="zzz" width="10%" height=30><%=formatnumber(rsd("vnum")/vn,4)*100%>%</td>
</tr>
<%
rsd.MoveNext
i=i+1
wend
%>
</TBODY>
</table>
</center></div><p><br>
</p>
</td>
</tr>
</TBODY>
</table>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -