tongji.asp

是运行在asp环境下寻梦书库管理系统

<!--#include file="top.asp"-->
<!--#include file="chk.asp"-->
<!--#include file="inc/conn.asp"-->
<blockquote><blockquote><br><br>--------------------------<br>
<%
dim hit,strn
hit=0
strn=0
	on error resume next 
sql="select bookid,hit,strn from book order by bookid desc"
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1
totbook=Rs.recordcount
Response.Write "书籍总数　 "&totbook&" 种<br>"
dim h1
h1=1
do while not Rs.eof
hit_b=Rs("hit")
strn_b=Rs("strn")
		h1=h1+1
                hit=hit+hit_b
                strn=strn+strn_b
		Rs.movenext
if h1>10000 then exit do
	loop
        set Rs=nothing
	Rs.close

hitw=formatnumber(hit/10000,2,-1)
Response.Write "总点击　　 "&hitw&" 万次<br>"
avhit=hit/totbook
avhit=formatnumber(avhit,0,-1)
Response.Write "平均点击　 "&avhit&" 次<br>"
strn=formatnumber(strn/10000,0,-1)
Response.Write "总字数　　 "&strn&" 万<br>"

article=0

sqlr="select id from read order by id desc"
set Rsr = Server.CreateObject("ADODB.Recordset")
Rsr.open sqlr,conn,1,1
article=article+Rsr.recordcount
        set Rsr=nothing
	Rsr.close

Response.Write "文章总数　 "&article&" 篇<br>"

sql_pl="select * from pinglun where shenhe=1 order by id desc "
set Rs_pl = Server.CreateObject("ADODB.Recordset")
Rs_pl.open sql_pl,conn,1,1
pln=Rs_pl.recordcount
Response.Write "评论总数　 "&pln&" 篇<br>"

set rst=server.createobject("adodb.recordset")
sqlt="select * from tongji where tjid=1"
rst.open sqlt,conn,1,3
rst("book")=totbook
rst("hit")=hit
rst("pln")=pln
rst("strn")=strn
rst("avhit")=avhit
rst("article")=article
rst("time")=now()
rst.update
rst.close
Response.Write "统计数据写入数据库完毕！<br>"
conn.close
set conn=nothing
%>
--------------------------<br>
</blockquote></blockquote>