<TR bgColor="#ffffff">
<%for i=1 to 6
if Recordset1.eof then exit for
%>
<td><A HREF="#" onClick="" target="_blank"><img src= "<%=(Recordset1.Fields.Item("pic").Value)%>" border="0"></A></td>
<%
Recordset1.movenext
next
%>
</tr>
<%
loop
%>
上面代码没问题是循环显示图片的..一行6个..我现在要进行分页,,每页4行,代码怎么加