global.asa

来自「红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统」· ASA 代码 · 共 41 行

Sub Session_OnStart()
	session.Timeout=15
	Session("Start")=Now
	Application.Lock
	Application("online")=Application("online")+1
	Application.unlock
End Sub

Sub Session_OnEnd()
	session.timeout=15
	Application.Lock
	Application("online")=Application("online")-1
	Application.unlock
End Sub

Sub Application_OnStart()
	dim onlinemanager(0)
	dim onlineuserdim(0)
	dim netmeetinginfodim(0)
	application("onlinemanager")=onlinemanager
	application("onlineuser")=onlineuserdim
	application("netmeetinginfo")=netmeetinginfodim
	application("online")=0
	application("info")=""
End Sub

Sub Application_OnEnd()
	dim onlinemanager(0)
	dim onlineuserdim(0)
	dim netmeetinginfodim(0)
	application("onlinemanager")=onlinemanager
	application("onlineuser")=onlineuserdim
	application("netmeetinginfo")=netmeetinginfodim
	application("online")=0
	application("info")=""

End Sub

</SCRIPT>