28,404
社区成员
发帖
与我相关
我的任务
分享 <td>类 型</td>
<%ProdType=5 set rs=server.createobject("adodb.recordset")
sql="Select top 5 * from [Host_List] "
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
do while not rs.eof
%>
<td><%=rs("name")%></td>
<td><%=rs("age")%></td>
<%
sql = "SELECT TOP 5 [name],[age] FROM [Host_List]"
Set rs = CreateObject("ADODB.Recordset")
rs.CursorLocation = 3
rs.Open sql, conn, 1, 1
If Not (rs.EOF And rs.BOF) Then
arr = rs.GetRows();
End If
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
If IsArray(arr) Then
%>
<table>
<tr>
<%
For i = 0 To UBound(arr,2)
Response.Write "<td>" & arr(0,i) & "</td>"
Next
%>
</tr>
<tr>
<%
For i = 0 To UBound(arr,2)
Response.Write "<td>" & arr(1,i) & "</td>"
Next
%>
</tr>
</table>
<%
Erase arr
End If
%>