global.asa

来自「包括本书所有的源代码。所有程序均在Windows 2000+IIS5.0+SQL」· 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>