500分求一个简单的菜单:)

zhouhan1920 2003-09-15 11:47:27
哪位大侠可以帮我做一个像九天音乐那样的菜单
开始只有两个菜单显示,点击第一个,让后就会下拉出一排子菜单,同时把第二个主菜单推开,当点击第二个主菜单的时候,第一个主菜单拉出来的子菜单就会收回去,跟九天音乐的类似就行了
小弟将会非常非常的感激,而且会开贴再加500分!
http://www.9sky.com/music/musicthat/singlesong.asp?si_id=3456&so_id=12596
进入这个地址后,下面有个歌曲列表,点击列表就可以看到我想要的效果了:)
...全文
59 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
qunluo 2003-09-19
  • 打赏
  • 举报
 回复
<TBODY>
<TR>
<TD id=R1_2 vAlign=center borderColor=#000000
align=middle>-</TD></TR></TBODY></TABLE></TD>
<TD onmouseover="vbs:me.bgcolor='#CCCCCC':me.bordercolor='#999999'"
title=http://www.csdn.net/
onmouseout="vbs:me.bgcolor='#DEE3F7':me.bordercolor='#ffffff'" noWrap
borderColor=#ffffff>开发语言</TD></TR></TBODY></TABLE>
<TABLE class=aa id=T1_2_1 style="CURSOR: hand"
onclick="vbs:subtree '1_2_1|1_2_1_1|1_2_1_2'" borderColor=#dee3f7 cellSpacing=0
cellPadding=0 summary=2 border=1 abbr="1_2_1|1_2_1_1|1_2_1_2" classname="aa">
<TBODY>
<TR>
<TD align=right width=57 height=20>
<TABLE class=bb borderColor=#dee3f7 height=18 cellSpacing=0 cellPadding=0
width=18 border=1>
<TBODY>
<TR>
<TD id=R1_2_1 vAlign=center borderColor=#000000
align=middle>-</TD></TR></TBODY></TABLE></TD>
<TD onmouseover="vbs:me.bgcolor='#CCCCCC':me.bordercolor='#999999'"
title=http://www.csdn.net/
onmouseout="vbs:me.bgcolor='#DEE3F7':me.bordercolor='#ffffff'" noWrap
borderColor=#ffffff>VB</TD></TR></TBODY></TABLE>
<TABLE class=aa id=T1_2_1_1 style="CURSOR: hand" onclick="vbs:subtree '1_2_1_1'"
borderColor=#dee3f7 cellSpacing=0 cellPadding=0 summary=3 border=1
abbr="1_2_1_1" classname="aa">
<TBODY>
<TR>
<TD align=right width=77 height=20>
<TABLE class=bb borderColor=#dee3f7 height=18 cellSpacing=0 cellPadding=0
width=18 border=1>
<TBODY>
<TR>
<TD id=R1_2_1_1 vAlign=center borderColor=#000000
align=middle>.</TD></TR></TBODY></TABLE></TD>
<TD onmouseover="vbs:me.bgcolor='#CCCCCC':me.bordercolor='#999999'"
title=http://www.csdn.net/
onmouseout="vbs:me.bgcolor='#DEE3F7':me.bordercolor='#ffffff'" noWrap
borderColor=#ffffff>基础类</TD></TR></TBODY></TABLE>
<TABLE class=aa id=T1_2_1_2 style="CURSOR: hand" onclick="vbs:subtree '1_2_1_2'"
borderColor=#dee3f7 cellSpacing=0 cellPadding=0 summary=3 border=1
abbr="1_2_1_2" classname="aa">
<TBODY>
<TR>
<TD align=right width=77 height=20>
<TABLE class=bb borderColor=#dee3f7 height=18 cellSpacing=0 cellPadding=0
width=18 border=1>
<TBODY>
<TR>
<TD id=R1_2_1_2 vAlign=center borderColor=#000000
align=middle>.</TD></TR></TBODY></TABLE></TD>
<TD onmouseover="vbs:me.bgcolor='#CCCCCC':me.bordercolor='#999999'"
title=http://www.csdn.net/
onmouseout="vbs:me.bgcolor='#DEE3F7':me.bordercolor='#ffffff'" noWrap
borderColor=#ffffff>VBA</TD></TR></TBODY></TABLE>
<TABLE class=aa id=T1_2_2 style="CURSOR: hand" onclick="vbs:subtree '1_2_2'"
borderColor=#dee3f7 cellSpacing=0 cellPadding=0 summary=2 border=1 abbr="1_2_2"
classname="aa">
<TBODY>
<TR>
<TD align=right width=57 height=20>
<TABLE class=bb borderColor=#dee3f7 height=18 cellSpacing=0 cellPadding=0
width=18 border=1>
<TBODY>
<TR>
<TD id=R1_2_2 vAlign=center borderColor=#000000
align=middle>.</TD></TR></TBODY></TABLE></TD>
<TD onmouseover="vbs:me.bgcolor='#CCCCCC':me.bordercolor='#999999'"
title=http://www.csdn.net/
onmouseout="vbs:me.bgcolor='#DEE3F7':me.bordercolor='#ffffff'" noWrap
borderColor=#ffffff>JAVA</TD></TR></TBODY></TABLE>
<TABLE class=aa id=T1_3 style="CURSOR: hand" onclick="vbs:subtree '1_3|1_3_1'"
borderColor=#dee3f7 cellSpacing=0 cellPadding=0 summary=1 border=1
abbr="1_3|1_3_1" classname="aa">
<TBODY>
<TR>
<TD align=right width=37 height=20>
<TABLE class=bb borderColor=#dee3f7 height=18 cellSpacing=0 cellPadding=0
width=18 border=1>
<TBODY>
<TR>
<TD id=R1_3 vAlign=center borderColor=#000000
align=middle>-</TD></TR></TBODY></TABLE></TD>
<TD onmouseover="vbs:me.bgcolor='#CCCCCC':me.bordercolor='#999999'"
title=http://www.csdn.net/
onmouseout="vbs:me.bgcolor='#DEE3F7':me.bordercolor='#ffffff'" noWrap
borderColor=#ffffff>数据库</TD></TR></TBODY></TABLE>
<TABLE class=aa id=T1_3_1 style="CURSOR: hand" onclick="vbs:subtree '1_3_1'"
borderColor=#dee3f7 cellSpacing=0 cellPadding=0 summary=2 border=1 abbr="1_3_1"
classname="aa">
<TBODY>
<TR>
<TD align=right width=57 height=20>
<TABLE class=bb borderColor=#dee3f7 height=18 cellSpacing=0 cellPadding=0
width=18 border=1>
<TBODY>
<TR>
<TD id=R1_3_1 vAlign=center borderColor=#000000
align=middle>.</TD></TR></TBODY></TABLE></TD>
<TD onmouseover="vbs:me.bgcolor='#CCCCCC':me.bordercolor='#999999'"
title=http://www.csdn.net/
onmouseout="vbs:me.bgcolor='#DEE3F7':me.bordercolor='#ffffff'" noWrap
borderColor=#ffffff>基础类</TD></TR></TBODY></TABLE>
<SCRIPT language=VBS>
sub subtree(Client_para)
if instr(Client_para,"|")=0 then exit sub
Myarray=split(Client_para,"|")
Mytext=eval("R" & Myarray(0) & ".innertext")
select case Mytext
case "+"
document.all.item("R" & Myarray(0)).innertext="-"
for i=1 to ubound(Myarray)
if eval("T" & Myarray(i) & ".summary")-eval("T" & Myarray(0) & ".summary")=1 then
document.all.item("T" & Myarray(i)).style.display="block"
end if
if eval("T" & Myarray(i) & ".summary")-eval("T" & Myarray(0) & ".summary")>1 then
document.all.item("T" & Myarray(i)).style.display="none"
end if
next
case "-"
document.all.item("R" & Myarray(0)).innertext="+"
for i=1 to ubound(Myarray)
if eval("T" & Myarray(i) & ".summary")-eval("T" & Myarray(0) & ".summary")>=1 then
document.all.item("T" & Myarray(i)).style.display="none"
if eval("R" & Myarray(i) & ".innertext")="-" then
document.all.item("R" & Myarray(i)).innertext="+"
end if
end if
next
end select
set Myarray=nothing
end sub

Sub document_onselectstart
document.selection.clear
End Sub

if isobject(eval("T1")) then
subtree document.all("T1").abbr
subtree document.all("T1").abbr
end if
</SCRIPT>
</BODY></HTML>
qunluo 2003-09-19
  • 打赏
  • 举报
 回复
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0028)http://www.ymdg.com/tree.htm -->
<HTML><HEAD><TITLE>asp树的研究</TITLE>
<META content=VBScript name=VI60_defaultClientScript>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE type=text/css>.bb {
FONT-SIZE: 9px; COLOR: #000000
}
</STYLE>

<STYLE type=text/css>.aa {
FONT-SIZE: 12px; WORD-SPACING: 0px; VERTICAL-ALIGN: middle; COLOR: #000000; BOTTOM: auto; LETTER-SPACING: 0px; TEXT-ALIGN: center
}
</STYLE>

<META content="MSHTML 6.00.2600.0" name=GENERATOR></HEAD>
<BODY bgColor=#dee3f7>
<TABLE class=aa id=T1 style="CURSOR: hand"
onclick="vbs:subtree '1|1_1|1_1_1|1_1_1_1|1_1_1_2|1_1_2|1_2|1_2_1|1_2_1_1|1_2_1_2|1_2_2|1_3|1_3_1'"
borderColor=#dee3f7 cellSpacing=0 cellPadding=0 summary=0 border=1
abbr="1|1_1|1_1_1|1_1_1_1|1_1_1_2|1_1_2|1_2|1_2_1|1_2_1_1|1_2_1_2|1_2_2|1_3|1_3_1"
classname="aa">
<TBODY>
<TR>
<TD align=right width=17 height=20>
<TABLE class=bb borderColor=#dee3f7 height=18 cellSpacing=0 cellPadding=0
width=18 border=1>
<TBODY>
<TR>
<TD id=R1 vAlign=center borderColor=#000000
align=middle>-</TD></TR></TBODY></TABLE></TD>
<TD onmouseover="vbs:me.bgcolor='#CCCCCC':me.bordercolor='#999999'"
title=http://www.csdn.net/
onmouseout="vbs:me.bgcolor='#DEE3F7':me.bordercolor='#ffffff'" noWrap
borderColor=#ffffff>WWW.CSDN.NET</TD></TR></TBODY></TABLE>
<TABLE class=aa id=T1_1 style="CURSOR: hand"
onclick="vbs:subtree '1_1|1_1_1|1_1_1_1|1_1_1_2|1_1_2'" borderColor=#dee3f7
cellSpacing=0 cellPadding=0 summary=1 border=1
abbr="1_1|1_1_1|1_1_1_1|1_1_1_2|1_1_2" classname="aa">
<TBODY>
<TR>
<TD align=right width=37 height=20>
<TABLE class=bb borderColor=#dee3f7 height=18 cellSpacing=0 cellPadding=0
width=18 border=1>
<TBODY>
<TR>
<TD id=R1_1 vAlign=center borderColor=#000000
align=middle>-</TD></TR></TBODY></TABLE></TD>
<TD onmouseover="vbs:me.bgcolor='#CCCCCC':me.bordercolor='#999999'"
title=http://www.csdn.net/
onmouseout="vbs:me.bgcolor='#DEE3F7':me.bordercolor='#ffffff'" noWrap
borderColor=#ffffff>WEB开发</TD></TR></TBODY></TABLE>
<TABLE class=aa id=T1_1_1 style="CURSOR: hand"
onclick="vbs:subtree '1_1_1|1_1_1_1|1_1_1_2'" borderColor=#dee3f7 cellSpacing=0
cellPadding=0 summary=2 border=1 abbr="1_1_1|1_1_1_1|1_1_1_2" classname="aa">
<TBODY>
<TR>
<TD align=right width=57 height=20>
<TABLE class=bb borderColor=#dee3f7 height=18 cellSpacing=0 cellPadding=0
width=18 border=1>
<TBODY>
<TR>
<TD id=R1_1_1 vAlign=center borderColor=#000000
align=middle>-</TD></TR></TBODY></TABLE></TD>
<TD onmouseover="vbs:me.bgcolor='#CCCCCC':me.bordercolor='#999999'"
title=http://www.csdn.net/
onmouseout="vbs:me.bgcolor='#DEE3F7':me.bordercolor='#ffffff'" noWrap
borderColor=#ffffff>ASP</TD></TR></TBODY></TABLE>
<TABLE class=aa id=T1_1_1_1 style="CURSOR: hand" onclick="vbs:subtree '1_1_1_1'"
borderColor=#dee3f7 cellSpacing=0 cellPadding=0 summary=3 border=1
abbr="1_1_1_1" classname="aa">
<TBODY>
<TR>
<TD align=right width=77 height=20>
<TABLE class=bb borderColor=#dee3f7 height=18 cellSpacing=0 cellPadding=0
width=18 border=1>
<TBODY>
<TR>
<TD id=R1_1_1_1 vAlign=center borderColor=#000000
align=middle>.</TD></TR></TBODY></TABLE></TD>
<TD onmouseover="vbs:me.bgcolor='#CCCCCC':me.bordercolor='#999999'"
title=http://www.csdn.net/
onmouseout="vbs:me.bgcolor='#DEE3F7':me.bordercolor='#ffffff'" noWrap
borderColor=#ffffff>DHTML</TD></TR></TBODY></TABLE>
<TABLE class=aa id=T1_1_1_2 style="CURSOR: hand" onclick="vbs:subtree '1_1_1_2'"
borderColor=#dee3f7 cellSpacing=0 cellPadding=0 summary=3 border=1
abbr="1_1_1_2" classname="aa">
<TBODY>
<TR>
<TD align=right width=77 height=20>
<TABLE class=bb borderColor=#dee3f7 height=18 cellSpacing=0 cellPadding=0
width=18 border=1>
<TBODY>
<TR>
<TD id=R1_1_1_2 vAlign=center borderColor=#000000
align=middle>.</TD></TR></TBODY></TABLE></TD>
<TD onmouseover="vbs:me.bgcolor='#CCCCCC':me.bordercolor='#999999'"
title=http://www.csdn.net/
onmouseout="vbs:me.bgcolor='#DEE3F7':me.bordercolor='#ffffff'" noWrap
borderColor=#ffffff>内建对象</TD></TR></TBODY></TABLE>
<TABLE class=aa id=T1_1_2 style="CURSOR: hand" onclick="vbs:subtree '1_1_2'"
borderColor=#dee3f7 cellSpacing=0 cellPadding=0 summary=2 border=1 abbr="1_1_2"
classname="aa">
<TBODY>
<TR>
<TD align=right width=57 height=20>
<TABLE class=bb borderColor=#dee3f7 height=18 cellSpacing=0 cellPadding=0
width=18 border=1>
<TBODY>
<TR>
<TD id=R1_1_2 vAlign=center borderColor=#000000
align=middle>.</TD></TR></TBODY></TABLE></TD>
<TD onmouseover="vbs:me.bgcolor='#CCCCCC':me.bordercolor='#999999'"
title=http://www.csdn.net/
onmouseout="vbs:me.bgcolor='#DEE3F7':me.bordercolor='#ffffff'" noWrap
borderColor=#ffffff>JavaScript</TD></TR></TBODY></TABLE>
<TABLE class=aa id=T1_2 style="CURSOR: hand"
onclick="vbs:subtree '1_2|1_2_1|1_2_1_1|1_2_1_2|1_2_2'" borderColor=#dee3f7
cellSpacing=0 cellPadding=0 summary=1 border=1
abbr="1_2|1_2_1|1_2_1_1|1_2_1_2|1_2_2" classname="aa">
<TBODY>
<TR>
<TD align=right width=37 height=20>
<TABLE class=bb borderColor=#dee3f7 height=18 cellSpacing=0 cellPadding=0
width=18 border=1>
mysteven 2003-09-16
  • 打赏
  • 举报
 回复
fason(阿信) 的不错，可以
minghui000 2003-09-15
  • 打赏
  • 举报
 回复
到底如何弄。写一个详细让大家见识一下嘛。我也想了解。谢谢fason(阿信) 写过程
acewang 2003-09-15
  • 打赏
  • 举报
 回复
看看他的源文件，不就可以弄出来了。
yzwxjun 2003-09-15
  • 打赏
  • 举报
 回复
就是，同意楼上的说法，
fason 2003-09-15
  • 打赏
  • 举报
 回复
很简单啊.也就是obj.style.display="none";//"block"来控制呀
fason 2003-09-15
  • 打赏
  • 举报
 回复
很简单啊.也就是obj.style.display="none";//"block"来控制呀
fason 2003-09-15
  • 打赏
  • 举报
 回复
<!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>Example For Menus </title>
<meta name="Generator" content="EditPlus">
<meta name="Author" content="fason">
<meta name="Keywords" content="Smart Menus">
<meta name="Description" content="">
<style>
.handle{cursor:hand;background-color:#F2F2F2}
.hide{display:none}
.show{display:block}
</style>
</head>
<body>
<script language="JavaScript">
<!--
function ClickOn(Index){
var TrObj=document.getElementById("tr"+Index)
TrObj.className=TrObj.className=="hide"?"show":"hide"
}
function oAll(flag,num){//num为纪录数
for(var i=0;i<num;i++){
var TrObj=document.getElementById("tr"+i)
TrObj.className=flag?"show":"hide"
}
}
//-->
</script>
<a href="javascript:oAll(true,3)">全部展开</a>
<a href="javascript:oAll(false,3)">全部关闭</a>
<table width=300 cellspacing=1>
<tr class="handle" onclick="ClickOn(0)"><td>主菜单一</td></tr>
<tr id="tr0" class="hide">
<td>
<table>
<tr>
<td>子菜单一</td>
</tr>
</table>
</td>
</tr>
<tr class="handle" onclick="ClickOn(1)"><td>主菜单二</td></tr>
<tr id="tr1" class="hide">
<td>
<table width=100%>
<tr class="handle" onclick="ClickOn(2)">
<td>子菜单二一</td>
</tr>
<tr id="tr2" class="hide"><td>子菜单三一</td></tr>
<tr>
<td>
<table>
<tr>
<td>子菜单二二</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
hemeng 2003-09-15
  • 打赏
  • 举报
 回复
哎--又被抢先楼，我同意阿信的看法！1
yaray 2003-09-15
  • 打赏
  • 举报
 回复
<!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title> New Document </title>
<meta name="Generator" content="EditPlus">
<meta name="Author" content="">
<meta name="Keywords" content="">
<meta name="Description" content="">
</head>

<body>
<table border="1">
<tr>
<td id="showText" style='{cursor:hand}' onclick="switchShowHide()">隐藏</td>
</tr>
<tr id="tr1">
<td>aaaaaaaa</td>
</tr>
<tr id="tr2">
<td>bbbbbbbb</td>
</tr>
</table>
</body>
</html>
<script language="JavaScript">
<!--
function switchShowHide(){
allObj = document.all;
if(allObj.tr1.style.display=="none"){
allObj.showText.innerText="隐藏";
allObj.tr1.style.display="block";
allObj.tr2.style.display="block";
}else{
allObj.showText.innerText="显示";
allObj.tr1.style.display="none";
allObj.tr2.style.display="none";
}
}
//-->
</script>
上海电机学院C语言实训答案
（1）编写一个程序实现如下功能：一个整型数组有10个元素，删除所有值为n的元素。要求： ① 主函数完成n的输入，数组元素输入以及删除后数组元素的输出。 ② 删除功能用子函数完成。 （2）编写一个程序实现如下功能...
Java开发技术大全(500个源代码).
HasStatic.java 一个简单的拥有静态成员的类 hideMember_1.java 成员隐藏示例1 hideMember_2.java 成员隐藏示例2 hideMember_3.java 成员隐藏示例3 hideMember_4.java 成员隐藏示例4 hideMember_5.java 成员...
Electron实战（3）：菜单视频课程
本课程是《Electron实战》专题的第3个课程，本课程将帮助学员掌握Electron菜单的使用方法。 本课程同时在Windows和Mac OS X平台上操作和演示，同时也适合于Linux。不管学员使用什么平台，本课程的源代码都可以运行。...
用C编写班级成绩管理系统
有了一个清晰简单的菜单和一些提示信息这后，调试过程完成的非常顺利。 予我耐心解答的老师和同学，是他们为我小程序的成功起到了关键性的作用，那么多个日夜，如此多的困难，同学们勤恳塌实，从开始到结束，没有...
JavaScript

87,907

社区成员

224,614

社区内容

发帖
与我相关
我的任务
社区描述
Web 开发 JavaScript
社区管理员
  • JavaScript
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章