一個能對訪問者進行編號、記錄訪問次數、IP、時間的統計制作
2024-05-04 10:58:46
供稿：網友
一個能對訪問者進行編號、記錄訪問次數、IP、時間的統計制作實例
我做了一個網站，www.zydn.net 當然啦，跟大家一樣，也擺了個計數器在上面，每天看計數器都在不斷的翻，心里很高興，不過后來我又想，到底是誰看了我的網站?。渴切屡笥堰€是老朋友??？也不知他們來了多少次，我還想給他們都編上號，于是我申請了 免費統計，不過一連換了N個都不滿意，唉，看來，只有自己動手才能豐衣足食了，說干就干，水平臭臭，還望高手笑話之于，不訪指教。
我以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一樣。
