' ******************************************** ' 以下为数据库相关函数 ' ******************************************** ' ============================================ ' 初始化数据库连接对象 ' 使用原则：最迟调用，最早释放 ' ============================================ 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("/mydatazw/#mydatazw.mdb")
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 'jsp中是这样的和 rs=null;rs.close oConn.Close Set oConn = Nothing '这里写成nothing哈哈！ End Sub %> 2.定义一个全局的函数单元哦。这里你可以将所有可能用到的函数写在一个单独的单元中去啊。这样的话如果有单元想要调用到里面的一个方法的话就可以将这个文件引入进来的哦！
<% ' ******************************************** ' 以下为常用函数 ' ******************************************** ' ============================================ ' 错误返回处理 ' ============================================ Sub GoError(str) Call DBConnEnd() Response.Write "" Response.End End Sub '************************************* '过程名：WriteErrMsg '作 用：显示错误提示信息 '参 数：无 '************************************************** sub WriteErrMsg() dim strErr strErr=strErr & "错误信息" & vbcrlf strErr=strErr & "" & vbcrlf strErr=strErr & "
