Question

ASP如何横排显示产品图片，请教高手，能否帮忙改代码，谢谢。

<%
set rs=server.createobject("adodb.recordset")
if BigClassID="" then
exec="select * from products order by id desc"
end if
if BigClassID<>"" then
exec="select * from products where BigClassID="&BigClassID&" order by id desc"
end if
rs.open exec,conn,1,1
if rs.eof then
response.Write " 暂无产品！"
else
rs.PageSize =""&TD_productsclass&"" '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=b
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
end if
%>
<%For i=1 To x%>
<tr>
<td width="230" align="left" valign="top" class="border-b" style="padding-bottom:20px;"><table width="214" height="140" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="middle" ><a href="/ShowProducts/?<%=rs("id")%>-1.html"><img src="<%=rs("img")%>" width="190" height="116" border="0" /></a><p><%=i5808(rs("title"),90)%></td>

</tr>
</table></td>
</tr>
<%rs.movenext
next
%>

Answer 1

没有你的数据库，不能更据体的调试。只给出排列方法。如须据体的调试，请留扣扣

1. <table border="0" width="600" id="table1" cellspacing="0" cellpadding="0">

2. <%

3. list=6         '列数

4. line=3        '行数

5. for i=1 to line

6. %>

7.  <tr>

8. <%for n=1 to list%>

9.   <td align="center">

10.   <table border="0" cellspacing="4">

11.     <tr>

12.      <td align="center"><a href="/ShowProducts/?<%=rs("id")%>-1.html"><img src="<%=rs("img")%>"></a></td>

13.     </tr>

14.     <tr>

15.      <td align="center">产品称</td>

16.     </tr>

17.     </table>

18. </td>

19. <%next%>

20.  </tr>

21. <%next%>

</table>
如下图：

追问

我的q 21991906

追答

根据你的代码建了数据库，调试成功。请下载附件

运行结果如下图：

Answer 2

<tr>
<%For i=1 To x%>
<td width="230" align="left" valign="top" class="border-b" style="padding-bottom:20px;"><table width="214" height="140" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center" valign="middle" ><a href="/ShowProducts/?<%=rs("id")%>-1.html"><img src="<%=rs("img")%>" width="190" height="116" border="0" /></a><p><%=i5808(rs("title"),90)%></td></tr> </table></td>
<%
if i mod 3 = 0 then response.write "</tr><tr>" '要显示几个就mod数字，现在是横排三个
rs.movenextnextrs.movenext
%></tr>

追问

这个是插在哪里的呢，按你这个改了会出错

追答

for循环那开始到代码最后，替换成下面
-1.html">" width="190" height="116" border="0" /> " '要显示几个就mod数字，现在是横排三个rs.movenextnext%>