ASP操作数据库的类
越简单的排错也越複杂。俺在写这些代码的时候已经尽我所能考虑到如果出错的话如何去排查错误，在尽可能简化用户操作数据库的代码的同时可以随时输出sql语句排查错误。
最后需要说明一点，本文所涉及的ASP数据库操作并不适合大型数据，如你所知，操作大型数据最好还是使用存储过程之类的东东比较好，以后俺会考虑把对存储过程的操作也封装进去。还有一个效率问题，要追求高效率的话，用ASP还是应该考虑COM+等，所以再次声明，本类适用的对象是中小型ASP项目。
好了，下面奉上详细使用说明：
一．数据库连接
考虑到大多数人的使用习惯，在数据库连接上使用了公共过程，所以需要大家在代码裡自行修改，如果你已经建立了数据库连接，把这几行注释掉就行了。代码中内置了MSSql,Access,MySQL,Oracle4种数据库的连接方式，当然你也可以自行在源代码中增加或删除。修改例如：
Dim a : a = CreatConn(0, "TestData", "localhost", "username", "userpassword")
Dim b : b = CreatConn(1, "Data/%TestDb%.mdb", "", "", "")
说明一下，第1个参数可以是字符串。如果是使用Access，则第2个参数输入相对路径和绝对路径都是可以的，如有密码也可以在第5个参数中输入，如：
Dim c : c = CreatConn("ACCESS", "E:\MyWeb\Data\%TestDB%.mdb", "", "", "mdbpassword")
相关函数：
原 型：CreatConn(dbType, strDB, strServer, strUid, strPwd)
功 能：建立数据库连接字符串
返回值：String
参 数：
dbType : Integer or String 连接数据库类型
(0 or "MSSQL") - Microsoft SQL Server
(1 or "ACCESS") - Microsoft Office Access
(2 or "MYSQL") - MySQL Server
(3 or "ORACLE") - oracle Server
strDB : String 数据库名或数据库地址(Access使用绝对或者相对路径均可)
strServer : String 数据库服务器地址,Access请留空
strUid : String 数据库用户名,Access请留空
strPwd : String 数据库密码
原 型：Oc(connStr)
功 能：打开数据库连接
返回值：Object 数据库连接对像
参 数：
connStr : String 数据库连接字符串，由CreatConn函数生成
原 型：Co(obj)
功 能：关闭对像
参 数：
obj : Object 要关闭的对象名称
原 型：OpenConn
功 能：打开默认数据库连接，会自动建立一个名称为Conn的连接对像
参 数：无
原 型：CloseConn
功 能：关闭名称为Conn的默认数据库连接对像
参 数：无
二. 数据库操作
下面就是本数据库操作类的函数功能说明，应该算是手册了，请多看例子的应用。
原 型：dbCtrl.dbConn(objConn)
功 能：获取数据库连接对像
参 数：
objConn : Object 已经建立的数据库连接对像
举 例：
Dim db : Set db = New DbCtrl
db.dbConn = Oc(CreatConn(1,"E:\WebSite\MySite\Data\%TestDb%.mdb","","",""))
Co(db)
说 明：此属性为可选，如果不指定此属性则默认数据连接为页面上名称为Conn的数据库连接对像
原 型：dbCtrl.AutoID(TableName)
功 能：自动获取唯一序列号（自动编号）
返回值：Integer
参 数：
TableName : String 需要获得唯一序列号的数据表名
举 例：
Dim newId
newId = db.AutoId("TestTable")
Response.Write(newId)
原 型：dbCtrl.GetRecord(TableName,FieldsList,Condition,OrderField,ShowN)
功 能：取得符合条件的纪录集
返回值：Object 纪录集对像
参 数：
TableName : String 表名称
FieldsList : String 字段名称，用逗号隔开，留空则为全部字段
Condition : String or Array 查询条件，如果是数组应遵循前面的参数约定
orderField : String 排序方式
ShowN : Integer 获取纪录的数量，相当于sql中的 Select Top N
举 例：
Dim rs
Set rs = db.GetRecord("TestTable","fId,fName,fAge","fSex=''男'' And IsActive
最后需要说明一点，本文所涉及的ASP数据库操作并不适合大型数据，如你所知，操作大型数据最好还是使用存储过程之类的东东比较好，以后俺会考虑把对存储过程的操作也封装进去。还有一个效率问题，要追求高效率的话，用ASP还是应该考虑COM+等，所以再次声明，本类适用的对象是中小型ASP项目。
好了，下面奉上详细使用说明：
一．数据库连接
考虑到大多数人的使用习惯，在数据库连接上使用了公共过程，所以需要大家在代码裡自行修改，如果你已经建立了数据库连接，把这几行注释掉就行了。代码中内置了MSSql,Access,MySQL,Oracle4种数据库的连接方式，当然你也可以自行在源代码中增加或删除。修改例如：
Dim a : a = CreatConn(0, "TestData", "localhost", "username", "userpassword")
Dim b : b = CreatConn(1, "Data/%TestDb%.mdb", "", "", "")
说明一下，第1个参数可以是字符串。如果是使用Access，则第2个参数输入相对路径和绝对路径都是可以的，如有密码也可以在第5个参数中输入，如：
Dim c : c = CreatConn("ACCESS", "E:\MyWeb\Data\%TestDB%.mdb", "", "", "mdbpassword")
相关函数：
原 型：CreatConn(dbType, strDB, strServer, strUid, strPwd)
功 能：建立数据库连接字符串
返回值：String
参 数：
dbType : Integer or String 连接数据库类型
(0 or "MSSQL") - Microsoft SQL Server
(1 or "ACCESS") - Microsoft Office Access
(2 or "MYSQL") - MySQL Server
(3 or "ORACLE") - oracle Server
strDB : String 数据库名或数据库地址(Access使用绝对或者相对路径均可)
strServer : String 数据库服务器地址,Access请留空
strUid : String 数据库用户名,Access请留空
strPwd : String 数据库密码
原 型：Oc(connStr)
功 能：打开数据库连接
返回值：Object 数据库连接对像
参 数：
connStr : String 数据库连接字符串，由CreatConn函数生成
原 型：Co(obj)
功 能：关闭对像
参 数：
obj : Object 要关闭的对象名称
原 型：OpenConn
功 能：打开默认数据库连接，会自动建立一个名称为Conn的连接对像
参 数：无
原 型：CloseConn
功 能：关闭名称为Conn的默认数据库连接对像
参 数：无
二. 数据库操作
下面就是本数据库操作类的函数功能说明，应该算是手册了，请多看例子的应用。
原 型：dbCtrl.dbConn(objConn)
功 能：获取数据库连接对像
参 数：
objConn : Object 已经建立的数据库连接对像
举 例：
Dim db : Set db = New DbCtrl
db.dbConn = Oc(CreatConn(1,"E:\WebSite\MySite\Data\%TestDb%.mdb","","",""))
Co(db)
说 明：此属性为可选，如果不指定此属性则默认数据连接为页面上名称为Conn的数据库连接对像
原 型：dbCtrl.AutoID(TableName)
功 能：自动获取唯一序列号（自动编号）
返回值：Integer
参 数：
TableName : String 需要获得唯一序列号的数据表名
举 例：
Dim newId
newId = db.AutoId("TestTable")
Response.Write(newId)
原 型：dbCtrl.GetRecord(TableName,FieldsList,Condition,OrderField,ShowN)
功 能：取得符合条件的纪录集
返回值：Object 纪录集对像
参 数：
TableName : String 表名称
FieldsList : String 字段名称，用逗号隔开，留空则为全部字段
Condition : String or Array 查询条件，如果是数组应遵循前面的参数约定
orderField : String 排序方式
ShowN : Integer 获取纪录的数量，相当于sql中的 Select Top N
举 例：
Dim rs
Set rs = db.GetRecord("TestTable","fId,fName,fAge","fSex=''男'' And IsActive