一个优化数据库连接的代码

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