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

2024-05-04 10:57:28

字體：大中小

供稿：網(wǎng)友

復(fù)制代碼代碼如下:

' ********************************************
' 以下為數(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