Question

asp代码 产品横向排4个自动换行，怎么实现

<table width="99%" border="0" align="center" cellpadding=2 cellspacing=1 bgcolor="#fefefe">
<tr><td>目前位置：<a href=main.asp>首页</a> >
<% if sublar<>"" then%>
<a href='class.asp?LarCode=<%=server.URLEncode(sublar)%>'><%=sublar%></a>
<%if submid<>"" then%>
> <a href="class.asp?LarCode=<%=server.URLEncode(sublar)%>&MidCode=<%=server.URLEncode(submid)%>"><%=submid%></a>
<%
end if
else
response.write title
end if
%>
</td></tr>

<%
pages=fenlei_num
rsprod.pagesize=fenlei_num
allPages = rsprod.pageCount '总页数
If not isNumeric(page) then page=1
if isEmpty(page) or clng(page) < 1 then
page = 4
elseif clng(page) >= allPages then
page = allPages
end if
rsprod.AbsolutePage=page
Do While Not rsprod.eof and pages>0
%>

<tr><td width="190">
<table border=0 width=100% bgcolor=cccccc cellpadding=0 cellspacing=1>
<tr><td valign=top width=190 bgcolor=FFFFFF align=center>
<table border=0 width=100%><tr><td class="pic2" align=center valign=bottom><a href=list.asp?ProdId=<%=rsprod("ProdId")%>><%=lleft

(rsprod("ProdName"),60)%></a><br>
<img border=0 src=images/small/pic_bg_big<%=pic_xiaogao%>.gif><p class="pic1">
<a href=list.asp?ProdId=<%=rsprod("ProdId")%>>
<img border=0 alt='<table border=0 width=300><tr><td width=70><b>商品名称</b>：</td><td><%=rsprod("ProdName")%></td></tr></table>'

onload='DrawImage(this)' src="<%=rsprod("ImgPrev")%>"></a>
</td></tr></table>
</td>
</tr></table>
刚才忘记给分了，现在补上，希望朋友们帮我改一下，谢谢

把商品横向列为4个自动换行就行了

Answer 1

<table width="99%" border="0" align="center" cellpadding=2 cellspacing=1 bgcolor="#fefefe">
<tr><td>目前位置：<a href=main.asp>首页</a> >
<% if sublar<>"培禅" then%>
<a href='class.asp?LarCode=<%=server.URLEncode(sublar)%>'><%=sublar%></a>
<%if submid<>"" then%>
> <a href="class.asp?LarCode=<%=server.URLEncode(sublar)%>&MidCode=<%=server.URLEncode(submid)%>"><%=submid%></a>
<%
end if
else
response.write title
end if
%>卜中野
</td></tr>

<%
pages=fenlei_num
rsprod.pagesize=fenlei_num
allPages = rsprod.pageCount '总页数
If not isNumeric(page) then page=1
if isEmpty(page) or clng(page) < 1 then
page = 4
elseif clng(page) >= allPages then
page = allPages
end if
rsprod.AbsolutePage=page
Do While Not rsprod.eof and pages>0
%>

<tr><td width="190">
<table border=0 width=100% bgcolor=cccccc cellpadding=0 cellspacing=1>
<tr><td valign=top width=190 bgcolor=FFFFFF align=center>
<table border=0 width=100%><tr><td class="pic2" align=center valign=bottom><a href=list.asp?ProdId=<%=rsprod("ProdId")%>><%=lleft

(rsprod("ProdName"),60)%></a><br>
<img border=0 src=images/small/pic_bg_big<%=pic_xiaogao%>.gif><p class="pic1">
<a href=list.asp?ProdId=<%=rsprod("ProdId")%>>
<img border=0 alt='<table border=0 width=300><tr><td width=70><b>商品名称</b>：</td><td><%=rsprod("ProdName")%></td></tr></table>'

onload='DrawImage(this)' src="<%=rsprod("ImgPrev")%>"></a>
</td><%for i=1 to rsprod.recordcount
if i mod 4 =0 then
%></tr><%
next
end if%></table>
</td>
</tr></table>型喊

没有数据库可测试，你试试看可不可以，不行就HI我吧。

Answer 2

你这代码写的太乱了看半天看不懂，而滑吵且do while 也没有loop
你说的是不是每显示四个大让州图片就让它换一行，要这样的话，
加一个判断语句
<滚蔽%dim n
if n mod 4=o then %>
</tr><tr>
<%
end if
n=n+1
%>