global.asa

一个简单的网站制作,使用ASP,ACCE

<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>