global.asa

小型图书馆管理系统

<script language=VBScript runat=Server>
Sub Application_OnStart()
	'set Application("gDBConn")=server.createobject("adodb.connection")'管理系统数据库连接
	'Application("gDBConn").CommandTimeout=0
	'Application("gDBConn").ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(".\lib.mdb")&";Persist Security Info=False"
	'if Application("gDBConn").State=adStateClose then Application("gDBConn").Open()
End Sub

Sub Application_OnEnd()
	'if Application("gDBConn").State=adStateOpen then Application("gDBConn").Close()
	'set Application("gDBConn")=Nothing
End Sub

Sub Session_OnStart()
	Session("s_loginOK")=false'是否成功登录
	Session("s_uID")=0
	Session("s_uname")=""
	set Session("s_DBConn")=server.createobject("adodb.connection")'管理系统数据库连接
	Session("s_DBConn").CommandTimeout=0
	Session("s_DBConn").ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(".\lib.mdb")&";Persist Security Info=False"
	if Session("s_DBConn").State=adStateClose then Session("s_DBConn").Open()
End Sub

Sub Session_OnEnd()
	Session("s_loginOK")=false'是否成功登录
	Session("s_uID")=0
	Session("s_uname")=""
	if Session("s_DBConn").State=adStateOpen then Session("s_DBConn").Close()
	set Session("s_DBConn")=Nothing
End Sub
</script>