把RS.GetRows看得更清楚

用过Rs.GetRow的兄弟都知道Rs.GetRow可以更有效率地获取小容量数据（不适合大容量数据，尤其涉及大对象的时候，容易暴掉，我就爆过一次），PuterJam应用得不错的说。

但是Rs.GetRow返回的是一个二维数组，我们经常不知道哪段对哪段。这个很麻烦，于是编了一小段程序方便调试用：


    Dim ds
    Set objRS=objConn.Execute("SELECT * FROM [blog_Upload] WHERE ([ul_Quote] LIKE '%" & CStr(ID) & "%') ")
        ds=objRS.GetRows
    objRS.Close()
    Set objRS=Nothing

' 建立一个表格
Response.Write "Written By Sipo(www.dc9.cn)<table align=""center"" border=""1"">"
Response.Write vbcrlf
Response.Write "<tr><td></td>"
For j = 0 To UBound(ds, 1)
Response.Write "<td>ds("&j&",X)</td>"
Next
Response.Write "</tr>"
' 每一行
  For i = 0 To UBound(ds, 2)
    Response.Write "<tr><td>ds(X,"&i&")</td>"& vbcrlf
    ' 每一列
    For j = 0 To UBound(ds, 1)
      Response.Write "<td>"
      If IsNull(ds(j, i)) Then 
      Response.Write "Null"
      Else
      Response.Write ds(j, i)
      End If
      Response.Write "<br>"
      Response.Write "<b>ds("&j&","&i&")</b>"
      Response.Write "</td>"
    Next

    Response.Write "</tr>" & vbcrlf
  Next

  Response.end






--------------------------------------------------------------------------------

献给菜鸟们：
关于GetRows的小资料：


ADO也提供更有效率方法来取得数据。GetRows 方法传回一个二维的数组变量，每一行对应Recordset中的一笔记录，且每一列对应到记录中的字段。此方法的语法如下： 

varArray = rs.GetRows([Rows], [Start], [Fields]) 

Rows 是要读取记录的数量；如果想要取得Recordset所有记录，可用-1或省略此参数。Start 是指出第一个被读取记录的书签；也可以是下列列举常数中的一个：0-adBookmarkCurrent（目前记录）、1-adBookmarkFirst（第一笔记录）、或2-adBookmarkLast（最后记录）。