【 tulaoshi.com - ASP 】
<HTML
<HEAD
<TITLEPlace 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
