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 >