快捷導(dǎo)航

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

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

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

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

< SCRIPT LANGUAGE="VBScript" RUNAT="Server" >   
　Sub Application_OnStart   
　　　' 當(dāng)服務(wù)器開(kāi)啟時(shí)，設(shè)置用戶(hù)數(shù)為0   
　Application("Users") = 0   
　End Sub   
　Sub Session_OnStart   
　Session.Timeout = 20   
　　　' 當(dāng)開(kāi)始一個(gè)Session時(shí)用戶(hù)數(shù)加1   
　Application.Lock   
　Application("Users") = Application("Users") + 1   
　Application.UnLock   
　End Sub   
　Sub Session_OnEnd   
　　　' 當(dāng)結(jié)束一個(gè)Session時(shí)用戶(hù)計(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)頁(yè)中使用寫(xiě)出在線用戶(hù)的數(shù)量。至于記錄，則可以使用很多的方法。如果是記錄到文件中，可以使用Scripting.FileSystemObject物件進(jìn)行處理。如果記錄到數(shù)據(jù)庫(kù)中，則可以使用ADO等等。這里就不一一介紹了。