tongji.asp

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

<%
'##################################################################
'# 首页调用统计资料 插件 for 6KBBS[SU]
'# 调用方法：<script src='tongji.asp'></script>
'# 6KSU1.1[痞子NET]版
'# 主页 http://d9pd.51.net
'# 论坛 http://jwclub.126.com http://jwclub.9126.com[戒网俱乐部]
'# 我的QQ:283067 Email:[e-mail]
'# 如有技术问题，请到6kbbs官方论坛一起讨论 http://6k.2ya.com
'# 关于此hack版的问题可以到 http://jwclub.9126.com 中讨论 
'##################################################################
%>
<!--#include file="inc.asp"-->
<!--#include file="config.asp"-->
<%
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>"
%>");