ASP的数据库类

一、前言
　　提到ASP操作数据库，大多数人会想到：共用的连接字串ConStr、Conn.Open ConStr建立数据库连接、Conn.Execute SqlCmd方式执行命令、RecordSet.Open Sql,Conn,1,1取得记录集，的确这种方法被99%的人或公司采用。对于操作数据库过程中产生的错误，恐怕99%的人不会进行处理，要么在程序的开头加入on error resume next“轻松”跳过去、要么让错误信息连同错误代码一同“暴尸”在浏览者面前。对于前一种情况可能会产生让人莫明其妙的怪异结果，后一种情况，可能会在某个时间（比如连接数据库时）暴露您的敏感信息，影响网站安全。当然，还是有个别负责的程序员同志会在容易产生错误的操作后面加入if err.xxxx来处理可能的错误，但这似乎不是一个好办法，一不小心就可能漏掉了。
　　我至今也没有想明白，为什么在VB和ASP.NET中都存在的On Error Goto，偏偏在ASP中被取消了。
　　另外不得不提的是，当您在前面使用on error resume next而在后面不想resume next了，对不起，没办法，您只能把它“贯彻到底”。看看其它语言的异常机制，try..catch..finally随心所欲，真是爽酷了！

　　说了这么多，并不要为ASP引入诸如异常机制等新的内容，毕竟ASP语言本身也决定这是不可能实现的（ASP.NET中实现了），只是想在ASP中最普遍的也是最容易出现错误的数据库操作中，找到一种有效的错误处理方式，并把conn、RecordSet等封装起来，达到最大限度的精简。于是便有了下面的数据库类。


二、数据库类
1、功能
　　正如前面所说，这个类的目的是把ADODB.Connection、Adodb.Recordset等烦琐的操作封装起来并在类里实现错误处理。现在看看类的成员、属性和方法：
　　1）成员：（没有公有或保护成员）
　　2）属性：
　　　　ClassName－返回类名
　　　　Version－返回版本
　　　　LastError－返回最后的错误
　　　　IgnoreError－设置/返回是否忽略数据库错误
　　　　Connection－返回连接对象（ADODB.Connection）
　　　　ConnectionString－设置/返回连接字串（本示例为SQL Server，如为其它请根据实际设定）
　　　　FieldCount、PageSize、PageCount、AbsolutePage、AbsolutePosition、Bof、Eof－请参考Adodb.Recordset相应内容
　　3）方法：
　　　　Setup－设置连接数据服务器的帐号、密码、数据库名、主机/IP
　　　　Connect－连接数据库
　　　　Close－关闭数据库连接并释放资源
　　　　Query－执行数据库查询命令并返回数据集
　　　　ExeSQL－执行SQL命令（不返回数据库）
　　　　FieldName－返回指定序号的字段名
　　　　Fields－返回指定的（序号或字段名）字段的值
　　　　Data－同上
　　　　MoveNext、MovePrevious、MoveFirst、MoveLast－请参考Adodb.Recordset相应内容


2、实现代码（DBSql.inc.asp）
内容太长，点击此处打开/折叠...
<%
'=======================================================================
' CLASS NAME: clsDB
' DESIGN BY : 彭国辉
' DATE: 2003-12-18
' SITE: http://kacarton.yeah.net/
' EMAIL: kacarton@sohu.com
' MODIFY:
' 2004-6-25: 升级后的数据引擎，返回错误代号小于0（也可以是ASP对数值的
' 定义有变），修改错误检测err.number>0 ==> err.number<>0
' 2004-6-30：修改错误处理，忽略如游标类型改变等非错误性质的提示
'=======================================================================

Class clsDB

' name of this class
' var string
' @access Private
' @see property: Name
Private m_strName

' version of this class
' var string
' @access Private
' @see property: Version
Private m_strVersion

' Error Object
' @var ADODB.Connection.Errors
' @access private
' @see property: LastError
Private m_LastError

' Ingore all Connection.Errors
' var Boolean
' @access private
' @see property: IgnoreError
Private m_IgnoreError

' Connection Object
' var ADODB.Connection
' @access Private
' @see property: Connection
Private m_Connection

' Is connection to database?
' var boolean
' @Private
Private m_bIsConnect

' RecordSet
' var RecordSet
' @access Private
Private m_RecordSet

' Connection string
' var string
' @access Private
' @see property: ConnectionString
Private m_ConneStr

' Database server host name or IP
' var string
' @access Private
' @see property: Host
Private m_strHost

' Database name
' var string
' @access Private
' @see property: Database
Private m_strDatabase

' Account to connection database
' var string
' @access Private
' @see property: UserName
Private m_UserName

' Password to connection database
' var string
' @access Private
' @see property: Password
Private m_Password

' get class name attribute.
' usage: oTemplate.Name
' access public
Public Property Get ClassName()
ClassName = m_strName
End Proper