经我测试成功的asp类调用(操作数据库的类)

发布时间:2007年07月08日      浏览次数:1423 次
类模块文件class.asp
==================================================================================
<%
'****************************************
' cls_Database类的结构:
' 类的开始定义几个公共成员:
' db_path = 数据库路径与数据库名称
' tbl_name = 表名
' qry_sql = SQL查询语句
' 返回数组this_RsArray
' this_RSArray数组,用ASP文件可以访问。这是个二维数组,第一维是表的域名,第二维是查询结果。
'***************************************
'调用方法
' <% Dim obj_dbtest
' Set obj_dbtest = New cls_Database '创建
' obj_dbtest.db_path = "data.mdb" '数据库路径与数据库名称
' obj_dbtest.qry_sql = "SELECT * FROM usr"
' this_array = obj_dbtest.this_RsArray
' dim dsCounter
' dim fld_field(5)%>
'<table>
' <% for dsCounter = 0 to UBOUND(this_array, 2)
' for i=1 to 4
' fld_field(i) = this_array(i,dsCounter)'要输出的值
' next%>
' <tr>
' <% for i=1 to 4 '循环输出表格%>
' <td><div align="center"><%= fld_field(i) %></div></td>
' <% next %>
' </tr>
' <% Next %>
'</table>
'***************************************
Class cls_Database

Public db_path
Public tbl_name
Public qry_sql
dim obj_dbconn
dim obj_recSet
dim sql_string
Public Property GET this_RsArray
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
this_RsArray = obj_recSet.GetRows()
obj_recSet.Close
obj_dbconn.Close
END Property
END Class
%>
========================================================================
测试文件index.asp
<!--#include file="class.asp"-->
<%
Dim obj_dbtest
Set obj_dbtest = New cls_Database
obj_dbtest.db_path = "data.mdb"
obj_dbtest.qry_sql = "SELECT * FROM usr"
%>
<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
dim fld_field(5)
for dsCounter = 0 to UBOUND(this_array, 2)
for i=1 to 4
fld_field(i) = this_array(i,dsCounter)
next
%>
<tr>
<%for i=1 to 4%>
<td><div align="center"><%= fld_field(i) %></div></td>
<%next%>
</tr>
<%
Next
%>
</table>
文章来源:桂林唯创网络
免责声明:本站相关技术文章信息部分来自网络,目的主要是传播更多信息,如果您认为本站的某些信息侵犯了您的版权,请与我们联系,我们会即时妥善的处理,谢谢合作!