复制代码 代码如下:

'********************************************

'以下为数据库相关函数

'********************************************

'============================================

'初始化数据库连接对象

'使用原则：最迟调用，最早释放

'============================================

SubDBConnBegin()

'如果数据库对象已打开，不要再打开

IfIsObject(oConn)=TrueThenExitSub

'你可以不需要打开数据库连接对象而直接打开记录集对象，但如果你需要打开多个记录集对象的话，效率是很低的。

'如果你不创建一个数据库连接对象，ADO会在每个记录集打开时自动创建一个新的数据库连接对象，就算你用的是相同的SQL语句。

SetoConn=Server.CreateObject("ADODB.Connection")

OnErrorResumeNext

oConn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath("db/lbedit.mdb")

IfErr.Number>0Then

'显示错误信息,并且发送邮件通知管理员

'CallDBConnError(Err)

'完全地退出正在运行的脚本

Response.End

EndIf

'创建一个记录集

SetoRs=Server.CreateObject("ADODB.Recordset")

EndSub