无为清净楼资源网 Design By www.qnjia.com
复制代码 代码如下:
' ********************************************
' 以下为数据库相关函数
' ********************************************
' ============================================
' 初始化数据库连接对象
' 使用原则:最迟调用,最早释放
' ============================================
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

标签:
asp,数据库,连接函数

无为清净楼资源网 Design By www.qnjia.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
无为清净楼资源网 Design By www.qnjia.com