<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>

谢谢大家 帮忙看下

谢谢你
我试下