落伍者站长论坛 » 新人交流投稿(入伍区) » 站长知道(解答积分) » 代码求救

qq479668 发表于 2008-5-1 15:45

代码求救

<link href="images/index.css" rel="stylesheet" type="text/css">  
<%
sql1=" select * from class order by id "
Set rs1=Server.CreateObject("ADODB.RecordSet")
rs1.open sql1,conn,1,1
if rs1.eof then
        response.write "?μí3?D?1??óD2ú?··?ààD??￠￡?"
else
        Do while not rs1.eof
%>
<table width="190" height="31" border="0" cellpadding="0" cellspacing="0">
  <tr bgcolor="#F0F0F0">
    <td width="35" height="35">
      <div align="center"></div></td>
    <td>·<span class="STYLE3"><a href="product.asp?classid=<%=rs1("id")%>"><%=rs1("classname")%></a></span></td>
  </tr>
  <tr>
    <td height="1" colspan="2" background="images/x1.gif"></td>
  </tr>
</table>
<%



sql2=" select * from nclass where classid="&rs1("id")&" order by id "
Set rs2=Server.CreateObject("ADODB.RecordSet")
rs2.open sql2,conn,1,1
if rs2.eof then

else
        Do while not rs2.eof
%>
<table width="190" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td height="25" colspan="2"><div align="right">　</div></td>
    <td width="142" class="font112"><a href="product.asp?classid=<%=rs1("id")%>&nclassid=<%=rs2("id")%>"><%=rs2("nclassname")%></a>&nbsp;</td>
  </tr>
  <tr>
    <td width="22" height="1"></td>
    <td colspan="2" background="images/x1.gif"></td>
  </tr>
</table>
<%
        rs2.MoveNext
        i=i+1
        Loop

rs2.close
set rs2=nothing

end if


        rs1.MoveNext
        i=i+1
        Loop
end if
rs1.close
set rs1=nothing
%>



以上代码是一个程序的产品分类代码
一个行只显示一个小分类
怎么改能让一行显示2个小分类？

zb416213 发表于 2008-5-1 21:52

我随便搞了个表格分成同一行，看看是否可以。
<link href="images/index.css" rel="stylesheet" type="text/css">
<table width="37%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="29%"><%
sql1=" select * from class order by id "
Set rs1=Server.CreateObject("ADODB.RecordSet")
rs1.open sql1,conn,1,1
if rs1.eof then
        response.write "?μí3?D?1??óD2ú?··?ààD??￠￡?"
else
        Do while not rs1.eof
%>
      <table width="190" height="37" border="0" cellpadding="0" cellspacing="0">
        <tr bgcolor="#F0F0F0">
          <td width="35" height="35"><div align="center"></div></td>
          <td>·<span class="STYLE3"><a href="product.asp?classid=<%=rs1("id")%>"><%=rs1("classname")%></a></span></td>
        </tr>
        <tr>
          <td height="2" colspan="2" background="images/x1.gif"></td>
        </tr>
      </table></td>
    <td width="71%"><%



sql2=" select * from nclass where classid="&rs1("id")&" order by id "
Set rs2=Server.CreateObject("ADODB.RecordSet")
rs2.open sql2,conn,1,1
if rs2.eof then

else
        Do while not rs2.eof
%>
      <table width="190" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="25" colspan="2"><div align="right">　</div></td>
          <td width="142" class="font112"><a href="product.asp?classid=<%=rs1("id")%>&nclassid=<%=rs2("id")%>"><%=rs2("nclassname")%></a> </td>
        </tr>
        <tr>
          <td width="22" height="1"></td>
          <td colspan="2" background="images/x1.gif"></td>
        </tr>
      </table>
      </td>
  </tr>
</table>
<%
        rs2.MoveNext
        i=i+1
        Loop

rs2.close
set rs2=nothing

end if


        rs1.MoveNext
        i=i+1
        Loop
end if
rs1.close
set rs1=nothing
%>

午夜留声机 发表于 2008-5-2 00:50

什么问题都没有说清楚

mcflycn 发表于 2008-5-2 01:49

这基本属于排版的问题，设计一点点ASP

查看完整版本: 代码求救