asp 中如何例出数据如QQ相册一样的？

例如，我要例出一条数据，要重复记录集。（打横重复）重复4次，又下一行重复。

重复4次，又下一行重复。

因为是自己写的，代码可能有点乱，嘿嘿！！仔细看下就明白了。

<!--#include file="Include/Conn.asp"-->
<!--#include file="Include/Function.asp"--><title>图片循环展示</title>
<table width="1000" border="1" align="left" cellpadding="0" cellspacing="0">
<tr>
<%
dim x
x=0
Set rs=server.CreateObject("adodb.Recordset")
sql="select * from SavePic"
rs.open sql,conn,1,1
if not(rs.Bof and rs.Eof) then
dim i
i=0
Do while (not rs.Eof)
i=i+1
%>
<td width="242"><table width="242" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="200"><a href="<%=rs("SavePath")%>" target="_blank"><img src="<%=rs("SavePath")%>" width="242" height="200"></a></td>
</tr>
<tr>
<td height="30" align="center"><a href="<%=rs("SavePath")%>" target="_blank"><%=rs("PicName")%></a></td>
</tr>
</table></td>
<%
rs.moveNext()
If i Mod 4 =0 Then
Response.Write("</tr><tr>")
End if
loop
End if
rs.close
set rs=Nothing
%>
</tr>
</table>
<%
Call ConnClose()
%>

如分页效果一样。

设置成输出的条数

把显示的区域设置成四张图片的宽度+图片之间的宽度就可以自动换行显示了,输出的图片宽度高度须一致