asp数据库连接函数

本文主要为广大网友提供“asp数据库连接函数”，希望对需要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