谁帮我一下，我想数据库每行七条记录的读，表格总是破了，代码写不好

[AndenPP]

开始循环

-----------------------------------------------------------
| 图片1 | 图片2 | 图片3 | 图片4 | 图片5 | 图片6 | 图片7 |
-----------------------------------------------------------
| 型号1 | 型号2 | 型号3 | 型号4 | 型号5 | 型号6 | 型号7 |
-----------------------------------------------------------

....................
结束循环


-------------------
不知道怎么写了，如果没有7个的话就报错了，要么就是表格破了，页面全乱了
谁给个代码啊，不胜感激

[qiqunet]

用一个变量计数，达到７就退出打印表格，未达到７时到达记录集未端，则补打单元格。

dim i
i=0
rs.movefirst
do while not rs.eof
i=i+1
response.write"<td>rs("field")</td>"
if i>=7 exit do
rs.movenext
loop

if i<7 then
for j=i to 7
response.write"<td>　</td>"
next
end if

[net205]

我一般是这样做的
.....
Dim i
i=0
If not(objRst.eof and objRst.bof) Then
Response.Write "<table.....>"
While not objRst.eof
If i mod 7=0 Then Response.Write "<tr>"
Response.Write "<td width=14%><img src=abc.gif border=0><br>名称</td>"
i=i+1
If i mod 7=0 Then Response.Write "</tr>"
Wend
Response.Write "</table>"
End If
..........