目录树实现

[mgym105206]

<!--#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' onclick=javascript:expand('"&RsMenu("id")&"',true);>"
else
response.Write "   "
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
%>
自己写的目录树实现的代码
程序执行没错
就是 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出问题 了 设置的表格隐藏不起作用，哪位高手帮忙看看，有好的也可以推荐