📄 view.asp
字号:
<!-- #Include File=../sys.asp -->
<!-- #Include File=../sys/inc/prompt.inc -->
<%
dim rs
dim sql
dim total
call conned()
set rs=server.createobject("adodb.recordset")
sql="select * from vote "
rs.open sql,conn,1,3
state="迅捷网上调查投票结果"
call top()
response.write "<body></p><p> </p><table width=400 cellspacing=0 cellpadding=2 bordercolor=#000000 border=1 align=center >"&_
"<tr bgcolor=#FFCC99>"&_
"<td height=26 width=219> "&_
"<div align=left><img src=../sys/image/voted.gif width=17 height=17> 调查结果</div>"&_
"</td>"&_
"<td height=26 width=60> "&_
"<div align=right><img src=../sys/image/admin.gif width=16 height=16> <a href=ad_view.asp target=_blank>管理</a></div>"&_
"</td>"&_
"</tr>"&_
"<tr> "&_
"<td colspan=2> "&_
"<p align=left><br>"
if rs.eof then
ErrMsg=ErrMsg+"<Br>"+"<li>目前还没有人投票,欢迎您参加!"
call error()
response.end
end if
rs.movefirst
do while not rs.eof
total=total+rs("bselectnumber")
if total=0 then total =1 end if
rs.movenext
loop
rs.movefirst
do while not rs.eof
response.write rs("bselect")&"：<img src=../sys/image/bar3.gif width="&int(rs("bselectnumber")/total*100*2)&" height=10> "&rs("bselectnumber")&"人. 占："&left(cstr((rs("bselectnumber")/total)*100),5)&"%<br><br>"
rs.movenext
loop
Rs.Close
Conn.Close
Set Rs=Nothing
Set Conn=Nothing
response.write "</p></td></tr><tr><td colspan=2>"&_
"<div align=center>目前共有 <font color=#FF0000>"&total&"</font> 人参与本站调查"&_
"<b> ----<a href=javascript:history.go(-1)> 返回</a> </font></b></div>"&_
"</td>"&_
"</tr>"&_
"<tr bgcolor=#FFCC99>"&_
"<td colspan=2>"&_
"<div align=center>"&homename&_
" Ver4.0 <a href=http://www.soonhost.com/>查看最新版本</a>"&_
"</td>"&_
"</tr>"&_
"</table>"&_
"<p><br>"&_
"</body>"&_
"</html>"
'==========================================
'程序制做:迅捷网络. http://www.soonhost.com
'迅捷主机网 -- 域名注册、主机租用、网站建设、脚本开发
'网址：http://www.soonhost.com
'msn:soonhost@hotmail.com
'请保留以上版权信息，谢谢合作！
'==========================================
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -