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