頁(yè)面在線(xiàn)人數(shù)統(tǒng)計(jì)的做法

　　在瀏覽網(wǎng)頁(yè)的時(shí)侯，常常可以看見(jiàn)一些“當(dāng)前網(wǎng)站上的人數(shù)是ＸＸＸ人”的在線(xiàn)人數(shù)同計(jì)。如何用ＡＳＰ來(lái)做一個(gè)呢？首先，分析一下它的做法，一般來(lái)說(shuō)，這些線(xiàn)上人數(shù)統(tǒng)計(jì)都是指一個(gè)時(shí)段內(nèi)的訪(fǎng)客人數(shù)統(tǒng)計(jì)。比如（５分鐘內(nèi)，１０分鐘內(nèi)）而這個(gè)時(shí)間的長(zhǎng)短，是由設(shè)計(jì)者設(shè)定的。

　　在這個(gè)時(shí)段內(nèi)同計(jì)各個(gè)不同ＩＰ的訪(fǎng)客總數(shù)，就可以得出當(dāng)前的線(xiàn)上人數(shù)了，但這里有一個(gè)精確問(wèn)題需要解決，至于用什么辦法來(lái)精確地統(tǒng)計(jì)，那就是各人不同的做法了，比如可以用自動(dòng)提交的頁(yè)面，隔一段時(shí)間讀�。茫希希耍桑牛拥鹊�，而在ＡＳＰ中，有一個(gè)更好的技巧，就是使用session對(duì)象來(lái)統(tǒng)計(jì)，這里介紹一下gobal.asa這個(gè)文件，這是一個(gè)很重要的一個(gè)文件，請(qǐng)看看它的結(jié)構(gòu)。

$#@60;SCRIPT LANGUAGE="VBScript" RUNAT="Server"$#@62;

Sub Session_OnStart

End Sub

Sub Session_OnEnd

End Sub

sub Application_OnStard

End Sub

sub Application_OnEnd

End Sub$#@60;/SCRIPT$#@62;

　　當(dāng)有一個(gè)會(huì)話(huà)發(fā)生時(shí)（用戶(hù)瀏覽網(wǎng)頁(yè)，向Web服務(wù)器發(fā)出請(qǐng)求）那么，如果自服務(wù)器啟動(dòng)后第一個(gè)用戶(hù)的話(huà)，就會(huì)同時(shí)發(fā)生Application_OnStard和Session_OnStart這兩個(gè)事件，之后，再有別的用戶(hù)發(fā)出請(qǐng)求的話(huà)，就只發(fā)生Session_OnStart這個(gè)事件，而session的生存期是多長(zhǎng)，是可以設(shè)定的，Session.timeout=Ｘ（分鐘）

　　好了，有了這個(gè)很好用的方法，我們就能準(zhǔn)確地統(tǒng)計(jì)出在線(xiàn)人數(shù)了，而人數(shù)總計(jì)是用一個(gè)application變量來(lái)保存，當(dāng)在第一個(gè)會(huì)話(huà)開(kāi)始時(shí)，在Application_OnStard事件中放置一條清空計(jì)數(shù)器的語(yǔ)句application("online")=0，然后，在Session_OnStart事件中，放置一條增加在線(xiàn)人數(shù)的語(yǔ)句application("online")=application("online")+1，而在Session_OnEnd事件相應(yīng)地放一條減少在線(xiàn)人數(shù)的語(yǔ)句，令計(jì)數(shù)值減一。

　　這樣，這個(gè)文件就改為如下

$#@60;SCRIPT LANGUAGE="VBScript" RUNAT="Server"$#@62;

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$#@60;/SCRIPT$#@62 p>

　　接下來(lái)編一個(gè)顯示圖形數(shù)字的程序，把在線(xiàn)人數(shù)顯示在指定的頁(yè)面上。這樣就能得出在人數(shù)了

＊online.asp

$#@60;% @language="vbscript" %$#@62;
$#@60;%
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)="$#@60;img src="&"http://xxxx.com.cn/pic"&"/"&disp(I)&".gif$#@62;"

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

next



%$#@62;

　　上面的程序很簡(jiǎn)單，這里不作分析了，請(qǐng)大家自己閱讀一下。在調(diào)用在線(xiàn)統(tǒng)計(jì)的頁(yè)面上用一句script語(yǔ)句引用online.asp文件，以顯示圖形統(tǒng)計(jì)器。

$#@60;script language="JavaScript/" target="_blank">JavaScript" src="http://xxxx.com.cn/online.asp"$#@62;$#@60;/script$#@62;

　　現(xiàn)在可以了，記住要點(diǎn)，你必須把gobal.asa放在正確的web應(yīng)用程序根目錄上，而最好單獨(dú)為這個(gè)統(tǒng)計(jì)新建一個(gè)web應(yīng)用程序，不要與其它別的程序混亂了，不然得出的數(shù)據(jù)是不準(zhǔn)確的，而把這個(gè)程序修改為多用戶(hù)的在線(xiàn)統(tǒng)計(jì)也很簡(jiǎn)單。這樣就可以提供在線(xiàn)統(tǒng)計(jì)服務(wù)了，如何實(shí)現(xiàn)請(qǐng)又大家去思考一下吧....