做一個簡單的網站統計

設計思路：利用用戶網頁請求時觸發服務器sessionid來記錄用戶的登錄狀態，由于每個網頁請求活動最多的是conn.asp這個文件，我們利用這個文件來做在線用戶的信息處理，當用戶20分鐘內沒有網頁請求時，就清除這個用戶。

1、數據表：我們在數據庫中加入兩個表
line表：sessionid 字符型 20位 用于記錄客戶網頁請求的唯一標記
userdate 日期時間型 用于記錄客戶最后一次網頁請求的時間
id 自動編號型
你也可以在這個表中記錄用戶的其它信息，如帳號、IP等信息
count表：userdate 日期時間型 用于記錄當天的日期
count 數字型 用于記錄網站點擊量
today 數字型 用于記錄今天的訪問量
max 數字型 用于記錄日最大訪問量
在這個表中，由于只有一條記錄，所以用不著id這個字段，但保留id字段是一個好的習慣

2、利用conn.asp來處理line表

(1)連接數據庫
dim conn
dim connstr
dim db
db="date/date.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr

(2)清空超時的記錄
conn.execute("delete from line where datediff(""s"",userdate,now())>=1200")

(3)記錄客戶信息至line表，并進行站點統計處理
dim sql,sql1,rs,rs1
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from line where [sessionid]=""&session.sessionid&""" "判斷客戶是否最初的網頁請求
rs.open sql,conn,1,3
if not rs.eof then "如果是最初的網頁請求，就記錄客戶信息，否則只更改請求時間
rs("userdate")=now()
else
Set rs1=Server.CreateObject("ADODB.Recordset") "以下部分做站點統計
sql1="select * from [count]"
rs1.open sql1,conn,1,3
if rs.eof then "如果表中沒有記錄，就初始化這個表
rs.addnew
rs("count")=1
rs("max")=1
rs("today")=1
rs("userdate")=date()
else
rs1("count")=rs1("count") 1 "網站點擊量計數
if rs1("userdate")=date() then "如果系統日期和數據記錄的最后日期相同，把當日訪問量加1
rs1("today")=rs1("today") 1
else ‘如果不同，把日訪問量置1，數據記錄日期改為服務器日期
rs1("today")=1
rs1("userdate")=date()
end if
rs1.update
if rs1("max")<=rs1("today") then ’如果當日統計數超出最大日訪問量，更新最大日訪問量
rs1("max")=rs1("today")
end if
end if
rs1.update
rs1.close
set rs1=nothing

rs.addnew "以下是記錄用戶的信息
rs("sessionid")=session.sessionid "把sessionid寫入數據表
rs("userdate")=now() 把系統日期寫入數據表
end if
rs.update
rs.close
set rs=nothing

以上的處理只是準備好了統計信息，用于網站統計的代碼如下，我們用line.asp作為文件名
<!--#include file="conn.asp"-->
<% dim count,today,max,line
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from [count]"
rs.open sql,conn,1,1
today=rs("today")
count=rs("count")
max=rs("max")
rs.close
set rs=nothing
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select count(*) from line"
rs.open sql,conn,1,1
line=rs(0)
rs.close
set rs=nothing
%>
以上我們準備好了網站統計信息，分別放在變量count,today,max,line中，在.asp網頁中，我們可以用response.write 來輸出，用include來引用，但在html文檔中，肯定是不行的，所以我們得用下面的語句來輸出統計內容：
document.write ("網站訪問量：<%=count%>人<br>")
document.write("今天有：<%=today%>人訪問了本站<br>")
document.write("本站的最高日訪問量：<%=max%>人<br>")
document.write("當前在線：<%=line%>人")
我們用<script src="line.asp" ></script>來引用這個文件 就可以了