asp 可伸缩的树型目录

if (document.getElementById("submenu" + sid).style.display == "none")
{
eval("submenu" + sid + ".style.display=\"\";");
}
else
{
eval("submenu" + sid + ".style.display=\"none\";");
}
}
</script>
<div class="left_top"><img src="img/left/left_top.jpg"  width="227"/></div>

<div class="categories_block">
<div class="categories_top_block">
<div class="categories_top_title">产品列表</div>
<div class="categories_top_logo">JIEAN</div>
</div>
<div style="text-align:left; text-indent:20px;"><uL>
        <%
 SortSql="Select * From eims_CaseSort where ParentID=4 order by SortID asc"
 Set SortRs= Server.CreateObject("ADODB.Recordset")
 SortRs.Open SortSql,Conn,1,1
 if SortRs.EOF and SortRs.BOF then
  Response.Write "暂无相关数据"
 else
%>
        <% do while not SortRs.EOF %>
<li style="background:none; line-" onClick="(document.getElementById('submenu<%=SortRs("SortID") %>').style.display=='none')?document.getElementById('submenu<%=SortRs("SortID") %>' ).style.display='block':document.getElementById('submenu<%=SortRs("SortID") %>').style.display='none';"><div class="categories_list_title" style="font-size:14px;"><% =SortRs("SortName") %></div>

<div class="categories_list" id="submenu<%=SortRs("SortID") %>" style="display:none;"><ul>
        <%
 Sql="Select * From eims_CaseSort where ParentID="&SortRs("SortID")&" order by SortID asc"
 Set rs= Server.CreateObject("ADODB.Recordset")
 rs.Open Sql,Conn,1,1
 if rs.EOF and rs.BOF then
  Response.Write ""
 else
    do while not rs.EOF %>
<li><div class="xxj" style="line-"><a href="ProductList.asp?SortID=<%=rs("SortID") %>"><% =rs("SortName") %></a></div></li>
        <%
  rs.MoveNext
 Loop
 End if
 rs.Close
 Set rs=Nothing
%>
</ul></div>

</li>
        <%
  SortRs.MoveNext
 Loop
%>
        <%
 End if
 SortRs.Close
 Set SortRs=Nothing

%>
</uL></div>
</div>