举例如下:
<HTML>
<HEAD>
<TITLE>精彩春风之GETROWS用法示例</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>
相关文章
最新评论
站长推荐 正版Windows 10 家庭/专业版,操作系统限时抢购[¥1088→¥248] 站长推荐 Microsoft Office 2016/2019/365 正版最低价仅需[ ¥148元]
大家感兴趣的内容
最近更新的内容
常用在线小工具