?? 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="迅捷網(wǎng)上調(diào)查投票結(jié)果"
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> 調(diào)查結(jié)果</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> 人參與本站調(diào)查"&_
"<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>"
'==========================================
'程序制做:迅捷網(wǎng)絡(luò). http://www.soonhost.com
'迅捷主機(jī)網(wǎng) -- 域名注冊、主機(jī)租用、網(wǎng)站建設(shè)、腳本開發(fā)
'網(wǎng)址:http://www.soonhost.com
'msn:soonhost@hotmail.com
'請保留以上版權(quán)信息,謝謝合作!
'==========================================
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -