global.asa

来自「asp开发 asp开发 asp开发 asp开发」· ASA 代码 · 共 18 行

<Script LANGUAGE="VBScript" RUNAT="SERVER">
Sub Application_OnStart()
	Application.Lock()
	Application("whosOn") = 0
	Application.UnLock()
End Sub
Sub Session_OnStart()
	Application.Lock()
	Application("whoson") = Cint(Application("whoson")) + 1
	Application.UnLock()
End Sub
Sub Session_OnEnd()
	Application.Lock()
	Application("whoson") = Cint(Application("whoson")) - 1
	Application.UnLock()
End Sub
</Script>