GetRows的用法

大家应该都知道 Recordset 有个 GetRows 属性，但是真正使用的不多
其实这个属性很简单，就是把数据集输出到一个数组中。但是实用性可不小，在这里我举一个例子说明一下GetRows的使用方法，大家举一反三能想到更多的用法。

比如一个BLOG分类的表 b_cat，结构和数据如下：

ID   |   Title   |  Intro
-----------------------------------------
-----------------------------------------
1    |   新闻   |  这里是新闻
2    |   文章   |  这里是文章
3    |   下载   |  这里是下载

这样表建立好了，数据也有了，下面用GetRows 方法

Dim Rs_Cat
Dim Arr_Cat
Set Rs_Cat=Conn.ExeCute("SELECT ID,Title,Intro FROM b_Cat ORDER BY ID ASC")
Arr_Cate=Rs_Cat.GetRows
Set Rs_Cat=Nothing

把表数据导出到数组！下面将遍历这个数组


Dim Arr_CatNumS,Arr_CatNumI
Arr_CatNumS=Ubound(Arr_Cat,2)  '得到数组中数据的下标
For Arr_CatNumI=0 To Arr_CatNumS
    Response.Write("ID："&Arr_Cat(0,Arr_CatNumI)&" | 标题："&Arr_Cat(1,Arr_CatNumI)&" | 介绍："&Arr_Cat(2,Arr_CatNumI)&"<br>")
Next

于是，输出的数据为：
ID：1 | 标题：新闻 | 介绍：这里是新闻
ID：2 | 标题：文章 | 介绍：这里是文章
ID：3 | 标题：下载 | 介绍：这里是下载


此方法把查询结果放进内存,及时的关闭数据库链接，并且用数组比用记录集循环速度快一些。