global.asa

来自「《asp网页设计》作者沈才梁源代码,共十章」· ASA 代码 · 共 23 行

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Application_OnStart
	'当应用程序启动时，初始化Application变量
	Application.Lock 
	Application("TotalNum")=0
	Application("OnlineNum")=0
	Application.UnLock
END SUB
SUB Session_OnStart  
	'当某个用户登录网站时，将访问总人数和在当前网站在线人数分别加1
	Application.Lock
	Application("TotalNum")=Application("TotalNum")+1
	Application("OnlineNum")=Application("OnlineNum")+1
	Application.UnLock 
END SUB
SUB Session_OnEnd
	'当某个用户退出时，将在当前网站在线人数减1，总人数不变
	Application.Lock
	Application("OnlineNum")=Application("OnlineNum")-1
	Application.UnLock 
END SUB
</SCRIPT>