一個能對訪問者進(jìn)行編號、記錄訪問次數(shù)、IP、時間的統(tǒng)計制作

2024-05-04 10:58:46

字體：大中小

供稿：網(wǎng)友

一個能對訪問者進(jìn)行編號、記錄訪問次數(shù)、IP、時間的統(tǒng)計制作實例

我做了一個網(wǎng)站，www.zydn.net  當(dāng)然啦，跟大家一樣，也擺了個計數(shù)器在上面，每天看計數(shù)器都在不斷的翻，心里很高興，不過后來我又想，到底是誰看了我的網(wǎng)站啊？是新朋友還是老朋友啊？也不知他們來了多少次，我還想給他們都編上號，于是我申請了免費統(tǒng)計，不過一連換了N個都不滿意，唉，看來，只有自己動手才能豐衣足食了，說干就干，水平臭臭，還望高手笑話之于，不訪指教。

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

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

字段名   數(shù)據(jù)類型   說明

ID      自動編號     訪客的編號
IP      文本         用于記錄訪客的IP
dat1    日期時間     用于記錄訪客最后訪問的時間
dat     日期時間     用于記錄訪客第一次訪問的時間

CS      數(shù)字，整型   用于記錄訪客訪問次數(shù)

程序很簡單，只有兩個文件，dispcont.asp  用于顯示統(tǒng)計結(jié)果，contpage.asp用于統(tǒng)計信息，

先看看CONTPAGE.ASP 是乍么統(tǒng)計的，代碼如下：

<%
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文學(xué)的臭，只懂用拼音啦。
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 '記下訪問次數(shù)為1
rs("ip")=request.servervariables("remote_addr") '記下IP，
rs("dat")=now '記下當(dāng)前的日期時間，
rs("dat1")=date '記下當(dāng)前的日期，以后用來做第一次訪問的日期，
response.cookies("keren")=rs("id") '寫入一個cookies，內(nèi)容就和ID一樣。

上一篇：atom_js.asp

下一篇：asp下載防盜鏈代碼