介绍一下GETROWS的用法

　2001-02-15 10:16:18　来源：WEB开发网　　　

核心提示：<HTML><HEAD><TITLE>Place Document Title Here</TITLE></HEAD><BODY BGColor=ffffff Text=000000><%Set cn = Server.CreateObjec

<HTML>
　　<HEAD>
　　<TITLE>Place Document Title Here</TITLE>
　　</HEAD>
　　<BODY BGColor=ffffff Text=000000>
　　<%
　　Set cn = Server.CreateObject("ADODB.Connection")
　　cn.Open application("guestDSN")
　　sql = "SELECT * FROM authors"
　　Set RS = cn.Execute(sql)
　　ary = rs.GetRows(10)
　　rs.close
　　cn.close
　　%>
　　<P>
　　<TABLE BORDER=1>
　　<%
　　nRows = UBound( ary, 2 )
　　For row = 0 To nRows %>
　　<TR>
　　<% For col = 0 To UBound( ary, 1 ) %>
　　<TD><%= ary( col, row ) %> </TD>
　　<% Next %>
　　</TR>
　　<% Next %>
　　</TABLE>
　　</HTML>