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