1. 论坛系统升级为Xenforo,欢迎大家测试!
    排除公告

求助:ASP调用自动换行

本帖由 JayKing2006-02-06 发布。版面名称:后端开发

  1. JayKing

    JayKing New Member

    注册:
    2006-01-08
    帖子:
    2
    赞:
    0
    在改一个动感商城,但是调用最新列别,商品多了以后不能自动换行,会撑破表格,哪位大侠帮我看看啊:(
    代码如下:
    代码:
    <%set rsclass=server.CreateObject("adodb.recordset")
    rsclass.Open "select * from shop_config",conn,1,1
    class2=rsclass("class")
    class2=trim(class2)
    if class2<>"" then 
    bsort2=split(class2,",")
    for i=0 to ubound(bsort2)
    classname=bsort2(i)
    %><%if fl=1 then%>
              <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td><span class="fontglow"><b><font 
                      color=#ff6600><b>
                    <img src="img/top1.gif" width="12" height="13">
                    <%set rs2=server.CreateObject("adodb.recordset")
    			rs2.open "select * from shop_anclass where anclassid="&classname&"",conn,1,1
    			do while not rs2.eof
    			response.write "<A href=class.asp?lx=big&anid="&classname&"><font color="&trim(rs2("sztys"))&">"&trim(rs2("anclass"))&"</font></A>  " 
                 rs2.movenext
    			 loop
    			 rs2.close
    			 set rs2=nothing
    %>
                  </b></font></b></span>&gt; 
                  <%
    			set rs2=server.CreateObject("adodb.recordset")
    			rs2.open "select * from shop_nclass where anclassid="&classname&" order by nclassidorder",conn,1,1
    			do while not rs2.eof
    			response.write "<A href=class.asp?lx=small&anid="&classname&"&nid="&rs2("nclassid")&"><font color="&trim(rs2("xsztys"))&">"&trim(rs2("nclass"))&"</font></A> | " 
                 rs2.movenext
    			 loop
    			 rs2.close
    			 set rs2=nothing
    %></td>
                </tr>
              </table>
              <%end if%>
              <table width="98%" border="0" align="center" cellpadding="3" cellspacing="0">
                <%
    					set rsx=server.createobject("adodb.recordset")
    						  rsx.open "select Top 2 * from shop_snsn where anclassid="&classname&" order by adddate desc",conn,1,1
    						  if rsx.recordcount=0 then 
    						  response.write "<tr><td>&nbsp;此分类暂无商品,正待添加!</td></tr>"
    						  else
    						  %>
                <tr>
                  <%
    						  while not rsx.eof
    						  %>
                  <td>
                      <table width="100%" border="0" cellspacing="0" cellpadding="0">
                        <tr>
                          <td width="170" height="7"></td>
                        </tr>
                      </table>
                      <table width="260"  border="0" cellspacing="0" cellpadding="0">
                        <tr>
                          <td width="90"><a href=list.asp?id=<%=rsx("shopid")%> <%if rsx("sftc")="" then%><%else%> target=<%=rsx("sftc")%><%end if%>>
                            <%if rsx("shoppic")="" then 
    	response.write "<div align=center><a href=list.asp?id="&rsx("shopid")&" ><img src=img/emptyshop.gif width=85 height=85 border=0></a></div>"
    	else
        response.write "<img src="&rsx("shoppic")&"  width="&upload13&" height="&upload14&" border=0>"
        end if%>
                          </a></td>
                          <td><span class="style2"><strong><a href=list.asp?id=<%=rsx("shopid")%> <%if rsx("sftc")="" then%><%else%> target=<%=rsx("sftc")%><%end if%>><%=rsx("shopname")%></a></strong></span><br>                        <span class="style2">【市场价】<s><%=formatnumber(rsx("shichangjia"),2)%>元</s></span><br>
                          <span class="style2">【会员价】<%=formatnumber(rsx("huiyuanjia"),2)%>元</span><br>                      
                          <a href="gouwu.asp?id=<%=rsx("shopid")%>&action=add"><img src="img/gm.gif" border="0"></a> <a href="shoucang.asp?id=<%=rsx("shopid")%>&action=add"><img src="img/sc.gif" border="0"></a></td>
                        </tr>
                      </table>
                    </td>
                  <%
    			rsx.movenext
    		    wend
    			%>
                </tr>
                <%
    						  end if
    						  rsx.close
    						  %>
              </table>
              <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td height="12"></td>
                </tr><tr>
                  <td height="1"  bgcolor="#CCCCCC"></td>
                </tr><tr>
                  <td height="12"></td>
                </tr>
              </table><%next
    end if
    rsclass.Close
    set rsclass=nothing
    %>





    上面
    代码:
    rsx.open "select Top 5 * from shop_snsn where anclassid="&classname&" order by adddate desc",conn,1,1
    中的5是调用个数,但是怎么才能让他每3个自动换一行呢?