推薦：動態網頁愛好者來看：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 ，請看代碼：
| 以下為引用的內容： <% 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) ' '分頁數，當前分頁 if page3= then page3=1 pa=request(pa) if pa= then pa=session(contpa) ' '每頁顯示數 if pa= then pa=15 ' '默認每頁顯示15條，可任意改 session(contpag)=page3 session(contpa)=pa pages=pa ' '每頁顯示數量***************以上一段程序用於實現分頁功能 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以下一段程序用於分頁顯示 %> <head> <title>在線統計</title> </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]條 [<a href=dispcont.asp>刷新] <div align=left> <table border=0 cellpadding=0 style=font-size: 9pt> <tr><td>頁碼</td><%page2=1 for i=1 to zs step pages if page3=cstr(page2) then %><td >[<%Response.Write page2%>]</td> <% else %> <td ><a href=dispcont.asp?pag=<%Response.Write page2%>>[<%Response.Write page2%>]</td> <% end if page2=page2 1 next sn=pages*(page3-1) ' '當前記錄號=每頁顯示數*頁數-每頁顯示數 if sn>zs then sn=0 rs.move sn,1 ' '**********************************以上一段用於分頁 %> </tr></table> </div> <table style=font-size: 9pt width=100% bordercolorlight=#000000 border=1 bordercolordark=#FFFFFF bgcolor=#A4D1E8 cellspacing=0 cellpadding=3> <tr><td>編號</td><td>最後訪問首頁</td><td>最後訪問IP</td><td>首頁次數</td><td>首次訪問日期</td></tr><% for i=1 to pages Response.Write </tr> Response.Write <td>&rs(ID)&</td> Response.Write <td>&rs(dat)&</td> Response.Write <td>&rs(IP)&</td> Response.Write <td>&rs(CS)&</td> Response.Write <td>&rs(DAT1)& </td> Response.Write </tr> rs.movenext if rs.eof then exit for next rs.close %> <tr><td>合計<%=zs%></td><td>訪問次數為100次以上的有<%=cs100%> </td><td>訪問次數為1的有：<%=cs1%></td><td>總訪問次數<%=csi%></td><td>今天訪問量：<%=csdat1%></td></tr> </table> |
' '****************************以上是完整的分頁顯示全部複製下來就可用。沒有考慮一條記錄也沒有的情況。
分享：用ASP編寫的俄羅斯方塊遊戲以下為引用的內容： <%If Not Request.QueryString(Ven) = T then%> <HTML> <HEAD> <META NAME