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

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

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

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

我以ACCESS庫為例子，其實(shí)用SQL?SERVER庫也只要改一下鏈接庫的語句就得啦，

庫結(jié)構(gòu)如下

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

表名：tab

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

ID??????自動(dòng)編號?????訪客的編號

IP??????文本?????????用于記錄訪客的IP

dat1????日期時(shí)間?????用于記錄訪客最后訪問的時(shí)間

dat?????日期時(shí)間?????用于記錄訪客第一次訪問的時(shí)間

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

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

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

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)前的日期時(shí)間，

rs("dat1")=date?'記下當(dāng)前的日期，以后用來做第一次訪問的日期，

response.cookies("keren")=rs("id")?'寫入一個(gè)cookies，內(nèi)容就和ID一樣。

response.cookies("keren").expires=date+365?'設(shè)置cookies的有效日期從現(xiàn)在開始，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?'好啦，找到啦，把訪問次數(shù)加上1

rs("ip")=request.servervariables("remote_addr")?'看看他的IP是多少了，記下來。

rs("dat")=now?'記下現(xiàn)在的時(shí)間，也就是最后一次訪問的時(shí)間，

response.cookies("keren")=rs("id")?'再把cookies寫進(jìn)去，我不知這句是否多余，沒有試。

response.cookies("keren").expires=date+365?'設(shè)置cookies過期時(shí)間，免得一年到了我就不認(rèn)得他了。

end?if

rs.update?'該記的都記下了，更新庫吧。

rs.close?'關(guān)閉recordset對象。

set?conn=nothing?'釋放conn，我還是認(rèn)為connection要隨開隨關(guān)才對，放到SESSION中我認(rèn)為最不可取。4

%>

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

程序?qū)懞昧?#xff0c;怎么放到頁面中呢？很簡單，在首頁上隨便找個(gè)地方，加上這行代碼：就行了。?

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

文件名：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")?'分頁數(shù)，當(dāng)前分頁

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

pa=request("pa")

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

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

session("contpag")=page3

session("contpa")=pa

pages=pa?'每頁顯示數(shù)量***************以上一段程序用于實(shí)現(xiàn)分頁功能

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以下一段程序用于分頁顯示

%>

卓越電腦統(tǒng)計(jì)

共有條記錄，現(xiàn)在是第頁????每頁顯示：[&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)?'當(dāng)前記錄號=每頁顯示數(shù)*頁數(shù)-每頁顯示數(shù)

if?sn>zs?then?sn=0

rs.move?sn,1

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

%>??

?

編號

最后訪問首頁

最后訪問IP

首頁次數(shù)

首次訪問日期

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

%>

合計(jì)訪問次數(shù)為100次以上的有?訪問次數(shù)為1的有：總訪問次數(shù)今天訪問量：

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

您可以稍加改動(dòng)，加入更多功能，好啦，最后請大家關(guān)注阿余的網(wǎng)站：??http://www.zydn.net

這里有這個(gè)小程序的演示，

相關(guān)文章

Asp下實(shí)現(xiàn)多表單域無組件文件上傳的實(shí)例...2007-11-11

好多朋友做了下載站，但經(jīng)常被盜鏈的嚴(yán)重，所以大家可以用這個(gè)方法隱藏真實(shí)下載地址。讓別人無法看到具體的下載地址。2010-04-04

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

ASP 能快速執(zhí)行你的動(dòng)態(tài)網(wǎng)頁，但你還可以通過緊縮代碼和數(shù)據(jù)庫連接以使它們執(zhí)行更快。2009-01-01

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

asp 獲取url函數(shù)小結(jié)，需要的朋友可以參考下。2009-11-11

日期轉(zhuǎn)換星座函數(shù),參數(shù)是日期型的，需要的朋友可以參考下。2010-04-04

使用ASP刪除指定IIS站點(diǎn)...2007-01-01

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

學(xué)習(xí)asp的朋友需要了解下2008-11-11

最新評論

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。