<table width="98%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#dddddd" height="105">
<tr>
<td bgcolor="#FFFFFF"> <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" height="95">
<tr>
<td align="center" class=font1>
<%sqltext="select id,title,body1,picflag,picname from danwei where enable=1 and pid="&id&" order by pl"
rs.Open sqltext,cn,1,1
listcs=5
rs.PageSize=listcs
if pageno="" then
pageno=1
else
pageno=cint(pageno)
end if
m=0
if rs.PageCount>0 then rs.AbsolutePage=pageno
do while not rs.EOF and m<listcs
%>
<table width="114" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#DDDDDD" width="2"></td>
<td width="110"> <table width="100%" border="0" cellspacing="0" cellpadding="0" height="84">
<tr>
<td bgcolor="#dddddd" height="2"></td>
</tr>
<%if rs("picflag")=1 then%>
<tr>
<td><a href="<%=linkproductsdetails%>?id=<%=rs("id")%>"><img src="./upfile/<%=trim(rs("picname"))%>" width="110" height="80" border=0></a></td>
</tr>
<%else%>
<tr>
<td class=font1 align=center>[暂无图片]</td>
</tr>
<%end if%>
<tr>
<td bgcolor="#dddddd" height="2"></td>
</tr>
</table></td>
<td bgcolor="#DDDDDD" width="2"></td>
</tr>
</table>
<%rs.MoveNext
m=m+1
loop%>
</td>
</tr>
</table></td>
</tr>
</table>

谢谢大家 帮忙看下

楼主你循环的是table

正常应该循环td 并加以判断

<tr>
<%
Dim m
m = 0
Do While Not rs.Eof
%>
<td>
<table>......</table>
</td>
<%
m = m + 1
If (m mod 4) = 0 Then Response.write("</tr><tr>") ' 一行4个 然后换行
rs.MoveNext
Loop
%>
</tr>

[此贴子已经被作者于2006-12-22 13:24:26编辑过]

谢谢你
我试下