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