global.asa

后台管理系统

<SCRIPT LANGUAGE="VBScript" RUNAT="Server"> 
Sub Application_OnStart
        session.timeout=60
		SERVER.scripttimeout = 60
 		Application.Lock
        Application("WhosOn") = 0
        Application.UnLock
End Sub
Sub Session_OnStart
       Application.Lock
 		Application("WhosOn") = Application("WhosOn") + 1
 		Application.UnLock
End Sub
Sub Session_OnEnd
 	Application.Lock
 	Application("WhosOn") = Application("WhosOn")-1
 	Application.UnLock
End Sub
Sub Application_OnEnd
 	Application.Lock
 	Application("WhosOn") =0
 	Application.UnLock
End Sub
</SCRIPT>