分页代码修改
<!--产品循环开始-->
<div align="center">
<%
ses=" where admin=2"
if request("wd")<>"" then
ses=ses & " and type1='"&request("wd")&"'"
end if
set rs=server.createobject("adodb.recordset")
sql="select * from pro "&ses&" order by sj desc"
rs.open sql,conn,1,3
if rs.eof then
else
rs.pagesize=12
page=request("page")
if page<>"" then
page=clng(request("page"))
if page<1 then
page=1
end if
else
page=1
end if
if page>rs.pagecount then
page=rs.pagecount
end if
rs.AbsolutePage = page
for j=1 to rs.pagesize/4
%>
<table border="0" cellspacing="0" cellpadding="0" id="table1" class="font0" style="margin-top:18" height="77">
<tr>
<%
for i=1 to 4
%>
<td width="160" align="center" valign="top" class="pad5">
<table width="222" border="0" cellpadding="0" cellspacing="0" class="font1" id="table2">
<tr>
<td height="25" align="center"><a href="proindex.asp?id=<%=rs("id")%>" target=_blank>
<img src="site_manage/loveedit/uploadfile/<%=rs("tp")%>" width="223" height="169" border="0"style="border-left: 1px solid #DDDDDD; border-right: 1px solid #DDDDDD; border-top: 1px solid #DDDDDD; border-bottom: 1px solid #DDDDDD"></a></td>
</tr> <tr>
<td align="center" class="pad9"><a href="proindex.asp?id=<%=rs("id")%>" class="anone" target=_blank>
<p style="margin-top: 3px"> <%=mid(rs("tit"),1,20)%></a> </td>
</tr>
</table>
</td>
<%
rs.movenext
if rs.eof then exit for
next
%>
</tr>
</table>
<%
if rs.eof then exit for
next
end if
%>
</div>
<!--分页-->
<%
nowdomain="products.asp"
nowlast="wd="&escape(request("wd"))
%>
<!--#include file="page.html"-->
<!--分页-->
<!--产品循环结束-->
这个是循环产品的代码
我想变成每行3张图片
一共三行
也就是九张
请问如何修改?