tongji.asp

来自「不出错的ASP整站源码。 后台//本机目录地址/login.asp(admin」· ASP 代码 · 共 17 行

<!--#include file="conn.asp"-->
<%
dim bbsurl,bbs1
bbsurl="http://www.6kbbs.net/bbs"     '论坛地址绝对路径，末尾不能加上 /		
set bbs1=conn.execute("select * from config") 
%>
document.write("<style type='text/css'><!--.css {  font-size: 9pt}--></style><%
response.write"<table border='0' class=css cellpadding='0' cellspacing='0' style='border-collapse: collapse'><tr><td><p align='left'>"
response.write"·论坛帖数："&bbs1("allnum")&" 帖<br>"
response.write"·论坛主题："&bbs1("topicnum")&" 帖<br>"
response.write"·今日帖数：<font color='#FF0000'>"&bbs1("todaynum")&"</font> 帖<br>"
response.write"·会员人数："&bbs1("usernum")&" 人<br>"
response.write"·最后注册：<a href="&bbsurl&"/userinfo.asp?userid="&split(bbs1("newuser"),"|")(0)&">"&split(bbs1("newuser"),"|")(1)&"</a><br>"
response.write"·在线人数：<font color='#FF0000'>"&conn.execute("select count(userid) from online")(0)&"</font> 人<br>"
response.write"·最高日帖："&bbs1("maxtopic")&" 帖<br>"
response.write"·最高在线："&bbs1("maxonline")&" 人<br></p></td></tr></table>"
set bbs1=nothing%>");