城杆

Sub DBConnBegin()
 ' 如果数据库对象已打开，不要再打开
 If IsObject(oConn) = True Then Exit Sub

 ' 你可以不需要打开数据库连接对象而直接打开记录集对象，但如果你需要打开多个记录集对象的话，效率是很低的。
 ' 如果你不创建一个数据库连接对象，ADO会在每个记录集打开时自动创建一个新的数据库连接对象，就算你用的是相同的SQL语句。
 Set oConn = Server.CreateObject("ADODB.Connection")

 On Error Resume Next
 ' Access数据库
 oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/ewebeditor.asa")
 ' SQL Server 2000数据库
 'oConn.Open "Provider=SQLOLEDB.1;Server=localhost;UID=ewebeditor;PWD=123456;Database=ewebeditor"
 
 If Err.Number > 0 Then
   ' 显示错误信息,并且发送邮件通知管理员
   'Call DBConnError(Err)
 

   ' 完全地退出正在运行的脚本
   Response.End
 End If

 ' 创建一个记录集
 Set oRs = Server.CreateObject( "ADODB.Recordset" )
End Sub

' ============================================
' 释放数据库连接对象
' ============================================
Sub DBConnEnd()
 On Error Resume Next
 oRs.Close
 Set oRs = Nothing
 oConn.Close
 Set oConn = Nothing
End Sub