global.asa

来自「ASP入门与提高实用教程 源文件(上传网站)」· ASA 代码 · 共 26 行

<Script language="VBScript" runat="server">
	Sub Application_OnStart
		Application.Lock
		Application("user_online")=0	'设置初始在线人数为零
		Application.Unlock
	End Sub
	Sub Session_OnStart
		Application.Lock
		Application("user_online")=Application("user_online")+1	
		                                '每当有一个用户上线，就把在线人数加1
		Application.Unlock
	End Sub
	Sub Session_OnEnd
		Application.Lock
		Application("user_online")=Application("user_online")-1
		                         	    '每当有一个用户下线，就把在线人数减1
		Application.Unlock
	End Sub		
</Script>