首頁>網絡編程教程>ASP教程

簡單的ASP統計製作實例

作者：Eve Cole 更新時間：2025-02-19 06:12:01

一個能對訪客進行編號、記錄訪問次數、IP、時間的統計製作實例，需要的朋友可以參考下

我做了一個網站，當然啦，跟大家一樣，也擺了個計數器在上面，每天看計數器都在不斷的翻，心裡很高興，不過後來我又想，到底是誰看了我的網站啊?是新朋友還是老朋友啊?也不知他們來了多少次，我還想給他們都編上號，於是我申請了免費統計，不過一連換了N個都不滿意，唉，看來，只有自己動手才能豐衣足食了，說乾就乾，還望高手笑話之於，不訪指教。

我以ACCESS函式庫為例子，其實用SQL SERVER函式庫也只要改一下連結函式庫的語句就得啦，

庫結構如下

庫檔名： CONT.ASP 本來是CONT.MDB但在建好後把擴展名改為了ASP,以防庫被下載。

表名：tab

欄位名資料型態說明

ID 自動編號訪客的編號

IP 文字用於記錄訪客的IP

dat1 日期時間用於記錄訪客最後造訪的時間

dat 日期時間用於記錄訪客第一次造訪的時間

CS 數字，整數用於記錄訪客造訪次數

程式很簡單，只有兩個文件，dispcont.asp 用於顯示統計結果，contpage.asp用於統計信息，

先看看CONTPAGE.ASP 是乍點統計的，程式碼如下：

  1. 〈%SetConn=Server.CreateObject(ADODB.Connection)
  2. Connstr=DBQ=+server.mappath(cont.asp)+;DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};
  3. Conn.Openconnstr'*****以上語句用於連接庫，cont.asp是庫檔名。
  5. keren=request.cookies(keren)'讀取cookies,cookies的名稱為：keren,哈哈。 。阿餘的E文學的臭，只懂用拼音啦。
  6. ifkeren=then'判斷cookees是不是空，如果是空，那麼一定是新朋友啦，否則是老朋友。
  8. sql=SELECT*FROMtabwhereid=-1
  9. setrs=server.createobject(ADODB.Recordset)
  10. rs.Opensql,conn,1,3
  11. rs.addnew'如果是新訪客的話，在庫中新增一筆記錄。
  12. rs(cs)=1'記下訪問次數為1
  13. rs(ip)=request.servervariables(remote_addr)'記下IP，
  14. rs(dat)=now'記下目前的日期時間，
  15. rs(dat1)=date'記下目前的日期，以後用來做第一次造訪的日期，
  16. response.cookies(keren)=rs(id)'寫入一個cookies，內容就跟ID一樣。
  17. response.cookies(keren).expires=date+365'設定cookies的有效日期從現在開始，365天，
  1. else'以上是新朋友的處理辦法，對老朋友怎麼辦呢？看下面的：
  2. sql=SELECT*FROMtabwhereid=&keren'到庫中去找出我們老朋友的記錄
  3. setrs=server.createobject(ADODB.Recordset)
  4. rs.Opensql,conn,1,3
  5. rs(cs)=rs(cs)+1'好啦，找到啦，把訪問次數加1
  6. rs(ip)=request.servervariables(remote_addr)'看看他的IP是多少了，記下來。
  7. rs(dat)=now'記下現在的時間，也就是最後一次造訪的時間，
  8. response.cookies(keren)=rs(id)'再把cookies寫進去，我不知這句是否多餘，沒有試。
  9. response.cookies(keren).expires=date+365'設定cookies過期時間，免得一年到了我就不認得他了。
  1. endif
  3. rs.update'該記的都記下來了，更新庫吧。
  4. rs.close'關閉recordset物件。
  5. setconn=nothing'釋放conn，我還是認為connection要隨開隨關才對，放到SESSION中我認為最不可取。 4%〉

好啦，記錄就做好啦，有二十幾行程式碼，很簡單的一個小程式。

程式寫好了，怎麼放到頁面中呢?很簡單，在首頁上隨便找個地方，加上這行程式碼：〈img src=contpage.asp width=0 height=0〉就行了。

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

檔案名稱：dispcont.asp , 請看程式碼：

  1. 〈%
  2. SetConn=Server.CreateObject(ADODB.Connection)
  3. Connstr=DBQ=+server.mappath(cont.asp)+;DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};
  4. Conn.Openconnstr'*****以上語句用於連接庫，cont.asp是庫檔名。
  6. page3=request(pag)
  7. ifpage3=thenpage3=session(contpag)'分頁數，目前分頁
  8. ifpage3=thenpage3=1
  10. pa=request(pa)
  11. ifpa=thenpa=session(contpa)'每頁顯示數
  12. ifpa=thenpa=15'預設每頁顯示15條，可任意改
  13. session(contpag)=page3
  14. session(contpa)=pa
  15. pages=pa'每頁顯示數量******************以上一段程式用於實現分頁功能
  17. SQL=SELECT*FROMtaborderby-dat,-id
  18. dimrs
  19. Setrs=Server.CreateObject(ADODB.RecordSet)
  20. rs.Opensql,conn,1,1
  21. csi=0
  22. cs1=0
  23. cs100=0
  24. csdat1=0
  25. dowhilenotrs.eof
  26. csi=csi+rs(cs)
  27. ifrs(cs)=1thencs1=cs1+1
  28. ifrs(cs)〉=100thencs100+1
  29. ifdatevalue(rs(dat))=datethen
  30. csdat1=csdat1+1
  31. endif
  32. rs.movenext
  33. loop
  34. ZS=RS.RECORDCOUNT
  35. '************************************************* ****8以下一段程式用於分頁顯示
  36. %〉
  38. 〈head〉
  39. 〈title〉卓越電腦統計〈/title〉
  40. 〈/head〉
  41. 〈bodystyle=font-size:9ptbgcolor=#D8EDF8〉
  42. 共有〈%Response.Writezs%〉筆記錄，現在是第〈%Response.Writepage3%〉頁每頁顯示：[〈ahref=dispcont.asp?pag=〈%=page3%〉&pa=15〉15]條、 [〈ahref=dispcont. asp?pag=〈%=page3%〉&pa=20〉20]條、[〈ahref=dispcont.asp?pag=〈%=page3%〉&pa=30〉30]條、[〈ahref=dispcont.asp? pag=〈%=page3%〉&pa=40〉40]條
  43. [〈ahref=dispcont.asp〉刷新]
  44. 〈divalign=left〉
  45. 〈tableborder=0cellpadding=0style=font-size:9pt〉
  46. 〈tr〉〈td〉頁碼〈/td〉〈%page2=1
  47. fori=1tozssteppages
  48. ifpage3=cstr(page2)then
  49. %〉〈td〉[〈%Response.Writepage2%〉]〈/td〉
  50. 〈%else%〉
  51. 〈td〉〈ahref=dispcont.asp?pag=〈%Response.Writepage2%〉〉[〈%Response.Writepage2%〉]〈/td〉
  52. <%endif
  53. page2=page2+1
  54. next
  55. sn=pages*(page3-1)'目前記錄號=每頁顯示數*頁數-每頁顯示數
  56. ifsn〉zsthensn=0
  57. rs.movesn,1
  58. '**********************************以上一段用於分頁
  59. %〉〈/tr〉〈/table〉
  60. 〈/div〉〈tablestyle=font-size:9ptwidth=100%bordercolorlight=#000000border=1bordercolordark=#FFFFFFbgcolor=#A4D1E8cellspacing=0cellpadding=3〉
  61. 〈tr〉〈td〉編號〈/td〉〈td〉最後訪問首頁〈/td〉〈td〉最後訪問IP〈/td〉〈td〉首頁次數〈/td〉〈td〉首次訪問日期〈/td〉 〈/tr〉〈%
  62. fori=1topages
  63. Response.Write〈/tr〉
  64. Response.Write〈td〉&rs(ID)&〈/td〉
  65. Response.Write〈td〉&rs(dat)&〈/td〉
  66. Response.Write〈td〉&rs(IP)&〈/td〉
  67. Response.Write〈td〉&rs(CS)&〈/td〉
  69. Response.Write〈td〉&rs(DAT1)&〈/td〉
  70. Response.Write〈/tr〉
  71. rs.movenext
  72. ifrs.eofthenexitfor
  73. next
  74. rs.close
  75. %〉
  76. 〈tr〉〈td〉合計〈%=zs%〉〈/td〉〈td〉造訪次數為100次以上的有〈%=cs100%〉〈/td〉〈td〉造訪次數為1的有：〈% =cs1%〉〈/td〉〈td〉總瀏覽次數〈%=csi%〉〈/td〉〈td〉今天訪問量：〈%=csdat1%〉〈/td〉〈/tr〉
  77. 〈/table〉

以上是完整的分頁顯示全部複製下來就可用(注意：沒有考慮一條記錄也沒有的情況)，還是那句話只有自己動手才能豐衣足食，抓緊試驗一下吧!

相關文章