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
