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

主內容: 

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. %>