網頁在線人數統計的做法

2019-11-18 22:45:37

字體：大中小

來源：轉載

供稿：網友

網絡之門

　　在瀏覽網頁的時侯，常常可以看見一些“當前網站上的人數是ＸＸＸ人”的在線人數同計。如何用ＡＳＰ來做一個呢？首先，分析一下它的做法，一般來說，這些線上人數統計都是指一個時段內的訪客人數統計。比如（５分鐘內，１０分鐘內）而這個時間的長短，是由設計者設定的。

　　在這個時段內同計各個不同ＩＰ的訪客總數，就可以得出當前的線上人數了，但這里有一個精確問題需要解決，至于用什么辦法來精確地統計，那就是各人不同的做法了，比如可以用自動提交的頁面，隔一段時間讀取ＣＯＯＫＩＥＳ等等，而在ＡＳＰ中，有一個更好的技巧，就是使用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=Ｘ（分鐘）

　　好了，有了這個很好用的方法，我們就能準確地統計出在線人數了，而人數總計是用一個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

%>