談Access為后臺數據庫的網站統計系統_Access數據庫教程
教程Tag:暫無Tag,歡迎添加,賺取U幣!
推薦:解讀將文本文件轉換為ACCESS數據庫的方法本文向你介紹如何不用借助Access,直接在程序中創建一個數據庫,然后從標準的ASCII文本文件中讀取數據到數據庫中。原文是微軟知識庫中的一篇文章,但當時是針對VB3寫的,所以其中的代
一個能對訪問者進行編號、記錄訪問次數、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 %> |
分享:揭秘十萬條Access數據表分頁的解決方法后臺數據庫用是Access,客戶用了一年后說打開界面非常慢,查看了數據庫后發現數據表中的記錄已有五萬多條,自己試過將記錄復制到10 萬條,打開界面非常慢,翻頁也是同樣的問題,我采用的方
相關Access數據庫教程:
- 相關鏈接:
- 教程說明:
Access數據庫教程-談Access為后臺數據庫的網站統計系統
。