三级动态树形菜单

三级树形菜单,之前有发过一个那个和这个还是有区别的.表结构仍然是我一直发的那样的.注意,不能打开二级类

就是说只能打开大类和三级类.当有类别无三级类时候,就不适用了.

<!--#include file="inc/conn.asp"-->

<TABLE width=190 >

<TR>
<TD width="100%">

<%
set rsBigClass1=server.CreateObject("adodb.recordset")
rsBigClass1.open "Select * From BigClass",conn,1,1
i=100

do while not rsBigClass1.eof
i=i+100
%>

<TABLE id=LeftMenu_<%=i%>_off cellSpacing=0 cellPadding=0
width="100%">
<TBODY>
<TR class=tree_button_title
onmouseover="this.className='tree_button_title_on';"
onclick="document.getElementById('LeftMenu_<%=i%>_on').style.display=(document.getElementById('LeftMenu_<%=i%>_on').style.display == 'none')?'':'none';document.getElementById('LeftMenu_<%=i%>_off').style.display=(document.getElementById('LeftMenu_<%=i%>_off').style.display=='none')?'':'none'"
onmouseout="this.className='tree_button_title'">
<TD><B><A
href="Product.asp?bigclassname=<%=rsBigClass1("BigClassName")%>"
><%=rsbigclass1("bigclassname")%></A></B>  </TD>
<TD align=right><IMG
src="newegg_menu/plus.gif"></TD></TR></TBODY></TABLE>

<TABLE id=LeftMenu_<%=i%>_on style="DISPLAY: none" cellSpacing=0
cellPadding=0 width="100%"> <TBODY>

<TR>
<TD>

<TABLE cellSpacing=0 cellPadding=0 width="100%">
<TBODY>
<TR class=tree_button_title
onmouseover="this.className='tree_button_title_on';"
onclick="document.getElementById('LeftMenu_<%=i%>_on').style.display=(document.getElementById('LeftMenu_<%=i%>_on').style.display == 'none')?'':'none';document.getElementById('LeftMenu_<%=i%>_off').style.display=(document.getElementById('LeftMenu_<%=i%>_off').style.display=='none')?'':'none'"
onmouseout="this.className='tree_button_title'">
<TD><B><A
href="Product.asp?bigclassname=<%=rsBigClass1("BigClassName")%>"
><%=rsbigclass1("bigclassname")%></A></B>  </TD>
<TD align=right><IMG
src="newegg_menu/minus.gif"></TD></TR></TBODY></TABLE>
<%
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
j=33
do while not rsSmallClass1.eof
j=j+100

%>
<!--三级类关闭时候-->
<TABLE id=LeftMenu_<%=i%>_<%=j%>_off cellSpacing=0
cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD class=tree_button
onmouseover="this.className='tree_button_on';"
onclick="document.getElementById('LeftMenu_<%=i%>_<%=j%>_on').style.display=(document.getElementById('LeftMenu_<%=i%>_<%=j%>_on').style.display == 'none')?'':'none';document.getElementById('LeftMenu_<%=i%>_<%=j%>_off').style.display=(document.getElementById('LeftMenu_<%=i%>_<%=j%>_off').style.display=='none')?'':'none'"
onmouseout="this.className='tree_button'"><IMG
height=6
src="newegg_menu/arrow_right.gif"
width=5 border=0> <FONT
size=+0><%=rsSmallClass1("SmallClassName")%></FONT>  </TD></TR></TBODY></TABLE>

<!--三级类关闭时候-->

<!--三级类展开时候-->
<TABLE id=LeftMenu_<%=i%>_<%=j%>_on style="DISPLAY: none"
cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>

<TD class=tree_button
onmouseover="this.className='tree_button_on';"
onclick="document.getElementById('LeftMenu_<%=i%>_<%=j%>_on').style.display=(document.getElementById('LeftMenu_<%=i%>_<%=j%>_on').style.display == 'none')?'':'none';document.getElementById('LeftMenu_<%=i%>_<%=j%>_off').style.display=(document.getElementById('LeftMenu_<%=i%>_<%=j%>_off').style.display=='none')?'':'none'"
onmouseout="this.className='tree_button'"><IMG
height=6
src="newegg_menu/arrow_down.gif"
width=5 border=0> <FONT
size=+0><%=rsSmallClass1("SmallClassName")%></FONT>  </TD></TR></TBODY></TABLE>
<!--三级类-->
<TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD class=tree_button_content>
<%sql3="select * from minclass where BigClassName='" & rsBigClass1("BigClassName") & "' and smallclassname='" & rsSmallClass1("SmallClassName") & "'"
set rs3=Server.CreateObject("adodb.recordset")
rs3.Open sql3,conn,1,1
do while not rs3.eof%>

<DIV class=tree_button_list><A
href="Product.asp?bigclassname=<%=rsBigClass1("BigClassName")%>&smallclassname=<%=rsSmallClass1("SmallClassName")%>&minclassname=<%=rs3("minclassname")%>"><%=rs3("minclassname")%></A></DIV>
<%
rs3.movenext
loop
%>

</TD>
</TR>
</TBODY>
</TABLE>
<!--三级类-->
</TD></TR></TBODY>
</TABLE>
<!--三级类展开时候-->
<%rsSmallClass1.movenext
loop
end if
rsSmallClass1.close
set rsSmallClass1=nothing %>
</TD>
</TR>
</TBODY>
</TABLE>

<%
rsBigClass1.movenext

loop
rsbigclass1.close
set rsbigclass1=nothing
%>
</TD></TR>

</TABLE>
http://www.corange.cn/archives/2007/03/24.html