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

dim rs, ar, fldAr

fldAr=array("sbid","sbcat") '选取字段的数组

'fldAr=array("sbcat","sbid") '选取字段的数组

call fCreateRs(rs) '调用创建 recordset 函数

with rs

.open "select * from vT1",conn

'将数组值赋值给 ar 变量

''''''''''''''''''''''''''''''''''''''''''''''''''

'ar=.getRows(10,,fldAr) '(选取 10 条记录[空值选择全部记录],功能未知,选取字段的数组[空值选取全部字段])

ar=.getRows ' 将 getRows 取得的值赋给变量 ar

''''''''''''''''''''''''''''''''''''''''''''''''''

end with

call fCloseRs(rs) '调用关闭 recordset 函数

dim rsFld, rsTotal

rsFld=uBound(ar,1) ' 取表字段总数, 以 0 开始

rsTotal=Ubound(ar,2) ' 取表记录总数, 以 0 开始

response.write "default by 0 "

response.write rsFld&"fields "&rsTotal&"records" '打印字段总数和记录总数

dim item, temp

For item=0 To rsTotal ' 循环输出所有记录

response.write "line: "

response.write item

response.write "  "

for temp=0 to rsFld ' 循环输出所有字段的数据

Response.Write "field "

response.write temp

response.write ": "

response.write ar(temp,item) '(字段数字, 行数字)

if temp<rsFld then response.write " -|- "

next 'shawl.qiu code'

response.write " "

function fCreateRs(rs)

set rs=createObject("adodb.recordset")

end function

function fCloseRs(rs)

rs.close

set rs=nothing

end function