global.asa

物业管理和办公自动化系统

<script language="vbscript" runat="server">
'Session_OnStart 当客户首次运行 ASP 应用程序中的任何一个页面时运行
'Session_OnEnd 当一个客户的会话超时或退出应用程序时运行
'application_onstart 当任何客户首次访问该应用程序的时运行
'Application_OnEnd 当该站点的 WEB 服务器关闭时运行
</script>

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

'' ==================================================================
'' Application_OnStart，创建数据库连接对象
'' ==================================================================
Sub Application_OnStart
	set application("conn") = Server.CreateObject("ADODB.Connection")
End Sub



'' ==================================================================
'' Application_OnEnd，清除数据库连接对象
'' ==================================================================
Sub Application_OnEnd
	set application("conn") = nothing
End Sub



'' ==================================================================
'' Session_OnStart 设置Session的时效，并转向登录页面
'' ==================================================================
Sub Session_OnStart
	'' 如果Session信息还存在，则说明Session_OnEnd没有很好地发生作用，这时

	Session.TimeOut = 60					'' Session.Timeout 参数暂时设成60分钟，最多只能为24小时，即1440
	Response.Redirect "/oa/common/home.asp"
End Sub



'' ==================================================================
'' Session_OnEnd 更新用户在线信息，清除用户信息，包括Session和Cookies
'' ==================================================================
Sub Session_OnEnd
	dim cn, sql
	'--------------------------------------------------------------------------------------------------
	' 先保留Session("UserID")的值，然后清除所有全局性的用户信息
	dim sUserId	: sUserId = session.contents("UserID")

	'--------------------------------------------------------------------------------------------------
	'' 更新T_OnlineStatus表，此为系统自动退出登录，因此没有留言信息，留言信息不更新
	sql = "update T_OnlineStatus" & _
				" set login_status=0" & _
				", online_status=0" & _
				", logout_time='" & now & "'" & _
				" where account_id = '" & sUserId & "'"

	'' 执行SQL语句
	application.lock
	application("conn").open "infortower", "infor", "tower"
	application("conn").execute(sql)
	set cn = application("conn")
	cn.close()
	application.unlock
	'--------------------------------------------------------------------------------------------------

	' 清除Session.Contents集合中的每一项的值
	'Dim Item
	'For Each Item in Session.Contents 
	'	Session.Contents(Item) = empty
	'Next

	' 清除Response.Cookies集合中的每一项的值
	'For Each Item in Response.Cookies
	'	Response.Cookies(Item) = empty
	'Next
	'--------------------------------------------------------------------------------------------------
End Sub

</SCRIPT>