表格用嵌套循环外行内列的方法
循环10行5列的表格
Dim Row,Col
'Row行,Col列
Response.Write "<table>"
For Row=0 To 10
Response.Write "<tr>"
For Col=0 To 5
Response.Write "<td>"&Row&"行"&Col&"列<td>"
Next
Response.Write "</tr>"
Next
Response.Write "</table>"
如果是分页读取可以在分页循环中用Mod来做
Dim iPage,Col,TempHTML
Col=0
TempHtml=""
For iPage=0 To rs.PageSize
Col=Col+1
If Col Mod 4=0 Then
Response.Write "<tr>"&TempHtml&"</tr>"
TempHtml=""
Else
TempHtml=TempHtml&"<td><img src="&rs("Image")&"></td>"
End IF
Next