global.asa

来自「ASP论坛2000」· ASA 代码 · 共 21 行

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
	Application("activeUsers")=0
end sub
Sub Session_OnStart
	Session.Timeout=10
	Session("Start")=Now
	Application.Lock
	Application("ActiveUsers")=Application("ActiveUsers")+1
	Application.unlock
end sub
Sub Session_OnEnd
	Application.Lock
	Application("ActiveUsers")=Application("ActiveUsers")-1
	Application.unlock
end sub


</SCRIPT>