代码循环上加限制,表格循环都是嵌套双循环外行内列
或者用Mod法取余数
比如
Dim rs,i,tHtml,iHtml
i=0
tHtml=""
iHtml=""
Response.Write "<table>"
Do Until rs.EOF
iHtml=iHtml&"<td><img src="&rs("Img")&"
width=120 height=120 /><td>"
IF i Mod 2=0 Then'这里判断每行2个
iHtml="<tr>"&iHtml&"</tr>"
tHtml=tHtml&iHtml
iHtml=""
End IF
i=i+1
rs.MoveNext
Loop
'输出结果
Response.Write tHtml
Response.Write "</table>"
分页循环的道理也是一样的
[
本帖最后由 yms123 于 2010-8-8 15:35 编辑 ]