global.asa

来自「该资料包含大量网络开发的案例和源代码」· ASA 代码 · 共 22 行

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