談Access為后臺數據庫的網站統計系統

2024-09-07 19:03:56

字體：大中小

來源：轉載

供稿：網友

一個能對訪問者進行編號、記錄訪問次數、IP、時間的統計制作實例

我以ACCESS庫為例子，其實用SQL SERVER庫也只要改一下鏈接庫的語句就得啦，庫結構如下

庫文件名：　CONT.ASP 本來是CONT.MDB但在建好后把擴展名改為了ASP,以防庫被下載。

表名：tab

字段名　數據類型　說明

ID　　　自動編號　　訪客的編號

IP　　　文本　　　　用于記錄訪客的IP

dat1　　日期時間　　用于記錄訪客最后訪問的時間

dat　　日期時間　　用于記錄訪客第一次訪問的時間

CS　　　數字，整型　用于記錄訪客訪問次數

程序很簡單，只有兩個文件，dispcont.asp　用于顯示統計結果，contpage.asp用于統計信息，

先看看CONTPAGE.ASP 是乍么統計的，代碼如下：

以下為引用的內容：
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ=" server.mappath("cont.asp") ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Conn.Open connstr ‘’*****以上語句用于連接庫，cont.asp是庫文件名。
keren=request.cookies("keren") ‘’讀取cookies,cookies的名為：“keren”,哈哈。。阿余的E文學的臭，只懂用拼音啦。
if keren="" then ‘’判斷cookees是不是空，如果是空，那么肯定是新朋友啦，否則是老朋友。
sql="SELECT * FROM tab where id=-1"
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,conn, 1, 3
rs.addnew ‘’如果是新訪客的話，在庫中新增一條記錄。
rs("cs")=1 ‘’記下訪問次數為1
rs("ip")=request.servervariables("remote_addr") ‘’記下IP，
rs("dat")=now ‘’記下當前的日期時間，
rs("dat1")=date ‘’記下當前的日期，以后用來做第一次訪問的日期，
response.cookies("keren")=rs("id") ‘’寫入一個cookies，內容就和ID一樣。
response.cookies("keren").expires=date 365 ‘’設置cookies的有效日期從現在開始，365天，
else ‘’以上是新朋友的處理辦法，對老朋友怎么辦呢？看下面的：
sql="SELECT * FROM tab where id="&keren ‘’到庫中去找出我們老朋友的記錄
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,conn, 1, 3
rs("cs")=rs("cs") 1 ‘’好啦，找到啦，把訪問次數加上1
rs("ip")=request.servervariables("remote_addr") ‘’看看他的IP是多少了，記下來。
rs("dat")=now ‘’記下現在的時間，也就是最后一次訪問的時間，
response.cookies("keren")=rs("id") ‘’再把cookies寫進去，我不知這句是否多余，沒有試。
response.cookies("keren").expires=date 365 ‘’設置cookies過期時間，免得一年到了我就不認得他了。
end if
rs.update ‘’該記的都記下了，更新庫吧。
rs.close ‘’關閉recordset對象。
set conn=nothing ‘’釋放conn，我還是認為connection要隨開隨關才對，放到SESSION中我認為最不可取。4
%>