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