请高手指点一下吧，关于从数据库中读数据，动态产生树形菜单的问题，在线等。

Question

write("<div ID=\"mmChild\">   //这里有错误
==>
write("<div ID=\"mm1Child\">修改成下面的语句<%
sql="select * from menu where prnt_menu='-1' and menu_lang='CH'"
rs.open sql,conn,,,adcmdquery
rs.movefirst
i=0
do while not rs.eof
i=i+1
%>
write("<div ID=\"mm<%=i%>Child\"><div ID=\"mm<%=i%>Parent\"><a ID=\"mm<%=i%>a\" target=\"_self\" href=\"#\" "+mfonts+" onClick=\"mFolderExpand('mm<%=i%>',null,'1')\" title=\"Folder<%=i%>\">");
write("<img ID=\"mm<%=i%>Tree\" src=\""+mimgpath+"/Tplus.gif\" align=\"absmiddle\" border=\"0\"><img ID=\"mm<%=i%>Folder\" src=\""+mimgpath+"/folder1.gif\" style=\"margin-right: 5\" align=\"absmiddle\" border=\"0\"><font ID=\"mTitle<%=i%>\" onmouseover=\"mOver('mTitle<%=i%>')\" onmouseout=\"mOut('mTitle<%=i%>')\"><% =rs("menu_desc")%></font></a>");
write("</div>");
<%
rs.movenext
loop
%>

Answer 1

to gzh_seagull(不可) 谢谢，给你分，他这个父子关系是怎么实现的，能否解释一下

Answer 2

主要函数function mExpandIE($1,$2,pic) {
Expanda = eval($1 + "a");  //取得当前目录对象  <a ID="mma"
Expanda.blur(); //取得焦点
ExpandChild = eval($1 + "Child");  //取得下级目录对象 <div ID="mmChild">
    if ($2 != "top") { //如果是不是顶层目录
ExpandTree = eval($1 + "Tree");  //取得当前目录树图片对象<img ID="mmTree"
ExpandFolder = eval($1 + "Folder"); //取得当前目录图片对象<img ID="mmFolder"
}
if (ExpandChild.style.display == "none") { 
ExpandChild.style.display = "block";  //显示下级目录对象
        if ($2 != "top") { 
            if ($2 == "last") { ExpandTree.src = mimgpath+"/Lminus.gif"; }  //修改图片
else { ExpandTree.src = mimgpath+"/Tminus.gif"; }
ExpandFolder.src = mimgpath+"/openfolder"+pic+".gif";
}
else { mmTree.src = mimgpath+"/topopen1.gif"; }
}else{
ExpandChild.style.display = "none";   //隐藏下级目录对象
        if ($2 != "top") { 
        if ($2 == "last") { ExpandTree.src = mimgpath+"/Lplus.gif"; }  //修改图片
else { ExpandTree.src = mimgpath+"/Tplus.gif"; }
ExpandFolder.src = mimgpath+"/folder"+pic+".gif";
}
else { mmTree.src = mimgpath+"/top1.gif"; }
}
}

Answer 3

谁有动态生成树形菜单的源码？（数据是从数据库重取的，譬如部门管理……），[email protected]
谢谢，可以的话马上结账