5-14.txt

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

P93　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
	//在session里存放一个目录名称
	Session("path")="frams"
	//锁定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>

<!--声明一个FileSystemObject组件，其调用ID为 fso -->
<Object
	Runat="Server"
	Scope="Application" 
	Id="fso"
	Progid="Scripting.FileSystemObject">
</Object>