求树形菜单单击先关闭之前打开的菜单,再打开当前菜单的代码

webdou 2006-11-27 10:16:22
求树形菜单单击先关闭之前打开的菜单,再打开当前菜单的代码,就是说不能同时打两个同级菜单,求完整代码,
以下是我本人原来的代码,
<table border="0" width="100%" height="200" cellspacing="0" cellpadding="0">
<tr>
<td width="20%" height="200" bgcolor="#F0F0F0" valign=top>
<script language="JavaScript">
<!--
function showLay(divId){
var objDiv = eval(divId);
if (objDiv.style.display=="none"){
eval("sp"+divId+".innerHTML='-'");
objDiv.style.display="";
}else{
eval("sp"+divId+".innerHTML='+'");
objDiv.style.display="none";
}
}
</script>
<%
dim rsTEMP,sqlTEMP
bigclassname = request("bigclassname")
smallclassname = request("smallclassname")
'set rsTEMP= Server.CreateObject("ADODB.Recordset")
' sqlTEMP="select * from aboutus where Newsid<>'' and newsclass='"&class1&"' order by newstop,Newsid asc"
' rsTEMP.Open sqlTEMP,conn,1,1

sql="select id,class from aboutusclass"
set rs=conn.execute(sql)
counter=0 '---------------------------------------------------------------------A COUNTER USED
menucount=0
while not rs.eof
counter=counter+1
sqlTEMP="select newsheadline from aboutus where newsclass='"&rs("class")&"'"
set rsTEMP=conn.execute(sqlTEMP)
if bigclassname<>rs("class") then
%>
<a href="#" onClick="showLay('Layer<%=counter%>')"><span id="spLayer<%=counter%>"><img src="img/menudot.GIF" width="3" height="11"></span></a><a href="#" onClick="showLay('Layer<%=counter%>')"><%=rs("class")%></a><br>
<div id="Layer<%=counter%>" style="display:none;">
<%while not rsTEMP.eof%>
|-<a href="bookincategory.asp?bigclassname=<%=rs("class")%>&smallclassname=<%=rsTEMP("newsheadline")%>"> <%=rsTEMP("newsheadline")%></a><br>
<%
rsTEMP.movenext
wend
else
%>
<a href="#" onClick="showLay('Layer<%=counter%>')"><span id="spLayer<%=counter%>">-</span><%=rs("class")%></a><br>
<div id="Layer<%=counter%>">
<%while not rsTEMP.eof%>
|-<a href="bookincategory.asp?bigclassname=<%=rs("class")%>&smallclassname=<%=rsTEMP("newsheadline")%>"> <%=rsTEMP("newsheadline")%></a><br>
<%
rsTEMP.movenext
wend
end if
menucount=counter
%>
</div>
<%
rs.movenext
wend
%>
</div></td>
</tr>
</table>
...全文
171 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
craft001wen 2006-12-01
  • 打赏
  • 举报
回复
写了一个简单的,menu为菜单名,自己稍微改一下就可了
<script language='javascript' type='text/javascript'>
function startmenu()
{
menu0.style.display="none";
menu1.style.display="none";
menu2.style.display="none";
menu3.style.display="none";
menu4.style.display="none";
menu5.style.display="none";
menu6.style.display="none";
menu7.style.display="none";
}
function menu0func()
{
if(menu0.style.display=="none")
{
startmenu();
menu0.style.display="block";
}
else
{
startmenu();
}
}
function menu1func()
{
if(menu1.style.display=="none")
{
startmenu();
menu1.style.display="block";
}
else
{
startmenu();
}
}
function menu2func()
{
if(menu2.style.display=="none")
{
startmenu();
menu2.style.display="block";
}
else
{
startmenu();
}
}
function menu3func()
{
if(menu3.style.display=="none")
{
startmenu();
menu3.style.display="block";
}
else
{
startmenu();
}
}
function menu4func()
{
if(menu4.style.display=="none")
{
startmenu();
menu4.style.display="block";
}
else
{
startmenu();
}
}
function menu5func()
{
if(menu5.style.display=="none")
{
startmenu();
menu5.style.display="block";
}
else
{
startmenu();
}
}
function menu6func()
{
if(menu6.style.display=="none")
{
startmenu();
menu6.style.display="block";
}
else
{
startmenu();
}
}
function menu7func()
{
if(menu7.style.display=="none")
{
startmenu();
menu7.style.display="block";
}
else
{
startmenu();
}
}
</script>
webdou 2006-11-30
  • 打赏
  • 举报
回复
为什么没人回答,

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧