global.asa

来自「数据库课程设计」· ASA 代码 · 共 24 行

<script language="VBScript" runat="Server" >
' 注释：定义Session对象的开始过程，用于数据库连接
	Sub Session_OnStart
	' 注释：数据库连接代码
	   Set Session("objConn") = Server.CreateObject("ADODB.Connection")
	   ' DSN-Less连接方式
	   connstr = "driver={SQL Server};server=HBZQIANG;" & _
	             "uid=sa;pwd=;database=bookstore"
	   ' DSN连接方式
	   ' connstr = "dsn=bookstore;uid=sa;pwd=;database=bookstore"
	   Session("objConn").Open connstr
	' 注释：创建Recordset对象
	   Set Session("objRS") = Server.CreateObject("ADODB.Recordset")
	   Session("objRS").ActiveConnection = Session("objConn")
	   Session("objRS").CursorType = 3
	End Sub
' 注释：定义Session对象的结束过程，用于断开数据库连接
	Sub Session_OnEnd
	   Session("objRS").Close
	   Set Session("objRS") = Nothing
	   Session("objConn").Close
	   Set Session("objConn") = Nothing
	End Sub
</script>