今天无事.随便写了这个类.这个类很简单,但也很实用,以后只要直接包含这个类文件进需要的文件去然后就可以随时更改数据库的类型了.

<%'=============================================================='类名:DBaseClass'用途:可以根据用户参数返回SQL或ACCESS的Connection对象'用法:'(Access数据库)' set dbclass=new DBaseClass  ' dbclass.dbtype="Access"     设置为Access数据库类型 (默认为Access数据库类型)' dbclass.dbpath="data/data.mdb"  设置Access数据库文件地址' set rs=dbclass.getrs("select * from [user]")  返回执行SQL语句后的rs对象' set conn=dbclass.getconn()       返回conn对象' set rs=dbclass.getbasers()       返回空的Recordset对象'(SQL数据库)' dbclass.dbtype="sql"        设置为SQL数据库  (默认为Access数据库类型)' dbclass.sqlusername="test"    设置登录数据库的用户名(默认是sa用户)' dbclass.sqlpassword="1010"    设置登录数据库的用户密码(默认为空)' dbclass.sqldatabasename="user"设置SQL数据库的库名' dbclass.sqllocalname="192.168.0.1" 设置SQL数据库的服务器地址(默认为本机地址)' set rs=dbclass.getrs("select * from [user]")  返回执行SQL语句后的rs对象' set conn=dbclass.getconn()       返回conn对象' set rs=dbclass.getbasers()       返回空的Recordset对象' set dbclass=nothing              关闭对象'================================================================Class DBaseClass'数据库驱动程序连接字符串变量Dim D_ConnStr'Access数据库文件的路径Dim D_dbPath'SQL数据库的设置变量Dim D_SqlDatabaseName,D_SqlPassword,D_SqlUsername,D_SqlLocalName'Conn对象Dim D_Conn,D_Rs'数据库驱动类型'值:"1","A" "a" "Access" "access" 则为Access数据库驱动连接对象'值:"2","S" "s" "SQL" "sql" 则为SQL数据库驱动连接对象Dim D_DbType'======================================'函数名：被始化类'======================================Private Sub Class_Initialize   '默认是Access数据库  D_DbType="Access"  D_SqlUsername="sa"  D_SqlPassword=""  D_SqlLocalName="(local)"End Sub