< 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 >