5-13.txt

来自「网上购物系统 asp+sql server 2005」· 文本 代码 · 共 49 行

P92　Global.asa在线人数的实现


global.asa
<script language=Vbscript runat=Server>
//程序运行初始化
Sub Application_onstart
	'在线数量初始为0
	Application("online")=0
End Sub


//每触发一个session ID 都会触发此事件，即每有一个新的客户端链接到此页都会触发些事件
Sub Session_Onstart
	//设定session的有效时间为1秒
	Session.timeout=1
	//锁定Application，不允许其它程序对其进行修改
	Application.lock
	//在线数加一
	Application("online")=Application("online")+1
	//放开Application，允许其它程序对其进行修改
	Application.Unlock
End sub

//每放弃一个session ID，可以是退出，可以是长时间不活动
Sub Session_onend
	Application.lock
	//在线数减一
	Application("online")=Application("online")-1
	Application.Unlock
End sub

//程序运行结束
Sub Application_onend
	Application("online")=0
End sub
</script>


5-13.asp
<%
	response.Write "<h3 align=center>在线人数："&Application("online")&"</h3>"
%>

站点被web服务器加载后，计数器初始为0
当有新的客户端链接到网站，计数器就加一
当客户端离开，或者长时间不活动，计数器就减一
Application("online")存放的就是当前在线且活动的客户端