请大家帮我看看这段树型菜单的代码，如果要增加下级菜单的话怎么写？急急！！！

with(document){
write("<div ID=\"mmChild\"><div ID=\"mm1Parent\"><a ID=\"mm1a\" target=\"_self\" href=\"#\" "+mfonts+" onClick=\"mFolderExpand('mm1',null,'1')\" title=\"\">");
write("<img ID=\"mm1Tree\" src=\""+mimgpath+"/Tplus.gif\" align=\"absmiddle\" border=\"0\"><img ID=\"mm1Folder\" src=\""+mimgpath+"/folder1.gif\" style=\"margin-right: 5\" align=\"absmiddle\" border=\"0\"><font ID=\"mTitle1\" onmouseover=\"mOver('mTitle1')\" onmouseout=\"mOut('mTitle1')\">基础资料管理</font></a>");
write("</div>");
write("<div ID=\"mm1Child\" style=\"display:none;\">");
write("<img src=\""+mimgpath+"/I.gif\" align=\"absmiddle\" width=\"19\" height=\"20\" border=\"0\"><img src=\""+mimgpath+"/T.gif\" align=\"absmiddle\" width=\"19\" height=\"20\" border=\"0\"><img src=\""+mimgpath+"/item4.gif\" align=\"absmiddle\" style=\"margin-right: 5\"><a target=\"_self\" href=\"#\" "+mfonts+" title=\"\"><font ID=\"mTitle2\" onmouseover=\"mOver('mTitle2')\" onmouseout=\"mOut('mTitle2')\">企业基础资料管理</font></a><br>");
write("<img src=\""+mimgpath+"/I.gif\" align=\"absmiddle\" width=\"19\" height=\"20\" border=\"0\"><img src=\""+mimgpath+"/L.gif\" align=\"absmiddle\" width=\"19\" height=\"20\" border=\"0\"><img src=\""+mimgpath+"/item4.gif\" align=\"absmiddle\" style=\"margin-right: 5\"><a target=\"_self\" href=\"#\" "+mfonts+" title=\"\"><font ID=\"mTitle4\" onmouseover=\"mOver('mTitle4')\" onmouseout=\"mOut('mTitle4')\">排污许可证管理</font></a><br>");
write("</div>");
write("<img src=\""+mimgpath+"/T.gif\" align=\"absmiddle\" width=\"19\" height=\"20\" border=\"0\"><img src=\""+mimgpath+"/item14.gif\" align=\"absmiddle\" style=\"margin-right: 5\"><a target=\"_self\" href=\"#\" "+mfonts+" title=\"\"><font ID=\"mTitle23\" onmouseover=\"mOver('mTitle23')\" onmouseout=\"mOut('mTitle23')\">用户注销</font></a><br>");
write("<img src=\""+mimgpath+"/L.gif\" align=\"absmiddle\" width=\"19\" height=\"20\" border=\"0\"><img src=\""+mimgpath+"/item14.gif\" align=\"absmiddle\" style=\"margin-right: 5\"><a target=\"_self\" href=\"#\" "+mfonts+" title=\"\"><font ID=\"mTitle24\" onmouseover=\"mOver('mTitle24')\" onmouseout=\"mOut('mTitle24')\">退出系统</font></a><br>");
write("&nbsp;&nbsp;")
}