网站是动态的,因为产品分类较多,如果不做成折叠的,那整个网站就会很难看,小弟初学asp,改了一上午没做好,哪位高手帮下忙,多谢了,产品分类页面代码如下:
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
sql = "select * from Product_Cate_1 where Show = 1 order by ShowOrder"
rs.open sql, myconn, 1
If Not(rs.Eof or rs.Bof) Then
Do Until rs.Eof
sql = "select count(ID) as Num from Product where  Show = 1 and Cate_1_ID = " & rs("Cate_1_ID") & " and Cate_2_ID = 0"
rs1.open sql, myconn ,1
Num0 = rs1("Num")
%>       
    <tr>
        <td width="641" height="25" class="pad"><img src="images/inco01.jpg" width="3" height="5">
                <span class="STYLE2"><% = rs("Name_EN") %></span></td></tr>
                              
<%
rs1.close
sql = "select * from Product_Cate_2 where Show = 1 and Cate_1_ID = " & rs("Cate_1_ID") & "  order by ShowOrder"
rs1.open sql, myconn ,1
If Not(rs1.Eof or rs1.Bof) Then
Do Until rs1.Eof
sql = "select count(ID) as Num from Product where  Show = 1 and Cate_1_ID = " & rs1("Cate_1_ID") & " and Cate_2_ID = " & rs1("Cate_2_ID")
rs2.open sql, myconn ,1
%>  
    <tr>
       <td style="padding:0 0 0 65; line-height:180%" class="pad1">
             <a href="product.asp?Cate_1_ID=<% = rs1("Cate_1_ID") %>&Cate_2_ID=<% = rs1("Cate_2_ID") %>">&nbsp;&nbsp;&nbsp;
              <% = rs1("Name_EN") %></a><br></td> </tr>
                               <%
                            rs2.close
                            rs1.MoveNext
                     Loop
              End If
              rs1.close
              rs.MoveNext
       Loop
End If
rs.close       
%>
</table>