求高手看下这段代码那里不能如题所说。。谢谢了。
图片是从数据库路读出来的，但是不能显示一行有3张。他显示出来就是一列了。。
我就是调用<%list()%>
<%'产品列表展示
sub list()
Set rs=Server.CreateObject("ADODB.RecordSet")
dim where :where=""
if len(bigclassid)=0 and len(smallclassid)=0 then where=""
if len(bigclassid)>0 then
if len(smallclassid)>0 then
where="where BigClassName='"&BigClassname&"' and SmallClassName='"&SmallClassname&"'"
else
where="where BigClassName='"&BigClassname&"'"
end if
end if
sql="select * from product "&where&" order by UpdateTime desc"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("暂时没有记录")
end if
%>
<%
If Len(page) = 0 Or Not IsNumeric(page) Then page = 1
If page < 1 Then page = 1
rs.PageSize=2
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize
%>
<div>
<table cellspacing="0" cellpadding="0" width="105" border="1" >
<tbody>
<tr>
<td width="105"
height="91" align="left" valign="left">
<a href="ProductShow.asp?id=<%=rs("id")%>"><img src="<%=rs("DefaultPicUrl")%>" title")%>" width="105" height="91" border="0" /></a></td>
</tr>
<tr>
<td colspan="2" align="center" class="fen" ><a href="ProductShow.asp?id=<%=rs("id")%>"><font color="#000000"><%=rs("title")%></font></a></td>
</tr>
</tbody>
</table>
</div>
<%
rs.movenext
if rs.eof then exit for
next
end sub
%>
显示效果就是这样：