目录树的实现

<!--#include file="conn.asp" -->
<table width="50%" bordercolor="#000000" align="left" border="1" cellpadding="0" cellspacing="0">
<tr>
<td><% call CreateMenu(0) %></td>
</tr>
</table>
<%
sub  CreateMenu(MenuID)
 set RsMenu=server.CreateObject("adodb.recordset")
 set RsSubMenu=server.CreateObject("adodb.recordset")
 sql="select * from category where parentid="&MenuID&" order by weizhi "
 RsMenu.open sql,conn,1,1
 if RsMenu.eof then exit sub
 response.Write "<table width=50% bordercolor=#fe0a0a border=1 cellspacing=0 cellpadding=0 align=center>"
  do until  RsMenu.eof
 response.Write "<tr><td>"
  RsSubMenu.open "select id from category where parentid="&RsMenu("id"),conn,1,1
 if not RsSubMenu.eof then
    HasChild=true
 else
  HasChild=false
  end if
 RsSubMenu.close
if HasChild then
 response.Write "<img width='18' height='18' src='images/plus.gif'id='img_"
 response.Write RsMenu("id")&"' border='0' style='cursor:hand' οnclick=javascript:expand('"&RsMenu("id")&"',true);>"
else
response.Write "&nbsp;&nbsp;&nbsp;"
end if
response.Write "<a href=javascript:expand("&RsMenu("id")&",true);>"
response.Write ""&RsMenu("menu")&"</a></td>"
 response.Write "</tr>"
 if HasChild then
 %>
<div id="menu_<%=RsMenu("id")%>" style="display:none"><tr align="right" id="menu_<%=RsMenu("id")%>" style="display:none"></td>
<% createMenu(RsMenu("id"))%></td></tr></div>
<%
end if
  RsMenu.movenext
  loop
   RsMenu.close
 response.Write "</table>"
 end sub
%>  

<script language="javascript">
function expand(id){
 if(document.all['menu_'+id]){
  var objtr=document.all['menu_'+id];
  var objimg=document.all['img_'+id];
  if (objtr.style.display=="none"){
        objmg.src="images/plus.gif";
        objtr.style.display="inline";
  }else{
  objtr.style.display="none";
  objmg.src="images/dashes.gif";
}
}
}

</script>

 

if HasChild then
 %>
<div id="menu_<%=RsMenu("id")%>" style="display:none"><tr align="right" id="menu_<%=RsMenu("id")%>" style="display:none"></td>
<% createMenu(RsMenu("id"))%></td></tr></div>
<%
end if%>

这里表格设置的隐藏不起任何作用，内容完全显示！哪位高手帮帮忙看看 啊