global.asa

来自「一个简单的网站制作,使用ASP,ACCE」· ASA 代码 · 共 20 行

<Script language="VBScript" runat="server">
	Sub Application_OnStart
		Application.Lock
		Application("all")=0
		Application("Online")=0
		Application.Unlock
	End Sub
	Sub Session_OnStart
		Application.Lock
		Application("all")= Application("all")+1
		Application("Online")= Application("Online")+1
		Application.Unlock
	End Sub
	Sub Session_OnEnd
		Application.Lock
		Application("Online")= Application("Online")-1
		Application.Unlock
	End Sub
</Script>