Recordset 有個 GetRows 屬性,可以將數據集保存到數組中去,但是實用性可不小,在這裡我舉一個例子說明一下GetRows的使用方法,大家舉一反三能想到更多的用法!
比如一個分類的表 T_Cate,結構和數據如下:
ID | Title | Intro
-----------------------------------------
1 | 新聞 | 這裡是新聞
2 | 教程 | 這裡是教程
3 | 下載 | 這裡是下載
好了,表建立好了,數據也有了,下面我們就要用到GetRows咯!
Dim Rs_Cate
Dim Arr_Cate
Set Rs_Cate=Conn.ExeCute("SELECT ID,Title,Intro FROM T_Cate ORDER BY ID ASC")
Arr_Cate=Rs_Cate.GetRows
Set Rs_Cate=Nothing
好了表數據已經導出到數組了!下面我們將遍歷這個數組
Dim Arr_CateNumS,Arr_CateNumI
Arr_CateNumS=Ubound(Arr_Cate,2) '得到數組中數據的下標
For Arr_CateNumI=0 To Arr_CateNumS
Response.Write("ID:"&Arr_Cate(0,Arr_CateNumI)&" | 標題:"&Arr_Cate(1,Arr_CateNumI)&" | 介紹:"&Arr_Cate(2,Arr_CateNumI)&"<br>")
Next
呵呵,好了,輸出的數據為:
ID:1 | 標題:新聞 | 介紹:這裡是新聞
ID:2 | 標題:教程 | 介紹:這裡是教程
ID:3 | 標題:下載 | 介紹:這裡是下載