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

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

主内容: 

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