ASP實例：Access為后臺數據庫的網站統計系統_ASP教程
推薦：動態網頁愛好者來看：Asp過濾HTML的函數Asp過濾Html代碼 以下為引用的內容： Function RemoveHTML(strHTML) Dim objRegExp, Match, Matches Set objRegExp = New Regexp obj
一個能對訪問者進行編號、記錄訪問次數、IP、時間的統計制作實例
我以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 %> |
好啦，記錄就做好啦，有二十幾行代碼，很簡單的一個小程序，程序寫好了，怎么放到頁面中呢？很簡單，在首頁上隨便找個地方，加上這行代碼：<img src="contpage.asp" width="0" height="0">就行了。
接下來就是把記錄顯示出來。
文件名：dispcont.asp ，請看代碼：
| 以下為引用的內容： <% 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%>條記錄，現在是第<%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]條 |
‘’****************************以上是完整的分頁顯示全部復制下來就可用。沒有考慮一條記錄也沒有的情況。
分享：用ASP編寫的俄羅斯方塊游戲以下為引用的內容： <%If Not Request.QueryString("Ven") = "T" then%> <HTML> <HEAD> <META NAME
- 相關鏈接：
- 教程說明：
ASP教程-ASP實例：Access為后臺數據庫的網站統計系統
。