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>