有什么办法实现下拉菜单吗?

[yao7785]

谁有源码吗? 给偶一份?

如果 win 下的应用程序那样的下拉菜单. javsscript 可以实现, 但我没有源码. 服务器端的 vbscript 可以吗?

[yeymsf]

这里有个例子，你看看了
*****************写在HEAD里***********************
<script language="JavaScript">
function ValidLength(item,len) {
return(item.length>=len);
}
function Validata() {
errfound=false;
if (!ValidLength(document.soft.Nclassid.value,1)) {
document.soft.Nclassid.focus();
error(document.soft.Nclassid,"请选择子类别！");
}
return !errfound;
}
function error(elem,text) {
if(errfound) return;
window.alert(text);
errfound=true;
}
function trimOptions( dd, cnt ) {
while( dd.options.length > cnt ) dd.options[cnt] = null;
}
function setOption( dd, ndx, txt, vl, def ) {
dd.options[ndx] = new Option(txt,vl);
}
function mark_change( mark, mdl) {
var total = mdl.length;
for (j=1;j<=total;j++) {
trimOptions(mdl,j);
}

if ('11' == mark) setOption(mdl,1,'杀毒工具','1');
if ('11' == mark) setOption(mdl,2,'编程工具','2');
if ('11' == mark) setOption(mdl,3,'文件管理','3');
if ('11' == mark) setOption(mdl,4,'系统备份','4');
if ('11' == mark) setOption(mdl,5,'个人信息管理','5');
if ('11' == mark) setOption(mdl,6,'系统增强工具','6');
if ('11' == mark) setOption(mdl,7,'检测监视工具','7');
if ('11' == mark) setOption(mdl,8,'磁盘工具','8');
if ('11' == mark) setOption(mdl,9,'压缩工具','9');
if ('11' == mark) setOption(mdl,10,'加密解密','10');
if ('11' == mark) setOption(mdl,11,'系统安全','11');
if ('11' == mark) setOption(mdl,12,'安装制作工具','12');
if ('11' == mark) setOption(mdl,13,'金融股票','13');
if ('11' == mark) setOption(mdl,14,'教育教学','14');
if ('11' == mark) setOption(mdl,15,'打印工具','15');
if ('11' == mark) setOption(mdl,16,'注册表工具','16');
if ('11' == mark) setOption(mdl,17,'开关定时','17');
if ('11' == mark) setOption(mdl,18,'鼠标键盘','18');
if ('11' == mark) setOption(mdl,19,'补丁专区','19');
if ('11' == mark) setOption(mdl,20,'虚拟光驱','20');
if ('10' == mark) setOption(mdl,1,'FTP工具','21');
if ('10' == mark) setOption(mdl,2,'聊天软件','22');
if ('10' == mark) setOption(mdl,3,'数据共享','23');
if ('10' == mark) setOption(mdl,4,'网络传真','24');
if ('10' == mark) setOption(mdl,5,'Telnet工具','25');
if ('10' == mark) setOption(mdl,6,'拨号工具','26');
if ('10' == mark) setOption(mdl,7,'网络加速','27');
if ('10' == mark) setOption(mdl,8,'新闻阅读','28');
if ('10' == mark) setOption(mdl,9,'网络电话','29');
if ('10' == mark) setOption(mdl,10,'网络记费','30');
if ('10' == mark) setOption(mdl,11,'网站管理','31');
if ('10' == mark) setOption(mdl,12,'网络辅助','32');
if ('10' == mark) setOption(mdl,13,'搜索工具','33');
if ('10' == mark) setOption(mdl,14,'手机管理','34');
if ('9' == mark) setOption(mdl,1,'ICON工具','35');
if ('9' == mark) setOption(mdl,2,'屏幕截图工具','36');
if ('9' == mark) setOption(mdl,3,'插件&补丁','37');
if ('9' == mark) setOption(mdl,4,'图象处理','38');
if ('9' == mark) setOption(mdl,5,'图象浏览','39');
if ('9' == mark) setOption(mdl,6,'flash精品','40');
if ('9' == mark) setOption(mdl,7,'动画制作','41');
if ('9' == mark) setOption(mdl,8,'其他图形图象','42');
if ('8' == mark) setOption(mdl,1,'邮箱检查','43');
if ('8' == mark) setOption(mdl,2,'邮件软件','44');
if ('8' == mark) setOption(mdl,3,'其他电邮工具','45');
if ('7' == mark) setOption(mdl,1,'网页编辑工具','46');
if ('7' == mark) setOption(mdl,2,'网页编辑辅助','47');
if ('7' == mark) setOption(mdl,3,'文本编辑工具','48');
if ('6' == mark) setOption(mdl,1,'FTP服务器','49');
if ('6' == mark) setOption(mdl,2,'IRC服务器','50');
if ('6' == mark) setOption(mdl,3,'邮件服务器','51');
if ('6' == mark) setOption(mdl,4,'WEB服务器','52');
if ('6' == mark) setOption(mdl,5,'代理服务器','53');
if ('6' == mark) setOption(mdl,6,'其他服务器','54');
if ('5' == mark) setOption(mdl,1,'MP3播放器','55');
if ('5' == mark) setOption(mdl,2,'视频播放','56');
if ('5' == mark) setOption(mdl,3,'CD播放软件','57');
if ('5' == mark) setOption(mdl,4,'其它播放软件','58');
if ('5' == mark) setOption(mdl,5,'音轨转换','59');
if ('5' == mark) setOption(mdl,6,'多媒体剪辑','60');
if ('5' == mark) setOption(mdl,7,'其他多媒体','61');
if ('5' == mark) setOption(mdl,8,'光盘刻录','62');
if ('5' == mark) setOption(mdl,9,'其他制作工具','63');
if ('5' == mark) setOption(mdl,10,'娱乐大放送','64');
if ('4' == mark) setOption(mdl,1,'3D游戏','65');
if ('4' == mark) setOption(mdl,2,'策略游戏','66');
if ('4' == mark) setOption(mdl,3,'飞行模拟','67');
if ('4' == mark) setOption(mdl,4,'棋盘对弈','68');
if ('4' == mark) setOption(mdl,5,'赛车游戏','69');
if ('4' == mark) setOption(mdl,6,'动作射击','70');
if ('4' == mark) setOption(mdl,7,'游戏辅助软件','71');
if ('4' == mark) setOption(mdl,8,'游戏修改器','72');
if ('4' == mark) setOption(mdl,9,'模拟器','73');
if ('4' == mark) setOption(mdl,10,'升级&补丁','74');
if ('4' == mark) setOption(mdl,11,'其他游戏软件','75');
if ('3' == mark) setOption(mdl,1,'浏览器工具','76');
if ('3' == mark) setOption(mdl,2,'离线浏览工具','77');
if ('3' == mark) setOption(mdl,3,'add-on软件','78');
if ('3' == mark) setOption(mdl,4,'书签整理工具','79');
if ('3' == mark) setOption(mdl,5,'收藏管理','80');
if ('3' == mark) setOption(mdl,6,'其它浏览工具','81');
if ('2' == mark) setOption(mdl,1,'桌面辅助工具','82');
if ('2' == mark) setOption(mdl,2,'屏保下载','83');
if ('2' == mark) setOption(mdl,3,'桌面主题','84');
if ('2' == mark) setOption(mdl,4,'开机画面','85');
if ('2' == mark) setOption(mdl,5,'屏保制作','86');
if ('2' == mark) setOption(mdl,6,'时钟闹铃','87');
if ('1' == mark) setOption(mdl,1,'软件汉化','88');
if ('1' == mark) setOption(mdl,2,'输入法','89');
if ('1' == mark) setOption(mdl,3,'中文平台','90');
if ('1' == mark) setOption(mdl,4,'其他中文工具','91');
mdl.focus();
}
</script>
***************写在BODY里********************
<form name="soft" method="post" action="adminsave.asp?action=add" onSubmit="if(Validata()) return true;else return false;">
<select name="classid" onchange="mark_change(this.options[this.selectedIndex].value,this.form.Nclassid)" style="font-size: 9pt"><option value="">请选择类别</option><option value="1">中文工具</option><option value="2">桌面工具</option><option value="3">浏览工具</option><option value="4">游戏软件</option><option value="5">多媒体工具</option><option value="6">服务器软件</option><option value="7">编辑辅助</option><option value="8">电子邮件</option><option value="9">图形图象</option><option value="10">网络应用</option><option value="11">系统应用</option></select><select name="Nclassid" style="font-size: 9pt"><option value="">请选择子类别</option></select>**</form>

[yao7785]

第一级下的第二级, 第二级下的第三级菜单也有了吗?
还有, 如果我给这个菜单加一个图形按纽, 并且当鼠标成 onmouseover 状态时显示轮替图形如何写?

不好意思, 有点贪心了 :)

[yao7785]

顶

[laily]

http://www.9499.net?go=tc
提供officeXP（有图标显示的）和经典WINDOWS两种样式的菜单，使用简单方便，无极限子菜单.