举例如下:
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
[ 查看全文 ]