搜索出一字段的全部记录，请问每行显示三个记录，然后隔行再显示三个，这样循环，如何实现。？

[sxsgssgs]

搜索出一字段的全部记录，请问每行显示三个记录，然后隔行再显示三个，这样循环，如何实现。？

谢谢，

[sxsgssgs]

谢谢，

[kangji]

双循环实现
第一个循环是取数据
第二个循环是控制显示,比如for i=1 to 3

[nonhero]

Dim nMod

For i=1 to rs.RecordCount step 3
for j=1 to 3
response.write rs("value")
next
Next

[nonhero]

修正一下：

For i=1 to rs.RecordCount step 3
for j=1 to 3
response.write rs("value")
rs.MoveNext
next
Next

[sxsgssgs]

如果把<tr>加进去，如何加，每个<td></td>里加一个记录。

[phckt]

do while not rs.eof
i=i+1
lb=i mod 3
if lb=1 then
response.write "<tr>"
response.write "<td>"&rs("link")&"</a>"
response.write "</td>"
else
response.write "<td>"&rs("link")&"</a>"
response.write "</td>"
end if
if lb=0 then
response.write "</tr><tr>"
end if
rs.movenext
loop

[cheqiang]

<%
response.write "<table>"
if rs.bof and rs.eof then
response.write "<tr><td>没有任何数据</td></tr>"
else
response.write "<tr>
i=0
do while not rs.eof
response.write "<td>"
response.write rs("key")
response.write "</td>"
rs.movenext
i=i+1
if (i+1) mod 3=0 and i<rs.recordCount then
response.write "</tr><tr>"
end if

loop

response.write "</tr>"
end if
%>