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

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

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

  ' 完全地退出正在運(yùn)行的腳本
  Response.End
 End If

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