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

更新時間：2006年12月05日 00:00:00 ? 作者：

一個能對訪問者進行編號、記錄訪問次數、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一樣。

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

%>

好啦，記錄就做好啦，有二十幾行代碼，很簡單的一個小程序，但我想，高手肯定還有高招，有高招的朋友不忘了教教阿余，

程序寫好了，怎么放到頁面中呢？很簡單，在首頁上隨便找個地方，加上這行代碼：就行了。?

接下來就是把記錄顯示出來，這個能做得比阿余好的人多的是，不過還是來現個丑。

文件名：dispcont.asp?,?請看代碼：

Set?Conn=Server.CreateObject("ADODB.Connection")

Connstr="DBQ="+server.mappath("cont.asp")+";DefaultDir=;DRIVER={Microsoft?Access?Driver?(*.mdb)};"

Conn.Open?connstr?'*****以上語句用于連接庫，cont.asp是庫文件名。

page3=request("pag")

if?page3=""?then?page3=session("contpag")?'分頁數，當前分頁

if?page3=""?then?page3="1"

pa=request("pa")

if?pa=""?then?pa=session("contpa")?'每頁顯示數

if?pa=""?then?pa=15?'默認每頁顯示15條，可任意改

session("contpag")=page3

session("contpa")=pa

pages=pa?'每頁顯示數量***************以上一段程序用于實現分頁功能

SQL="SELECT?*?FROM?tab?order?by?-dat,-id"

dim?rs

Set?rs=Server.CreateObject("ADODB.RecordSet")

rs.Open?sql,conn,1,1

csi=0

cs1=0

cs100=0

csdat1=0

do?while?not?rs.eof

csi=csi+rs("cs")

if?rs("cs")=1?then?cs1=cs1+1

if?rs("cs")>=100?then?cs100+1

if?datevalue(rs("dat"))=date?then

csdat1=csdat1+1

end?if

rs.movenext

loop

ZS=RS.RECORDCOUNT

'*****************************************************8以下一段程序用于分頁顯示

%>

卓越電腦統計

共有條記錄，現在是第頁????每頁顯示：[&pa=15">15]條、[&pa=20">20]條、[&pa=30">30]條、[&pa=40">40]條

[刷新]

頁碼

for?i=1?to?zs?step?pages

if?page3=cstr(page2)?then

%>

[] ">[]

page2=page2+1

next

sn=pages*(page3-1)?'當前記錄號=每頁顯示數*頁數-每頁顯示數

if?sn>zs?then?sn=0

rs.move?sn,1

'**********************************以上一段用于分頁

%>??

?

編號

最后訪問首頁

最后訪問IP

首頁次數

首次訪問日期

for?i=1?to?pages

Response.Write?""

Response.Write??"

"&rs("ID")&""

Response.Write??"

"&rs("dat")&""

Response.Write??"

"&rs("IP")&""

Response.Write??"

"&rs("CS")&""

Response.Write??"

"&rs("DAT1")&"?"

Response.Write?""

rs.movenext

if?rs.eof?then?exit?for

next

rs.close

%>

合計訪問次數為100次以上的有?訪問次數為1的有：總訪問次數今天訪問量：

'****************************以上是完整的分頁顯示全部復制下來就可用。沒有考慮一條記錄也沒有的情況。

您可以稍加改動，加入更多功能，好啦，最后請大家關注阿余的網站：??http://www.zydn.net

這里有這個小程序的演示，

相關文章

Asp下實現多表單域無組件文件上傳的實例...2007-11-11

好多朋友做了下載站，但經常被盜鏈的嚴重，所以大家可以用這個方法隱藏真實下載地址。讓別人無法看到具體的下載地址。2010-04-04

ASP代碼的對象化...2006-10-10

ASP 能快速執行你的動態網頁，但你還可以通過緊縮代碼和數據庫連接以使它們執行更快。2009-01-01

一般情況下可以使用fso的createTextFile函數，但有時候我們需要生成utf8格式的文件，那么就可以用下面的函數擴展了2020-08-08

asp 獲取url函數小結，需要的朋友可以參考下。2009-11-11

日期轉換星座函數,參數是日期型的，需要的朋友可以參考下。2010-04-04

使用ASP刪除指定IIS站點...2007-01-01

有時候通過程序上傳木馬，一般都是偽裝成圖片,下面是asp下檢測圖片木馬的代碼，需要的朋友可以參考下。2010-09-09

學習asp的朋友需要了解下2008-11-11

最新評論

總結

以上是生活随笔為你收集整理的php记录访问者ip和次数,一个能对访问者进行编号、记录访问次数、IP、时间的统计制作实例...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。