又一类多级菜单互动？？
http://www.gomy.com.tw/这个网站的左边菜单是怎么做的！ 问题点数：50、回复次数：4Top
1 楼piperzero（管子）回复于 2006-06-03 08:27:09 得分 0
<%
set rsBigClass1=server.CreateObject("adodb.recordset")
rsBigClass1.open "Select * From BigClass",conn,1,1
%>
<table width="80%" border="0" cellpadding="0" cellspacing="2">
<%
do while not rsBigClass1.eof
%>
<tr valign="top">
<td width="100%"><img src="Images/tree_folder4.gif" width="10" height="10" ><a href="Product.asp?BigClassName=<%=rsBigClass1("BigClassName")%>"><%=rsBigClass1("BigClassName")%></a><span class="style4">(<%
set rs1=server.createobject("adodb.recordset")
bigclassname=rsbigclass1("bigclassname")
sql1="select * from product where bigclassname='"&bigclassname&"'"
rs1.open sql1,conn,1,1
response.write(rs1.recordcount)
rs1.close
%>)</span>
<table width="100%" height="1" border="0" cellpadding="0" cellspacing="0" class="treetable">
<tr>
<td></td>
</tr>
</table> </td>
</tr>
<%
set rsSmallClass1=server.CreateObject("adodb.recordset")
rsSmallClass1.open "Select * From SmallClass Where BigClassName='" & rsBigClass1("BigClassName") & "'",conn,1,1
if not(rsSmallClass1.bof and rsSmallClass1.eof) then
do while not rsSmallClass1.eof
%>
<tr valign="top">
<td><a href="Product.asp?BigClassName=<%=rsBigClass1("BigClassName")%>&Smallclassname=<%=rssmallClass1("smallClassName")%>" ><%=rsSmallClass1("SmallClassName")%></a><span class="style4">(<%
set rs2=server.createobject("adodb.recordset")
smallclassname=rssmallclass1("smallclassname")
sql2="select * from product where smallclassname='"&smallclassname&"'"
rs2.open sql2,conn,1,1
response.write(rs2.recordcount)
rs2.close
%>)</span></td>
</tr>
<%
rsSmallClass1.movenext
loop
end if
rsSmallClass1.close
set rsSmallClass1=nothing
rsBigClass1.movenext
loop
%>
</table>
Top
2 楼mediabop（）回复于 2006-06-03 23:15:16 得分 0
http://www.gomy.com.tw/default.asp?G_Category=227&Affiliate_ID=0这个菜单，就跟ＣＳＤＮ差不多吧
！Top
3 楼mediabop（）回复于 2006-06-03 23:15:32 得分 0
要怎么做或Top
4 楼mediabop（）回复于 2006-06-03 23:15:57 得分 0
piperzero(管子)朋友，等下我给你分！Top
