count.asp

一个不错的论坛原代码

<!--#include file="connections.asp"-->
<%sqltt="select n_num,t_num,r_num,o_num,o_time,h_tjnowday,h_tjpreday,h_tjnowmonth,h_tjpremonth,h_tjtoday,h_tjmonth,h_tjstart,tongji,tongji1,tongjiip,h_posttoday,h_replytoday,h_regtoday from total"
set rstt=conn.execute(sqltt)
n_num=rstt("n_num")
t_num=rstt("t_num")
r_num=rstt("r_num")
h_tjnowday=rstt("h_tjnowday")
h_tjpreday=rstt("h_tjpreday")
h_tjnowmonth=rstt("h_tjnowmonth")
h_tjpremonth=rstt("h_tjpremonth")
h_tjtoday=rstt("h_tjtoday")
h_tjmonth=rstt("h_tjmonth")
h_regtoday=rstt("h_regtoday")
h_replytoday=rstt("h_replytoday")
h_posttoday=rstt("h_posttoday")
tongji1=rstt("tongji1")
set rstt=nothing
sql="select count(o_username) as o_user from online"
set rs=conn.execute(sql)
o_user=rs("o_user")
set rs=nothing




	'--------结束统计--------
	'--------开始写出统计数据--------
News =News&"&nbsp;&nbsp;注册会员:"&n_num&"<BR>" 
News =News&"&nbsp;&nbsp;论坛总帖:"&t_num+r_num&"<BR>" 
News =News&"&nbsp;&nbsp;今日注册:"&h_regtoday&"<BR>" 
News =News&"&nbsp;&nbsp;论坛主题帖:"&t_num&"<BR>" 
News =News&"&nbsp;&nbsp;论坛回复帖:"&r_num&"<BR>" 
News =News&"&nbsp;&nbsp;今日主题帖:"&h_posttoday&"<BR>" 
News =News&"&nbsp;&nbsp;今日回复帖:"&h_replytoday&"<BR>" 
News =News&"&nbsp;&nbsp;论坛访问人数:"&tongji1&"<BR>" 
News =News&"&nbsp;&nbsp;上月浏览人数:"&h_tjpremonth&"<BR>" 
News =News&"&nbsp;&nbsp;本月浏览人数:"&h_tjnowmonth&"<BR>" 
News =News&"&nbsp;&nbsp;昨日浏览人数:"&h_tjpreday&"<BR>" 
News =News&"&nbsp;&nbsp;本日浏览人数:"&h_tjnowday&"<BR>"
News =News&"&nbsp;&nbsp;当前在线人数:"&o_user&""
Response.Write ("document.write('"&News&"');") 
	%>