ASP實例：Access為后臺數(shù)據(jù)庫的網(wǎng)站統(tǒng)計系統(tǒng)_ASP教程
      
編輯Tag賺U幣
      


      教程Tag：暫無Tag,歡迎添加,賺取U幣!
      


      

      推薦：動態(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)容：
      

            
      <% 
      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") ‘’分頁數(shù)，當前分頁 
      if page3="" then page3="1" 
      

            
      pa=request("pa") 
      if pa="" then pa=session("contpa") ‘’每頁顯示數(shù) 
      if pa="" then pa=15 ‘’默認每頁顯示15條，可任意改 
      session("contpag")=page3 
      session("contpa")=pa 
      pages=pa ‘’每頁顯示數(shù)量***************以上一段程序用于實現(xiàn)分頁功能 
      

            
      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>在線統(tǒng)計</title> 
      </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]條         
      [<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) ‘’當前記錄號=每頁顯示數(shù)*頁數(shù)-每頁顯示數(shù) 
      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>首頁次數(shù)</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>訪問次數(shù)為100次以上的有<%=cs100%> </td><td>訪問次數(shù)為1的有：<%=cs1%></td><td>總訪問次數(shù)<%=csi%></td><td>今天訪問量：<%=csdat1%></td></tr>  
      </table> 
      

                  		

        
      

          


      


      


      ‘’****************************以上是完整的分頁顯示全部復(fù)制下來就可用。沒有考慮一條記錄也沒有的情況。
      分享：用ASP編寫的俄羅斯方塊游戲
      以下為引用的內(nèi)容：

            <%If Not Request.QueryString("Ven") = "T" then%> <HTML> <HEAD> <META NAME
      


      

      


      來源：模板無憂//所屬分類：ASP教程/更新時間：2008-08-22


      


      



      


      



      相關(guān)ASP教程：