📄 votedetail_1.asp
字号:
<!--#include file="../include/connstr.asp"-->
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>调查系统</title>
<meta name="Microsoft Border" content="none">
<link href="../Include/mycss.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<%
set rs_sum=server.CreateObject("adodb.recordset")
sql_sum="select sum(result) as a1 from tResearchAns where QuestionID="&request("que_id_temp")
rs_sum.open sql_sum,conn,1,1
total=rs_sum("a1")
' response.write "total="&total&"<br>"&request("que_id_temp")
' response.end
set rs=server.CreateObject("adodb.recordset")
sql="select * from tResearchAns where QuestionID="&request("que_id_temp")
rs.open sql,conn,1,1
' response.write "<table cellspacing=0 cellpadding=0 border=1 valign='middle' width='100%' height='100%' align='center' bordercolor='#ffffff' ><tr><td bgcolor='#f7f3f7' bordercolor='#808080'>"
' response.write "<p align=center>::: 调 查 结 果 :::</p>" %>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="27" align="center" class="fontleft"><strong>::: 调 查 结 果
:::</strong></td>
</tr>
</table>
<br> <p class="fontleft">[目前共有<%=total%>人参与本站调查]<br>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<% do while not rs.eof
selectx=(rs("result")/total)*100
%>
<tr>
<td width="29%" height="23" class="fontleft"> <%=rs("Title")&":"%></td>
<td width="71%" class="fontleft">
<% response.write "<img src=images/redbar.gif width="&int(selectx*2)&" height=10> "&rs("result")&"人 占:"&round(selectx,2)&" %"%>
</td>
</tr>
<%
rs.movenext
loop
%>
</table></td>
</tr>
</table>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -