使用RecordSet对象的GetRows方法

写ASP程序时，一般情况总是使用的VBScript，不过也不只是这一种选择，也可以用JScript。但在用JScript作为ASP的语言时，比用VBScript有一些小小的不方便，比如RecordSet的GetRows方法。

　　在ASP中操作数据库，一般都要用到RecordSet对象，如果注重程序效率的话，可能就会用到RecordSet对象的GetRows方法，把记录集对象转换成数组，而操作数组在速度上将比用RecordSet对象的MoveNext方法快很多，而且可以在取出数组后尽早释放RecordSet对象，从而减少资源的占用，这也是优化ASP性能的一个方法。

　　在VBScript里，用RecordSet.GetRows方法取到的是一个二维数组，里面的数据可以通过遍历数组的方式来取得。

　　假设现在有一个数据库，其中有一个表名为mytable，有3个字段，名称分别为id,first,second。

　　程序代码：

1. '' code by xujiwei
2. '' http://www.xujiwei.cn/
3. '' 定义变量
4. Dim conn,rs,data,recN,i
5. '' 连接数据库
6. Set conn=Server.CreateObject("ADODB.Connection")
7. conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &_
8.     Server.MapPath("data.mdb")
9. '' 获取记录集
10. Set rs=conn.Execute("SELECT id,first,second FROM mytable")
11. '' 获取数据数组
12. data=rs.GetRows()
13. '' 关闭记录集，释放对象
14. rs.Close()
15. Set rs=Nothing
16. '' 获取记录数
17. recN=UBound(data,2)
18. '' 循环输出数据
19. For i=0 To recN
20.     '' 注意，数组下标从0开始
21.     '' 显示数据库中数据
22.     Response.Write("ID: "&data(0,i)&", First: "&data(1,i)&_
23.         ", Second: "&data(2,i)&"<br />")
24. Next
25. '' 关闭数据库连接，释放对象
26. conn.Close()
27. Set conn=Nothing
28. %>