ASP实现可显示和隐藏的树型菜单 

<%
if request("showobj")<>"" then response.Cookies("showobj")=request("showobj")
if isnull(response.Cookies("showobj")) then response.Cookies("showobj")=0
%>
<script language="javascript">
function hideAll() {
  for(i=0;i<odiv.length;i++) {
    odiv[i].style.display="none";
  }
}

function showObj(num)
{
 
  if (odiv[num].style.display=="none")
  {
    hideAll();
    odiv[num].style.display="inline";
  }
  else {
    odiv[num].style.display="none";
  }

}
</script>
<style type="text/css">
<!--
.divctrl{
 cursor:hand;height:20px;
}
-->
</style>

<div onClick="showObj(0)" class="divctrl"><a href="?showobj=0">div</a></div>
<div id="odiv" style="display:<%if request.Cookies("showobj")=0 then: response.Write "inline" :else  response.Write "none":end if %>">
<li><a href="#">div</a></li>
<li><a href="#">div</a></li>
<li><a href="#">div</a></li>
<li><a href="#">div</a></li>
<li><a href="#">div</a></li>
</div>
<div onClick="showObj(1)" class="divctrl"><a href="?showobj=1">div</a></div>
<div id="odiv" style="display:<%if request.Cookies("showobj")=1 then: response.Write "inline" :else  response.Write "none":end if %>">
<li><a href="#">div</a></li>
<li><a href="#">div</a></li>
<li><a href="#">div</a></li>
<li><a href="#">div</a></li>
<li><a href="#">div</a></li>
</div>
<div onClick="showObj(2)" class="divctrl"><a href="?showobj=2">div</a></div>
<div id="odiv" style="display:<%if request.Cookies("showobj")=2 then: response.Write "inline" :else  response.Write "none":end if %>">
<li><a href="#">div</a></li>
<li><a href="#">div</a></li>
<li><a href="#">div</a></li>
<li><a href="#">div</a></li>
<li><a href="#">div</a></li>
</div>
<div onClick="showObj(3)" class="divctrl"><a href="?showobj=3">div</a></div>
<div id="odiv" style="display:<%if request.Cookies("showobj")=3 then: response.Write "inline" :else  response.Write "none":end if %>">
<li><a href="#">div</a></li>
<li><a href="#">div</a></li>
<li><a href="#">div</a></li>
<li><a href="#">div</a></li>
<li><a href="#">div</a></li>
</div>
<div onClick="showObj(4)" class="divctrl"><a href="?showobj=4">div</a></div>
<div id="odiv" style="display:<%if request.Cookies("showobj")=4 then: response.Write "inline" :else  response.Write "none":end if %>">
<li><a href="#">div</a></li>
<li><a href="#">div</a></li>
<li><a href="#">div</a></li>
<li><a href="#">div</a></li>
<li><a href="#">div</a></li>
</div>