树状菜单 点击一个关闭另一个 链接了数据库

<script language="JavaScript1.2">
scores = new Array(20);var numTotal=0;NS4 = (document.layers) ? 1 : 0;IE4 = (document.all) ? 1 : 0;ver4 = (NS4 || IE4) ? 1 : 0;if (ver4) { with (document) { write("<STYLE TYPE='text/css'>"); if (NS4) { write(".parent {position:absolute; visibility:visible}"); write(".child {position:absolute; visibility:visible}"); write(".regular {position:absolute; visibility:visible}") } else { write(".child {display:none}") } write("</STYLE>"); }}function getIndex(el) { ind = null; for (i=0; i<document.layers.length; i++) { whichEl = document.layers[i]; if (whichEl.id == el) { ind = i; break; } } return ind;}function arrange() { nextY = document.layers[firstInd].pageY +document.layers[firstInd].document.height; for (i=firstInd+1; i<document.layers.length; i++) { whichEl = document.layers[i]; if (whichEl.visibility != "hide") { whichEl.pageY = nextY; nextY += whichEl.document.height; } }}function initIt(){ if (!ver4) return; if (NS4) { for (i=0; i<document.layers.length; i++) { whichEl = document.layers[i]; if (whichEl.id.indexOf("Child") != -1) whichEl.visibility = "hide"; } arrange(); } else { divColl = document.all.tags("DIV"); for (i=0; i<divColl.length; i++) { whichEl = divColl(i); if (whichEl.className == "child") whichEl.style.display = "none"; } }}function expandIt(el) { if (!ver4) return; if (IE4) { whichEl1 = eval(el + "Child"); for(i=1;i<=numTotal;i++){ whichEl = eval(scores[i] + "Child"); if(whichEl!=whichEl1) { whichEl.style.display = "none"; } } whichEl1 = eval(el + "Child"); if (whichEl1.style.display == "none") { whichEl1.style.display = "block"; } else { whichEl1.style.display = "none"; } } else { whichEl = eval("document." + el + "Child"); for(i=1;i<=numTotal;i++){ whichEl = eval("document." + scores[i] + "Child"); if(whichEl!=whichEl1) { whichEl.visibility = "hide"; } } if (whichEl.visibility == "hide") { whichEl.visibility = "show"; } else { whichEl.visibility = "hide"; } arrange(); }}onload = initIt;
</script>

<table width="190" align="center" cellpadding="0" cellspacing="0" >
<tr><td height="25" align=left>
<% dim sql,rs,strimg2,rsimg2,imgpath2,mmd
sql=" select *from sys_menu where menuparent=5 and visible=-1 order by menuOrder asc "
set rs=objdb.runsql_return_rs(sql)
ImgPath2=GetImagesCat(3,5,ObjDB,strImg2,rsImg2)
for i=1 to rs.recordcount
mmd=rs("menuid")
%>

<div id='KB<%=i%>Parent' class='parent'>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25px;"><a href="" onClick="expandIt('KB<%=i%>'); return false"><IMG SRC='images/green.jpg' width="16" height="17" BORDER=0 align="absmiddle"> 精彩链接</a></td>
</tr>
</table>
</div>

<div id='KB<%=i%>Child' class='child'>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
dim lsql,lrs
lsql=" select *from sys_content where typeid="&mmd&" and visible=-1 order by contentOrder asc "
set lrs=objdb.runsql_return_rs(lsql)
do while not lrs.eof
%>

<tr>
<td height="25px;">　<IMG SRC='images/icon.jpg' BORDER=0 width="12" height="15"> <a href="show.asp?id=<%=lrs("contentid")%>&typeid=<%=lrs("typeid")%>"> <%=left(lrs("contentname"),10)%></a> </td>
</tr>
<%
lrs.movenext
loop
lrs.close
set lrs=nothing
%>
</table>
</div>
<%
rs.movenext
next
%>

</td>
</tr></table>

<SCRIPT>numTotal=6;scores[1]='KB1';
<%
sql=" select *from sys_menu where menuparent=5 and visible=-1 order by menuOrder asc "
set rs=objdb.runsql_return_rs(sql)
for i=2 to rs.recordcount
%>
scores[<%=i%>]='KB<%=i-1%>';
<%
rs.movenext
next
rs.close
set rs=nothing
%>
</SCRIPT>