用ASP程序實現網站在線人數統計_ASP教程
      
編輯Tag賺U幣
      


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


      

      推薦：ASP例子：ASP把漢字轉化為拼音的函數
      拼音不夠全面，不推薦使用，學習一下方法而已～



    

        

            以下為引用的內容：
<% 
    Set d = CreateObject("Scripting.Dictionary") 
    d.add &quo
      在瀏覽網頁的時侯，常�？梢钥匆娨恍�“當前網站上的人數是ＸＸＸ人”的在線人數同計。如何用ASP來做一個呢？首先，分析一下它的做法，一般來說，這些線上人數統計都是指一個時段內的訪客人數統計。比如（5分鐘內，10分鐘內）而這個時間的長短，是由設計者設定的。 
      


      在這個時段內同計各個不同ＩＰ的訪客總數，就可以得出當前的線上人數了，但這里有一個精確問題需要解決，至于用什么辦法來精確地統計，那就是各人不同的做法了，比如可以用自動提交的頁面，隔一段時間讀取COOKIES等等，而在ASP中，有一個更好的技巧，就是使用session對象來統計，這里介紹一下gobal.asa這個文件，這是一個很重要的一個文件，請看看它的結構。
      


      


      

    

        
      

            以下為引用的內容：
      

            
      ＜SCRIPT LANGUAGE="VBScript" RUNAT="Server"＞
      

            
      Sub Session_OnStart
      

            
      End Sub
      

            
      Sub Session_OnEnd
      

            
      End Sub
      

            
      sub Application_OnStard
      

            
      End Sub
      

            
      sub Application_OnEnd
      

            
      End Sub＜/SCRIPT＞
      

                  		

        
      

          


      


      


      當有一個會話發生時（用戶瀏覽網頁，向Web服務器發出請求）那么，如果自服務器啟動后第一個用戶的話，就會同時發生Application_OnStard和Session_OnStart這兩個事件，之后，再有別的用戶發出請求的話，就只發生Session_OnStart這個事件，而session的生存期是多長，是可以設定的，Session.timeout=X（分鐘）
      


      好了，有了這個很好用的方法，我們就能準確地統計出在線人數了，而人數總計是用一個application變量來保存，當在第一個會話開始時，在Application_OnStard事件中放置一條清空計數器的語句application("online")=0，然后，在Session_OnStart事件中，放置一條增加在線人數的語句application("online")=application("online") 1，而在Session_OnEnd事件相應地放一條減少在線人數的語句，令計數值減一。
      


      這樣，這個文件就改為如下
      


      


      

    

        
      

            以下為引用的內容：
      

            
      ＜SCRIPT LANGUAGE="VBScript" RUNAT="Server"＞
      

            
      Sub Session_OnStart
      

            
      application("online")=application("online") 1
      

            
      End Sub
      

            
      Sub Session_OnEnd
      

            
      application("online")=application("online")-1
      

            
      End Sub
      

            
      sub Application_OnStard
      

            
      application("online")=0
      

            
      End Sub
      

            
      sub Application_OnEnd
      

            
      application("online")=0
      

            
      End Sub＜/SCRIPT＞
      

                  		

        
      

          


      


      


      接下來編一個顯示圖形數字的程序，把在線人數顯示在指定的頁面上。這樣就能得出在人數了
      


      


      

    

        
      

            以下為引用的內容：
      

            
      *online.asp
      

            
      ＜% @language="vbscript" %＞
      ＜%
      tmp=application("online")
      tmp=Cstr(tmp)
      dim disp(20)
      dim images(20)
      dbbits=len(tmp)
      for I= 1 to dbbits
      disp(I)=left(right(tmp,I),I-(I-1))
      next
      

            
      for I=dbbits to 1 step -1
      images(I)="＜img src="&"http://xxxx.com.cn/pic"&"/"&disp(I)&".gif＞"
      

            
      response.write "document.write("&images(I)&");"
      

            
      next
      

            
      %＞
      

                  		

        
      

          


      


      


      上面的程序很簡單，這里不作分析了，請大家自己閱讀一下。在調用在線統計的頁面上用一句script語句引用online.asp文件，以顯示圖形統計器。
      


      


      

    

        
      

            以下為引用的內容：
      

            
      ＜script language="JavaScript" src="http://xxxx.com.cn/online.asp"＞＜/script＞
      

                  		

        
      

          


      


      


      現在可以了，記住要點，你必須把gobal.asa放在正確的web應用程序根目錄上，而最好單獨為這個統計新建一個web應用程序，不要與其它別的程序混亂了，不然得出的數據是不準確的，而把這個程序修改為多用戶的在線統計也很簡單。這樣就可以提供在線統計服務了，如何實現請又大家去思考一下吧.... 
      分享：入門：初學ASP動態網頁制作常用錯誤處理
      ASP錯誤處理

ASP是非常簡單的，以至于許多的開發者不會去思考錯誤處理。錯誤處理能夠讓你的應用程序更加合理。我看到過很多個用ASP編寫的商業網站，大多數都忽略了錯誤處理。   

錯誤的類型
      


      

      


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


      


      



      


      



      相關ASP教程：