动态树菜单,可以选择打开父菜单或者是打开子菜单.

以下是最的一个动态树行菜单,子菜单可以打开多个.子菜单没有项目时候父菜单仍然可以使用.在有
子菜单时候父菜单仍然可以打开

< table width = " 100% "  border = " 0 "  cellpadding = " 0 "  cellspacing = " 0 "  align = " center "   >

         < %
         set  rsBigClass1 = server.CreateObject( " adodb.recordset " )
rsBigClass1.open  " Select * From bigclass " ,conn, 1 , 1
    i = 0
     do   while   not  rsBigClass1.eof
    i = i + 1
% >
         < tr valign = " top " >  
           < td width = " 90% " >& nbsp; & nbsp; < a href = " Product.asp?bigclassname=<%=rsBigClass1( " bigclassname " )%> "  class = " my1 " >< % = rsBigClass1( " bigclassname " )% ></ a >
                      < script >
function  showtable < % = " a " & i% > ()
{
if (document.all( " <%= " a " &i%> " ).style.display == " none " )
{document.all( " <%= " a " &i%> " ).style.display = "" ;}
else
{document.all( " <%= " a " &i%> " ).style.display = " none " ;}
}
</ script >        
</ Td >< Td valign = " middle " >< a href = " # "  onClick = " javascript:showtable<%= " a " &i%>(); " >< % set  rscheck = server.CreateObject( " adodb.recordset " )
      rscheck.open  " Select * From smallclass Where bigclassname=' "   &  rsBigClass1( " bigclassname " )  &   " ' " ,conn, 1 , 1
       if   not (rscheck.bof  and  rscheck.eof)  then % >< img src = images / nvdown.jpg border = " 0 " >< % end   if % ></ a ></ 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
        
    % >         
         < tr valign = " top " >
           < td >< table border = 0  cellspacing = 0  cellpadding = 0  id = " <%= " a " &i%> "  style = " display:none " >< tr >< td >< % do   while   not  rsSmallClass1.eof% >< tr valign = " top " >
           < td >& nbsp; & nbsp; & nbsp; & nbsp; < a href = " Product.asp?bigclassname=<%=rsBigClass1( " bigclassname " )%>&smallclassname=<%=rsSmallClass1( " smallclassname " )%> "  class = " my1 " >< % = rsSmallClass1( " smallclassname " )% ></ a >< %rsSmallClass1.movenext
         loop % ></ td ></ tr ></ table ></ td >
         </ tr >
         < %
            
       end   if
      rsSmallClass1.close
       set  rsSmallClass1 = nothing     
      rsBigClass1.movenext
     loop
    rsbigclass1.close
     set  rsbigclass1 = nothing
% >
</ table >