ASP操作数据库的类(2)

Array("Field1:Value1", "Field2:True", "Field3:100")

对，有点像json的格式，如果涉及到变量，那就这样：

Array("Field1:" & Value1, "Field2:" & Value2, "Field3:" & Value3)

可以这样说，本类中的几乎所有与数据库字段相关的内容都可以用以上的数组格式来设置条件或者是获取内容。而这裡最大的特点就是在使用时不用去考虑字段的类型，在字段后跟一个冒号，接着跟上相应的值就行了。如果你经常手写ASP程序的话，你很快就会感受到运用这种方式的魅力，除了数据类型不用考虑之外，它也很方便随时添加和删除条件。如果你还不明白怎麽用的话没关係，下面有很多例子可以说明这个问题。

要把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使用绝对或者相对路径均可)