📄 view.asp
字号:
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>投票结果</title>
<link rel=stylesheet type=text/css href=css.asa>
</head>
<body bgcolor="#ECF5FF">
<%
ID=Request.QueryString("ID")
IF ID="" THEN Response.write "<script language=javascript>windows.close()</script>"
Set conn=Server.CreateObject("ADODB.Connection")
conn.open ConnStr
Set rs=conn.execute("Select 项目 From 调查 Where ID="&ID)
IF rs.eof THEN Response.write "<script language=javascript>windows.close()</script>"
title=rs(0)
rs.close
rs.open "Select 内容,得票 From 结果 Where 所属="&ID,conn,1,1
vote=rs.GetRows
rs.close
Set rs=nothing
conn.close
Set conn=nothing
total=0
FOR i=0 TO Ubound(vote,2)
total=total+vote(1,i)
NEXT
%>
<center><center><font color="#003300"><b>投票结果显示</b></font></center><br>
<table border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#99CCFF" width="380" id="AutoNumber3" bgcolor="#FEE2CB">
<tr>
<td background="dh.gif"><font size="2"><b><%=title%></b></font> </td>
</tr>
</table><br>
<table border="1" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#99CCFF" width="380" id="AutoNumber2">
<tr>
<td width="97" align="center" background="dh.gif">投票项</td>
<td width="234" align="center" background="dh.gif">百 分 比</td>
<td width="33" align="center" background="dh.gif">得票</td>
</tr>
<%
FOR i=0 TO Ubound(vote,2)
%>
<tr>
<td width="97" height="1" background="dh.gif"> <%=vote(0,i)%></td>
<td width="234" height="1" bgcolor="#FFFFFF">
<img border="0" src="poll.gif" width="<%=Int(85*vote(1,i)/(total+0.0001)+0.5)%>%" height="10"> <%=Int(100*vote(1,i)/(total+0.0001)+0.5)%>%</td>
<td width="33" height="1" bgcolor="#FFFFFF">
<p align="center"><%=vote(1,i)%></td>
</tr>
<%
NEXT
%>
</table>
</center>
<p align="center">【<a href="javascript:window.close()"><font color="#000000">关闭</font></a>】
<body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -