使用ASP记录在线用户的数量的代码

< SCRIPT LANGUAGE="VBScript" RUNAT="Server" >  
　Sub Application_OnStart  
　　　' 当服务器开启时，设置用户数为0  
　Application("Users") = 0  
　End Sub  
　Sub Session_OnStart  
　Session.Timeout = 20  
　　　' 当开始一个Session时用户数加1  
　Application.Lock  
　Application("Users") = Application("Users") + 1  
　Application.UnLock  
　End Sub  
　Sub Session_OnEnd  
　　　' 当结束一个Session时用户计数器减1  
　Application.Lock  
　Application("Users") = Application("Users") - 1  
　Application.UnLock  
　End Sub  
　< /SCRIPT >