Class类(数据库操作类,支持access与sql两种)

<%
'****************************************
' cls_Database类的结构：
' 类的开始定义几个公共成员：
' db_path = 数据库路径与数据库名称
' qry_sql = SQL查询语句
' 返回数组this_RsArray
' this_RSArray数组，用ASP文件可以访问。这是个二维数组，第一维是表的域名，第二维是查询结果。
'***************************************
'调用方法
' ＜％ Dim obj_dbtest
' Set obj_dbtest = New cls_Database '创建
' obj_dbtest.db_path = "data.mdb" 'access数据库路径与数据库名称(如果是Aceesss数据库则用此条语句)
' obj_dbtest.sql_name = "data" 'SQL数据库名称(如果是SQL数据库则用此条语句)
' obj_dbtest.sql_ip = "localhost" 'SQL数据库服务器名称或IP地址(如果是SQL数据库则用此条语句)
' obj_dbtest.sql_uid = "sa" 'SQL数据库登陆帐号(如果是SQL数据库则用此条语句)
' obj_dbtest.sql_pwd = "123" 'SQL数据库密码(如果是SQL数据库则用此条语句)
' obj_dbtest.qry_sql = "SELECT * FROM usr"
' this_array = obj_dbtest.this_RsArray
' dim dsCounter
' dim fld_field(5)％＞
' <table width="50%" border="1" align="center" cellpadding="8" cellspacing="0" bordercolor="#009900" bordercolordark="#FFFFFF">
' <tr bgcolor="#ECF7E6">
' <td><div align="center">标题</div></td>
' <td><div align="center">标题</div></td>
'' <td><div align="center">标题</div></td>
' <td><div align="center">标题</div></td>
' </tr>
' ＜％ this_array = obj_dbtest.this_RsArray
' dim dsCounter
' for dsCounter = 0 to UBOUND(this_array, 2)
' fld_field1 = this_array(1,dsCounter)
' fld_field2 = this_array(2,dsCounter)
' fld_field3 = this_array(3,dsCounter)
' fld_field4 = this_array(4,dsCounter)％＞
' <tr>
' <td><div align="center">＜％= fld_field1 ％＞</div></td>
' <td><div align="center">＜％= fld_field2 ％＞</div></td>
' <td><div align="center">＜％= fld_field3 ％＞</div></td>
' <td><div align="center">＜％= fld_field4 ％＞</div></td>
' </tr>
' ＜％ Next ％＞
'</table>
'***************************************
Class cls_Database

Public db_path'access数据库的路径及名称

Public sql_name'SQL数据库的名称
Public sql_ip'SQL数据库的IP或主机名称
Public sql_uid'SQL数据库的帐号
Public sql_pwd'SQL数据库的密码

Public qry_sql'要处理的SQL语句
dim obj_dbconn
dim obj_recSet
dim sql_string
Public Property GET Access_RsArray 'access数据库
Set obj_dbconn = Server.CreateObject("ADODB.Connection")
obj_dbconn.Provider="Microsoft.Jet.OLEDB.4.0"
obj_dbconn.Open Server.MapPath(db_path)
Set obj_recSet = Server.CreateObject("ADODB.RecordSet")
sql_string = qry_sql
obj_recSet.open sql_string,obj_dbconn, adOpenDynamic
Access_RsArray = obj_recSet.GetRows()
obj_recSet.Close
obj_dbconn.Close
END Property
Public Property GET Sql_RsArray 'SQL数据库
Set obj_dbconn = Server.CreateObject("ADODB.Connection")
obj_dbconn.Open "Driver={SQL Server};Server="&sql_ip&";UID="&sql_uid&";PWD="&sql_pwd&";database="&sql_name&";"

Set obj_recSet = Server.CreateObject("ADODB.RecordSet")
sql_string = qry_sql
obj_recSet.open sql_string,obj_dbconn, adOpenDynamic
Sql_RsArray = obj_recSet.GetRows()
obj_recSet.Close
obj_dbconn.Close
END Property
END Class
%>