Question

ASP 图片列表问题

<%
dim db
set db=server.CreateObject("adodb.connection")
db.open "provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("data.mdb")
%>
<style type="text/css">
<!--
BODY {
MARGIN: 0px; FONT-SIZE: 12px
}
-->
</style>
<%
dim strsql,rs
strsql="select * from product order by id desc"
set rs=db.execute(strsql)
%>
<div>
<table width="159" height="221" border="1">
<tr>
<%
do while not rs.eof
%>
<td width="149" valign="top">
<%
if rs.eof and rs.bof then
response.write "</td>"
else
%>
<img name="" src="<%=rs("p_img")%>" width="159" height="201" alt=""></td>
<%
end if
rs.movenext
loop
%>
</tr>
</table>
</div>
这段代码是图片排列的一段代码 如何修改让他每排显示4张然后自动换行然后分页显示每页最多16张图片？谢谢各位大侠 分不多 这是我全部的分了 万分感谢啊

Answer 1

<table width="159" height="221" border="1">
<tr>
<%
i=0
do while not rs.eof
%>
<td width="149" valign="top">
<%
if rs.eof and rs.bof then
response.write "</td>"
else
%>
<img name="" src="<%=rs("p_img")%>" width="159" height="201" alt=""></td>
<%
end if
i=i+1
if i mod 4=0 then
response.Write "</tr>"
end if
rs.movenext
loop
%>
</table>

Answer 2

每4个换行可以设置mod 4=0 然后br 最多16行更简单 设置一个变量 自增 到了16 break 出去