<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>