global.asa

寝室管理文档 网站目的： 为了更好的管理寝室同学们的信息资料

<SCRIPT LANGUAGE="VBScript" RUNAT="Server"> 
'Global.asa-count.asp
Sub Application_OnStart 
'Application_OnStart 当任何客户首次访问该应用程序的首页时运行 
End Sub 
Sub Session_OnStart 
'Session_OnStart 当客户首次运行 ASP 应用程序中的任何一个页面时运行 
End Sub 
Sub Session_OnEnd 
'Session_OnEnd 当一个客户的会话超时或退出应用程序时运行 
End Sub 
Sub Application_OnEnd 
'Application_OnEnd 当该站点的 WEB 服务器关闭时运行 
End Sub 
</SCRIPT> 
<SCRIPT LANGUAGE=VBScript RUNAT=Server> 
Sub Application_onStart '初始值为0 
Application("OnLine") = 0 
End Sub 
Sub Session_onStart '一个用户访问进行记数加1 
Application.Lock 
Application("OnLine") = Application("OnLine") + 1 
Application("CountAll")=Application("CountAll") + 1
Application.Unlock 
End Sub 
Sub Session_OnEnd '一个用户进程的结束，记数减1 （P.S.如果没有该事件程序，则执行的就是页面访问程序了。） 
Application.Lock 
Application("OnLine") = Application("OnLine") - 1 
Application.Unlock 
End Sub 
Sub Application_OnEnd
Application.Lock
Application.UnLock
End Sub
</SCRIPT>