asp GegRowsの使い方

6536 ワード

<HTML>
    <HEAD>
        <TITLE>  GETROWS    </TITLE>
    </HEAD>
    <BODY BGColor=ffffff Text=000000>
    <%
    sql = "SELECT * FROM article"
    Set rs = System.Execute(sql)
    ary = rs.GetRows(10) '   10   ,   rs.GetRows()         
    rs.close
    conn.close
    %>
    <TABLE BORDER=1>
    <% 
    nRows = UBound( ary,2) '  nRows  9.              ,    0   。
    For row = 0 To nRows %><!--    10    -->
    <TR>
    <% For col = 0 To UBound( ary,1) %><!--      .          .-->
    <TD><%= ary( col, row ) %> </TD><!--    -->
    <% Next %>
    </TR>
    <% Next %>
    </TABLE>
</body>
</HTML>