<% =Title %>

<% '******************************** '官方网站:http://www.ztren.com 'E-mail:ishell@163.com '发布日期:2009-11-17 '******************************** '页面执行时间 dim startime startime=timer() '数据库连接 Dim conn,connstr on error resume next connstr="DBQ="+server.mappath("#Date.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"'数据库连接地址 Set conn=Server.CreateObject("ADODB.CONNECTION") conn.open connstr '设置统计名称 dim Title Title="非零坊『统计v3.3』" '统计名称 %> <% =Title %> <% Set mRs=Server.CreateObject("adodb.recordSet") Sql="Select * from [Counter]" mRs.open Sql,conn,1,1 %>

总浏览量：	<% =mRs("Counter") %>	最高浏览量：	<% =mRs("Top") %>

总IP量：	<% =mRs("CounterIp") %>	最高IP量：	<% =mRs("TopIp") %>

今日IP量：	<% =mRs("Today") %>	昨日IP量：	<% =mRs("YesterdayIp") %>

今日浏览量：	<% =mRs("Browser") %>	昨日浏览量：	<% =mRs("Yesterday") %>

平均日IP量：	<% =int(mRs("CounterIp")/mRs("Daynum")) %>	统计天数：	<% =mRs("Daynum") %>

平均日浏览量：	<% =int(mRs("Counter")/mRs("Daynum")) %>

<% '修改下面的数字"7"可以改为任意天数 Set mRs=Server.CreateObject("adodb.recordSet") Sql="Select top 7 * from [Day] order by Id desc" mRs.open Sql,conn,1,1 If mRs.eof and mRs.bof then Response.Write "暂时没有往日统计记录" End If do while not mRs.eof %> <% mRs.movenext loop mRs.close set mRs=nothing %>

日期	IP访问量	浏览访问量
<% =mRs("Zday") %>	<% =mRs("Stats") %>	<% =mRs("Browser") %>

<% '显示今日最新IP,修改下面的数字"25"可以改为任意条数的IP Set mRs=Server.CreateObject("adodb.recordSet") Sql="Select top 25 * from [Ip] order by Id desc" mRs.open sql,conn,1,1 If Not(mRs.eof and mRs.bof) then Response.Write"" For I = 1 to 10 Response.Write "" For J=1 to 5 Response.Write "" mRs.movenext If mRs.eof then exit for Next Response.Write "" If mRs.eof then exit for Next Response.Write "

"& mRs("Ip") &"

" End If mRs.close set mRs=nothing conn.close set conn=nothing %>