ASP的横向循环做法如下(若要控制每页的行数,则需要借助 分页 代码)
************************************************************************************************
<% '建立记录集
set rs = server.CreateObject("adodb.recordset")
rs.open "select * from 数据表 order by 字段 ",conn,1,1
%><table width="25%" border="0">
<tr>
<% i=0
do while not rs.eof %>
<td align="center" valign="middle">
<img src="pic/wish/step4.jpg" width="108" height="90" /></td>
<td height="20" align="center" valign="middle" class="lmwriter">xxx's wish </td>
<% i=i+1
if i mod 4=0 then '每行的个数
response.write "<tr></tr>"
end if
rs.movenext
loop
rs.close
set rs=nothing
%>
</tr>
</table>