asp數(shù)據(jù)庫連接函數(shù)

2024-05-04 11:00:45

字體：大中小

供稿：網(wǎng)友

復(fù)制代碼代碼如下:
' ********************************************
' 以下為數(shù)據(jù)庫相關(guān)函數(shù)
' ********************************************
' ============================================
' 初始化數(shù)據(jù)庫連接對象
' 使用原則：最遲調(diào)用，最早釋放
' ============================================
Sub DBConnBegin()
' 如果數(shù)據(jù)庫對象已打開，不要再打開
If IsObject(oConn) = True Then Exit Sub

' 你可以不需要打開數(shù)據(jù)庫連接對象而直接打開記錄集對象，但如果你需要打開多個記錄集對象的話，效率是很低的。
' 如果你不創(chuàng)建一個數(shù)據(jù)庫連接對象，ADO會在每個記錄集打開時自動創(chuàng)建一個新的數(shù)據(jù)庫連接對象，就算你用的是相同的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
  ' 顯示錯誤信息,并且發(fā)送郵件通知管理員
  'Call DBConnError(Err)

  ' 完全地退出正在運行的腳本
  Response.End
End If

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