Question

asp记录怎么横向排列啊？

各位老师，谁能帮把我下面把下面的代码修改一下，让记录横向排列，每排5行，如下面的样子显示
记录1 记录2 记录3 记录4 记录5
记录6 记录7

原来代码如下

<table width="880" border="0" cellspacing="2">
<tr>
<td><%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<table width="162" border="0" cellspacing="2">
<tr>
<td align="center"><img src="<%=(Recordset1.Fields.Item("f_image").Value)%>" width="160" height="120" /></td>
</tr>
<tr>
<td align="center"><%=(Recordset1.Fields.Item("f_name").Value)%></td>
</tr>
</table>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%></td>
</tr>
</table>
第一条答案可以用，只是把所有的记录都在一个网页内显示出来了，我只想每个网页显示30条记录，应该怎么改？

Answer 1

复制去直接用：
<%'如果该记录集为空，输出暂无图片的分类，
if Recordset1.EOF then%>
<table width="99%" height="25" border="0" align="center" cellpadding="0" cellspacing="1" class="news-font" >
<tr>
<td width="28%">暂无图片！</td>
</tr>
</table>

<%
'如果不为空，则显示如下表格
else
%>
<table width="880" border="0" cellspacing="2">
<tr>
<% '将Recordset1的所有图骗循环显示
For i = 1 to Recordset1.recordcount
%>
<td>
<!--单个图片表格begin-->
<table width="162" border="0" cellspacing="2">
<tr>
<td align="center"><img src="<%=(Recordset1.Fields.Item("f_image").Value)%>" width="160" height="120" /></td>
</tr>
<tr>
<td align="center"><%=(Recordset1.Fields.Item("f_name").Value)%></td>
</tr>
</table>
<!--单个图片表格结束-->
<%'如果图片一排满足4行就输出一对<tr>标签，用于换行
'其中4可以改为你要的个数
if i mod 4 = 0 then
response.Write("</tr><tr>")
end if
Recordset1.movenext
next
end if
%>
</td>
</tr>
</table>

Answer 2

这样就可以了：
<table width="880" border="0" cellspacing="2">
<tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<td><table width="162" border="0" cellspacing="2">
<tr>
<td align="center"><img src="<%=(Recordset1.Fields.Item("f_image").Value)%>" width="160" height="120" /></td>
</tr>
<tr>
<td align="center"><%=(Recordset1.Fields.Item("f_name").Value)%></td>
</tr>
</table></td>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</tr>
</table
</body>

Answer 3

说一下 循环结构
<table>
<tr>

<% dim i
i=0
do while NOT Recordset1.EOF
i=i+1
%>
<td>
<!--这里放希望调用的单元-->
<td>

<%
if i mod 5 =0 then
response.write "</tr><tr>"
end if
Recordset1.movenext
Loop
%>
</tr>
</table>