ASP實例:Access為后臺數(shù)據(jù)庫的網(wǎng)站統(tǒng)計系統(tǒng)_ASP教程
推薦:動態(tài)網(wǎng)頁愛好者來看:Asp過濾HTML的函數(shù)Asp過濾Html代碼 以下為引用的內(nèi)容: Function RemoveHTML(strHTML) Dim objRegExp, Match, Matches Set objRegExp = New Regexp obj
一個能對訪問者進行編號、記錄訪問次數(shù)、IP、時間的統(tǒng)計制作實例
我以ACCESS庫為例子,其實用SQL SERVER庫也只要改一下鏈接庫的語句就得啦,庫結(jié)構(gòu)如下
庫文件名: CONT.ASP 本來是CONT.MDB但在建好后把擴展名改為了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)計的,代碼如下:
以下為引用的內(nèi)容: <% 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 ‘’記下當前的日期時間, rs("dat1")=date ‘’記下當前的日期,以后用來做第一次訪問的日期, response.cookies("keren")=rs("id") ‘’寫入一個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)在的時間,也就是最后一次訪問的時間, response.cookies("keren")=rs("id") ‘’再把cookies寫進去,我不知這句是否多余,沒有試。 response.cookies("keren").expires=date 365 ‘’設(shè)置cookies過期時間,免得一年到了我就不認得他了。 end if rs.update ‘’該記的都記下了,更新庫吧。 rs.close ‘’關(guān)閉recordset對象。 set conn=nothing ‘’釋放conn,我還是認為connection要隨開隨關(guān)才對,放到SESSION中我認為最不可取。4 %> |
好啦,記錄就做好啦,有二十幾行代碼,很簡單的一個小程序,程序?qū)懞昧耍趺捶诺巾撁嬷心兀亢芎唵危谑醉撋想S便找個地方,加上這行代碼:<img src="contpage.asp" width="0" height="0">就行了。
接下來就是把記錄顯示出來。
文件名:dispcont.asp ,請看代碼:
以下為引用的內(nèi)容: <% page3=request("pag") pa=request("pa") SQL="SELECT * FROM tab order by -dat,-id" <head> <body style="font-size: 9pt" bgcolor="#D8EDF8"> 共有<%Response.Write zs%>條記錄,現(xiàn)在是第<%Response.Write page3%>頁 每頁顯示:[<a href="dispcont.asp?pag=<%=page3%>&pa=15">15]條、[<a href="dispcont.asp?pag=<%=page3%>&pa=20">20]條、[<a href="dispcont.asp?pag=<%=page3%>&pa=30">30]條、[<a href="dispcont.asp?pag=<%=page3%>&pa=40">40]條 |
‘’****************************以上是完整的分頁顯示全部復(fù)制下來就可用。沒有考慮一條記錄也沒有的情況。
分享:用ASP編寫的俄羅斯方塊游戲以下為引用的內(nèi)容: <%If Not Request.QueryString("Ven") = "T" then%> <HTML> <HEAD> <META NAME
- 相關(guān)鏈接:
復(fù)制本頁鏈接| 搜索ASP實例:Access為后臺數(shù)據(jù)庫的網(wǎng)站統(tǒng)計系統(tǒng)
- 教程說明:
ASP教程-ASP實例:Access為后臺數(shù)據(jù)庫的網(wǎng)站統(tǒng)計系統(tǒng)。