複製代碼代碼如下:
'********************************************
'以下為數據庫相關函數
'********************************************
'============================================
'初始化數據庫連接對象
'使用原則：最遲調用，最早釋放
'============================================
SubDBConnBegin()
'如果數據庫對像已打開，不要再打開
IfIsObject(oConn)=TrueThenExitSub
'你可以不需要打開數據庫連接對象而直接打開記錄集對象，但如果你需要打開多個記錄集對象的話，效率是很低的。
'如果你不創建一個數據庫連接對象，ADO會在每個記錄集打開時自動創建一個新的數據庫連接對象，就算你用的是相同的SQL語句。
SetoConn=Server.CreateObject("ADODB.Connection")
OnErrorResumeNext
oConn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath("db/lbedit.mdb")
IfErr.Number>0Then
'顯示錯誤信息,並且發送郵件通知管理員
'CallDBConnError(Err)
'完全地退出正在運行的腳本
Response.End
EndIf
'創建一個記錄集
SetoRs=Server.CreateObject("ADODB.Recordset")
EndSub