forumstat.asp

asp构建网站bbs.采用B/S架构

<!--#include file="up.asp"--><br><br>
<div align='center'>
  <center><table border=0 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor=#111111 width=98% ><tr>
    <td bgcolor=<%=c1%> width=100% background=pic/<%=sp%>3.gif height=23>&nbsp;<img border=0 src=pic/fl.gif> <font color=#FFFFFF><b>帖 子 统 计 图 例</b></font></td></tr></table>
  </center> 
   </div>
<%tietotal=myconn.execute("select count(*)from bbs"&totable&" where type<>5")(0)
response.write"<table cellpadding=6 cellspacing=0 width=98% align=center border=1 style='border-collapse: collapse' bordercolor='"&c1&"'><tr><th width='22%'>版面名称</th><th width='64%'>图形比例</th><th width='8%'>总帖数</th></tr>"
set fen=myconn.execute("select bdname,bn from bdinfo where key<>'0'")
do while not fen.eof
tie=myconn.execute("select count(*)from bbs"&totable&" where type<>5 and bd="&fen("bn")&"")(0)
chang=cint(tie/tietotal*450)
response.write"<tr><td align=center>"&fen("bdname")&"</td><td><img src=img/bar2.gif width="&chang&" height=10></td><td align=center><font color=red>"&tie&"</font></td></tr>"
set tie=nothing
fen.movenext
loop
set fen=nothing
response.write"<tr><td><font color=red><center>全站统计</center></font></td><td><img src=img/bar1.gif width=450 height=10></td><td align=center>"&tietotal&"</table>"
%><br><hr color=<%=c1%> size=1 width=98%>
<!--#include file="down.asp"-->