关于循环的问题

[quchanghai]

以下的程序有个小问题，请高手指点：
数据库里的内容显示出来后，是竖列排的，我想要横排的，一行显示六个，显示六个后，自动换到下一行，请问程序何写？
----------------------

<%
do until rs.eof
IsCheck=""
If InStr(Session("ProductList"), rs("bookbm")) > 0 Then
IsCheck="Checked"
End If
%>
<table width="243" border="0" cellspacing="2" cellpadding="2">
<tr>
<td rowspan="4"><a href="photo/<% =rs("picture") %>" target="_blank"><img src="photo/<% =rs("picture") %>" width="75" height="75" border="1" ></a></td>
<td>
<input type="CheckBox" name="bookbm" value="<%=rs("bookbm")%>" <%=IsCheck%>>
商品编号<%=rs("bookname")%> </td>
</tr>
<tr>
<td>生产厂家<%=rs("Author")%></td>
</tr>
<tr>
<td>原价
<% =rs("price") %>
</td>
</tr>
<tr>
<td>售价
<% =rs("yhj") %>
</td>
</tr>
</table>
<%
i=i+1
if i>=rs.PageSize then exit do
rs.movenext
loop
rs.close
set rs=nothing
set conn=nothing

%>

[iStringTheory]

给你一个例子：
我这个程序就是每6个换行，其实你只需要改bk就行了：

<table width="100%" border="0" cellspacing="1" cellpadding="1" align="center">
<% bk=0%>
<% do while not rsPlate.eof %>
<%
bk=bk+1
if bk=7 then
response.write "<tr>"
%>

<td width="25%" class="hand"> <table cellspacing="1" width=100% cellpadding="0" class="font9">
<tr>
<td class="bk4"> <img src="images/point1.gif" width="11" height="16" align="absbottom">
<%= rsPlate("plate") %> </td>
</tr>
</table></td>
<%
else
%>
<td width="25%" class="hand"> <table cellspacing="1" width=100% cellpadding="0" class="font9">
<tr>
<td class="bk4"> <img src="images/point1.gif" width="11" height="16" align="absbottom">
<%= rsPlate("plate") %> </td>
</tr>
</table></td>
<%
end if
%>
<%
if bk=7 then
bk=1
else
i=i+1
end if
if i>=rsPlate.recordcount then exit do
rsPlate.movenext
loop
rsPlate.close
set rsPlate=nothing
%>
</tr>
</table>

[cshadow]

测试通过：

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<%t=0
do until rs.eof
IsCheck=""
If InStr(Session("ProductList"), rs("bookbm")) > 0 Then
IsCheck="Checked"
End If%> <% if t mod 6 =0 then%>
</tr>
<tr>
<%end if%>
<td>
<table width="243" border="0" cellspacing="2" cellpadding="2">
<tr>
<td rowspan="4"><a href="photo/<% =rs("picture") %>" target="_blank"><img src="photo/<% =rs("picture") %>" width="75" height="75" border="1" ></a></td>
<td>
<input type="CheckBox" name="bookbm" value="<%=rs("bookbm")%>" <%=IsCheck%>>
商品编号<%=rs("bookname")%> </td>
</tr>
<tr>
<td>生产厂家<%=rs("Author")%></td>
</tr>
<tr>
<td>原价
<% =rs("price") %>
</td>
</tr>
<tr>
<td>售价
<% =rs("yhj") %>
</td>
</tr>
</table>
</td>
<%
i=i+1
if i>=rs.PageSize then exit do
rs.movenext
t=t+1
loop
rs.close
set rs=nothing
set conn=nothing

%></tr>
</table>

[tripofdream]

i=1
do ....
if i mod 6=0 then
......
response.write "</tr><tr>"
end if
rs.movenext
i=i+1
......
loop

[BrightEye]

每隔6个就输出一个"<br>"就行了.很简单啊!