ASP ADO getRows() 使用演示 By shawl.qiu

说明: 
本文演示了使用 ado getRows() 显示数据.

显示如:

QUOTE:

default by 0
4fields 4records

line: 0  field 0: 1 -|- field 1: IT术语 -|- field 2: 2006-5-12 -|- field 3: 20:46:16 -|- field 4: 1
line: 1  field 0: 2 -|- field 1: 词汇库 -|- field 2: 2006-5-16 -|- field 3: 13:23:00 -|- field 4: 888
line: 2  field 0: 3 -|- field 1: 政治术语 -|- field 2: 2006-5-16 -|- field 3: 17:36:11 -|- field 4: 60
line: 3  field 0: 4 -|- field 1: 纳天纳地 -|- field 2: 2006-5-16 -|- field 3: 17:50:52 -|- field 4: 999
line: 4  field 0: 5 -|- field 1: 商业术语 -|- field 2: 2006-5-25 -|- field 3: 18:37:11 -|- field 4: 20

shawl.qiu
2006-09-08
 http://blog.csdn.net/btbtd

主内容: 

linenum
1. <%    
2.     dim rs, ar, fldAr
3.         fldAr=array("sbid","sbcat") '选取字段的数组
4.         'fldAr=array("sbcat","sbid") '选取字段的数组
5.         
6.     call fCreateRs(rs) '调用创建 recordset 函数
7.         with rs
8.             .open "select * from vT1",conn
9.             '将数组值赋值给 ar 变量
10.             ''''''''''''''''''''''''''''''''''''''''''''''''''
11.             'ar=.getRows(10,,fldAr) '(选取 10 条记录[空值选择全部记录],功能未知,选取字段的数组[空值选取全部字段]) 
12.             ar=.getRows ' 将 getRows 取得的值赋给变量 ar
13.             ''''''''''''''''''''''''''''''''''''''''''''''''''
14.         end with
15.     call fCloseRs(rs) '调用关闭 recordset 函数
16.     
17.     dim rsFld, rsTotal
18.         rsFld=uBound(ar,1) ' 取表字段总数, 以 0 开始
19.         rsTotal=Ubound(ar,2) ' 取表记录总数, 以 0 开始
20.         
21.         response.write "default by 0<br/>"
22.         response.write rsFld&"fields "&rsTotal&"records<p/>" '打印字段总数 和 记录总数
23.         
24.     dim item, temp
25.     For item=0 To rsTotal ' 循环输出所有记录
26.         response.write "line: " 
27.         response.write item
28.         response.write "&nbsp;&nbsp;"
29.         for temp=0 to rsFld ' 循环输出所有字段的数据
30.             Response.Write "field " 
31.             response.write temp
32.             response.write ": "
33.             response.write ar(temp,item) '(字段数字, 行数字)
34.             if temp<rsFld then response.write " <font color=""red"">-|-</font> "
35.         next 'shawl.qiu code'
36.         response.write "<br/>"
37.     Next
38.     
39.   function fCreateRs(rs)
40.       set rs=createObject("adodb.recordset")
41.   end function
42.   
43.   function fCloseRs(rs)
44.           rs.close
45.       set rs=nothing
46.   end function
47. %>