asp資料庫連接函數

複製代碼 代碼如下:' ********************************************
' 以下為資料庫相關函數
' ********************************************
' ============================================
' 初始化資料庫連接對象
' 使用原則：最遲調用，最早釋放
' ============================================
Sub DBConnBegin()
' 如果資料庫物件已開啟，不要再開啟
If IsObject(oConn) = True Then Exit Sub

' 你可以不需要開啟資料庫連接對象而直接開啟記錄集對象，但如果你需要開啟多個記錄集對象的話，效率是很低的。
' 如果你不建立一個資料庫連接對象，ADO會在每個記錄集開啟時自動建立一個新的資料庫連接對象，就算你用的是相同的SQL語句。
Set oConn = Server.CreateObject("ADODB.Connection")

On Error Resume Next
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/lbedit.mdb")

If Err.Number > 0 Then
' 顯示錯誤資訊,並且發送郵件通知管理員
'Call DBConnError(Err)

' 完全地退出正在啟動並執行指令碼
Response.End
End If

' 建立一個記錄集
Set oRs = Server.CreateObject( "ADODB.Recordset" )
End Sub