求助，图片横向显示自动换行？ - ASP技术论坛

问题点数：0 回复次数：4

求助，图片横向显示自动换行？

<%
        dim i,q
        if not rs.eof then
        for i=1 to 5
        q=1
        %>
            <td align="center">

            <IMG SRC="admin/product/<%=rs("image")%>" width="120" height="100">
</td>    <%
        if q mod 3=0 then Response.Write("<br>")
        q=q+1
        rs.movenext
        next
        %>
         </tr>
        </table>
        <%
        else
            Response.Write("暂无信息")
        end if
        %>

我的代码是这样写的但是似乎不行，请高手帮帮忙。。。。还有要加个分页。。。。给个方案吧，最好是简单点的难了看不懂

搜索更多相关主题的帖子: 自动　

第 2 楼

得分:0

程序代码：

<table ><tr> 
<% 
set rs = server.createobject("adodb.recordset") 
rs.open "select......",conn,1,1 
'定议分页 
dim pages,count,size 
size=12 
rs.pagesize = size 
count = rs.pagecount 
if not isempty(request("page")) then 
 
pages = cint(request("page")) 
end if 
if pages<=0 then 
pages=1 
elseif pages<1 then 
pages =1 
end if 
if pages>rs.pagecount then 
pages=rs.pagecount 
end if 
 
 
rs.absolutepage = pages 
call list 
'显示帖子的子程序 
Sub list() 
 
If rs.eof and rs.bof then 
  response.write "<br>&nbsp;&nbsp;&nbsp;&nbsp;没有内容" 
  exit Sub 
End if 
 
i = 0 
do while not rs.eof 
i = i +1 
 
%> 
<td> 
<IMG SRC="admin/product/<%=rs("image")%>" width="120" height="100"> 
</td> 
<% 
p = p + 1 
if p mod 3 =0 then 
response.write"</tr>" 
end if 
if i>= size then exit do 
rs.movenext 
loop 
end sub 
 
%> 
</table> 
<table> 
<tr><td style="font-size:12px; color;#FFFF00"> 
<% 
response.write"<a href='XX.asp?page="+cstr(1)+"'>[首页]</a>" 
response.write"<a href='XX.asp?page="+cstr(pages-1)+"'>[上一页]</a>" 
response.write"<a href='XX.asp?page="+cstr(pages+1)+"'>[下一页]</a>" 
response.write"<a href='XX.asp?page="+cstr(count)+"'>[尾页]</a>" 
%> 
</td></tr> 
</table>

第 3 楼

得分:0

回复楼主急速之旅

<%
        dim i,q
        if not rs.eof then
        for i=1 to 5
        response.write"<tr>"
        q=1
        %>
            <td align="center">

            <IMG SRC="admin/product/<%=rs("image")%>" width="120" height="100">
</td>    <%
        if q mod 3=0 then Response.Write("</tr>")

        q=q+1
        rs.movenext
        next
        %>
         </tr>
        </table>
        <%
        else
            Response.Write("暂无信息")
        end if
        %>

第 4 楼

得分:0

<%
        dim i,q
        if not rs.eof then
        q=0
        for i=1 to 5
        q=q+1
        %>
            <td align="center">
            <IMG SRC="admin/product/<%=rs("image")%>" width="120" height="100">
</td>    <%
        if q mod 3=0 then Response.Write("<br>")
        rs.movenext
        next
        %>
         </tr>
        </table>
        <%
        else
            Response.Write("暂无信息")
        end if
        %>

第 5 楼

得分:0

<table>
<tr>
<%
        dim i,q
         if not rs.eof then
        q=0
        for i=1 to 5
        q=q+1
        %>
            <td align="center">
            <IMG SRC="admin/product/<%=rs("image")%>" width="120" height="100">
</td>    <%
        if q mod 3=0 then
           Response.Write("</tr><tr>")
        end if
        rs.movenext
        if rs.eof then exit for
        next
        %>
        </table>
        <%
        else
            Response.Write("暂无信息")
        end if
        %>
用这个我测试过的可以实现你要的效果