使用ASP記錄在線用戶的數(shù)量的代碼

更新時(shí)間：2007年11月23日 12:39:10 作者：

網(wǎng)絡(luò)的訪問量是每一個(gè)做網(wǎng)站的網(wǎng)友們都非常關(guān)心的問題。如何得知有多少個(gè)人正在訪問你的網(wǎng)站呢？如何將每天的訪問量記錄下來？下面就是一個(gè)解決方案。
　　當(dāng)有用戶開始訪問網(wǎng)站時(shí)，服務(wù)器端的Global.asa將會(huì)被訪問。將會(huì)給用戶開啟一個(gè)Session?？梢越o每一個(gè)用戶設(shè)置自己的個(gè)人用戶信息。這里就不多進(jìn)行解釋了。在Global.asa中有當(dāng)Application啟動(dòng)和Session啟動(dòng)時(shí)的消息響應(yīng)函數(shù)?？梢郧萌肴缦碌拇a。

復(fù)制代碼代碼如下:

< SCRIPT LANGUAGE="VBScript" RUNAT="Server" >   
　Sub Application_OnStart   
　　　' 當(dāng)服務(wù)器開啟時(shí)，設(shè)置用戶數(shù)為0   
　Application("Users") = 0   
　End Sub   
　Sub Session_OnStart   
　Session.Timeout = 20   
　　　' 當(dāng)開始一個(gè)Session時(shí)用戶數(shù)加1   
　Application.Lock   
　Application("Users") = Application("Users") + 1   
　Application.UnLock   
　End Sub   
　Sub Session_OnEnd   
　　　' 當(dāng)結(jié)束一個(gè)Session時(shí)用戶計(jì)數(shù)器減1   
　Application.Lock   
　Application("Users") = Application("Users") - 1   
　Application.UnLock   
　End Sub   
　< /SCRIPT >  

　　在網(wǎng)站運(yùn)行時(shí)，Application變量 Application("Users")將一直記錄網(wǎng)站的在線人數(shù)?？梢栽谌魏我粋€(gè)網(wǎng)頁中使用寫出在線用戶的數(shù)量。至于記錄，則可以使用很多的方法。如果是記錄到文件中，可以使用Scripting.FileSystemObject物件進(jìn)行處理。如果記錄到數(shù)據(jù)庫中，則可以使用ADO等等。這里就不一一介紹了。