tongji.asp

1.页顶分类菜单——老版本中需要手工修改页面文件来管理分类

<!--#include file="inc.asp"-->
<%
bbsurl="http://www.6kbbs.com/bbs"  '论坛地址绝对路径，末尾不能加上 /		
%>
<%
set bbs1=myconn.execute("select * from bbsinfo") 
newuser=bbs1("newuser")
regno=bbs1("usernum")
tienoa=bbs1("bbsnum")
tieno=bbs1("topicnum")
mosttopic=bbs1("mosttopic")
mostonline=bbs1("mostonline")
todaynum=bbs1("todaynum")
set bbs1=nothing
%><!--#include file="line.asp"-->
document.write("<%
response.write"<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse'><tr><td><p align='left'>"
response.write"□论坛帖数："&tienoa&" 帖<br>"
response.write"□论坛主题："&tieno&" 帖<br>"
response.write"□今日帖数：<font color='#FF0000'>"&todaynum&"</font> 帖<br>"
regno=myconn.execute("select count(name)from user")(0)
response.write"□会员人数："&regno&" 人<br>"
set newuser=myconn.execute("select top 1 name from user order by userid desc")
response.write"□最后注册：<a href="&bbsurl&"/userinfo.asp?name="&kbbs(newuser("name"))&"><font color="&c1&"><u>"&kbbs(newuser("name"))&"</u></font></a><br>"
response.write"□在线人数：<font color='#FF0000'>"&lineno&"</font> 人<br>"
response.write"□最高日帖："&mosttopic&" 帖<br>"
response.write"□最高在线："&mostonline&" 人<br></p></td></tr></table>"
%>");