这个博客展示了如何使用纯ASP语言创建一个动态的左侧下拉菜单，菜单包含多个子菜单项，如系统功能、资源管理、站点更新、文件系统和系统管理等，便于网站后台管理。
<html>
<head>
<title>Menu.asp</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="Tsys,FuJinFuZhou,ChanGong_Studio">
<meta name="Version" content="Tsys V1.1">
<style type="text/css">
<!--
BODY {
FONT-FAMILY: 宋体;
FONT-SIZE: 8pt;
SCROLLBAR-HIGHLIGHT-COLOR: buttonface;
SCROLLBAR-SHADOW-COLOR: buttonface;
SCROLLBAR-3DLIGHT-COLOR: buttonhighlight;
SCROLLBAR-TRACK-COLOR: #eeeeee;
SCROLLBAR-DARKSHADOW-COLOR: buttonshadow
}
-->
</style>
<link rel="StyleSheet" href="Library/DTree/dtree.css" type="text/css">
<SCRIPT src="Library/DTree/dtree.js"></SCRIPT>
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;">系统功能列表</td>
</tr>
<!--
<tr>
<td>
〓〓〓〓〓〓
</td>
</tr>
-->
<tr>
<td colspan="2" bgcolor="#f6f6f6" style="cursor:hand; background:url(../../images/admin_left_1.gif) no-repeat;" onClick="if(Menu1.style.display=='none'){Menu1.style.display='';window.scrollTo(window.pageXOffset,2000);}else{Menu1.style.display='none'}">当前用户</td>
</tr>
<tr Id="Menu1" style="display:none">
<td width="98%" valign="top">
<table width="100%" border="0" cellpadding="3" cellspacing="0">
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="Login_Info.asp" target="main">基本信息</a></td>
</tr>
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="Login.asp?Work=LoginOut" target="main">注消登录</a>
</td>
</tr>
</table>
</tr>
<!--
<tr>
<td>
〓〓〓〓〓〓
</td>
</tr>
-->
<!--
<tr>
<td colspan="2" bgcolor="#f6f6f6" style="cursor:hand; background:url(../../images/admin_left_1.gif) no-repeat;" onClick="if(Menu2.style.display=='none'){Menu2.style.display='';window.scrollTo(window.pageXOffset,2000);}else{Menu2.style.display='none'}">资源管理
</td>
</tr>
-->
<tr>
<td colspan="2" bgcolor="#f6f6f6" style="cursor:hand; background:url(../../images/admin_left_1.gif) no-repeat;" onClick="if(Menu2.style.display=='none'){Menu2.style.display='';window.scrollTo(window.pageXOffset,2000);}else{Menu2.style.display='none'}">资源管理</td>
</tr>
<!--
style="display:none background:url(../../images/admin_left_1.gif) no-repeat;"
-->
<tr Id="Menu2" style="display:none">
<td width="98%" valign="top">
<table width="100%" border="0" cellpadding="3" cellspacing="0">
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="News_Add.asp?Work=AddReco" target="main">添加资源</a></td>
</tr>
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="News_List.asp" target="main">常规资源</a></td>
</tr>
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="News_List.asp?Work=UnChecked" target="main">未审核资源</a></td>
</tr>
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="News_List.asp?Work=Dustbin" target="main">资源回收站</a></td>
</tr>
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="News_Move.asp" target="main">移动资源</a></td>
</tr>
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="News_CreateHtml.asp" target="main">资源生成</a></td>
</tr>
<tr>
<td style="cursor:hand; background:url(../../images/admin_left_1.gif) no-repeat;" onClick="if(Menu2_1.style.display=='none'){Menu2_1.style.display='';window.scrollTo(window.pageXOffset,2000);}else{Menu2_1.style.display='none'}">
附属信息</td>
</tr>
<tr Id="Menu2_1" style="display:none">
<td width="98%" valign="top">
<table width="100%" border="0" cellpadding="3" cellspacing="0">
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="News_Speciality_List.asp" target="main">资源特性</a></td>
</tr>
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="From_List.asp" target="main">资源来源</a>
</td>
</tr>
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="Author_List.asp" target="main">作者列表</a>
</td>
</tr>
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="Comment_List.asp" target="main">评论列表</a>
</td>
</tr>
</table>
</tr>
<tr>
<td style="cursor:hand; background:url(../../images/admin_left_1.gif) no-repeat;" onClick="if(Menu2_2.style.display=='none'){Menu2_2.style.display='';window.scrollTo(window.pageXOffset,2000);}else{Menu2_2.style.display='none'}">资源分类</td>
</tr>
<tr Id="Menu2_2" style="display:none">
<td width="98%" valign="top">
<table width="100%" border="0" cellpadding="3" cellspacing="0">
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="Class_List.asp" target="main">分类列表</a>
</td>
</tr>
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="NewsTemplate_List.asp" target="main">分类模板</a>
</td>
</tr>
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="NewsTemplate_Mdy.asp?Work=AddReco" target="main">添加模板</a>
</td>
</tr>
</table>
<td>
</tr>
</table>
<!--
<tr>
<td>
〓〓〓〓〓〓
</td>
</tr>
-->
<tr>
<td colspan="2" bgcolor="#f6f6f6" style="cursor:hand; background:url(../../images/admin_left_1.gif) no-repeat;" onClick="if(Menu3.style.display=='none'){Menu3.style.display='';window.scrollTo(window.pageXOffset,2000);}else{Menu3.style.display='none'}">站点更新
</td>
</tr>
<tr Id="Menu3" style="display:none">
<td width="98%" valign="top">
<table width="100%" border="0" cellpadding="3" cellspacing="0">
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="InsertSYS_List.asp" target="main">页面内容替换</a></td>
</tr>
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="UpdatePage.asp" target="main">页面资源更新</a>
</td>
</tr>
</table>
</tr>
<!--
<tr>
<td>
〓〓〓〓〓〓
</td>
</tr>
-->
<tr>
<td colspan="2" bgcolor="#f6f6f6" style="cursor:hand; background:url(../../images/admin_left_1.gif) no-repeat;" onClick="if(Menu4.style.display=='none'){Menu4.style.display='';window.scrollTo(window.pageXOffset,2000);}else{Menu4.style.display='none'}">文件系统
</td>
</tr>
<tr Id="Menu4" style="display:none">
<td width="98%" valign="top">
<table width="100%" border="0" cellpadding="3" cellspacing="0">
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="FileSystem/View.asp" target="main">虚拟目录</a></td>
</tr>
</table>
</tr>
<!--
<tr>
<td>
〓〓〓〓〓〓
</td>
</tr>
-->
<tr>
<td colspan="2" bgcolor="#f6f6f6" style="cursor:hand; background:url(../../images/admin_left_1.gif) no-repeat;" onClick="if(Menu5.style.display=='none'){Menu5.style.display='';window.scrollTo(window.pageXOffset,2000);}else{Menu5.style.display='none'}">系统管理
</td>
</tr>
<tr Id="Menu5" style="display:none">
<td width="98%" valign="top">
<table width="100%" border="0" cellpadding="3" cellspacing="0">
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="Sys_Config.asp?Work=MdyFile" target="main">参数设置</a></td>
</tr>
<tr>
<td style="cursor:hand; background:url(../../images/admin_left_1.gif) no-repeat;" onClick="if(Menu5_2.style.display=='none'){Menu5_2.style.display='';window.scrollTo(window.pageXOffset,2000);}else{Menu5_2.style.display='none'}">系统安全</td>
</tr>
<tr Id="Menu5_2" style="display:none">
<td width="98%" valign="top">
<table width="100%" border="0" cellpadding="3" cellspacing="0">
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="Admin_Mdy.asp?Work=AddReco" target="main">添加帐户</a></td>
</tr>
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="Admin_List.asp" target="main">帐户列表</a>
</td>
</tr>
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="AdminRole_Mdy.asp?Work=AddReco" target="main">创建角色</a>
</td>
</tr>
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="AdminRole_List.asp" target="main">角色列表</a>
</td>
</tr>
</table>
</tr>
<tr>
<td style="cursor:hand; background:url(../../images/admin_left_1.gif) no-repeat;" onClick="if(Menu5_3.style.display=='none'){Menu5_3.style.display='';window.scrollTo(window.pageXOffset,2000);}else{Menu5_3.style.display='none'}">数据库管理</td>
</tr>
</table>
</tr>
<tr Id="Menu5_3" style="display:none">
<td width="98%" valign="top">
<table width="100%" border="0" cellpadding="3" cellspacing="0">
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="DataBase_Statistic.asp" target="main">数据库统计</a></td>
</tr>
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="DataBase_Compact.asp?Work=CompactDB" target="main">数据库压缩</a>
</td>
</tr>
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="DataBase_Compact.asp?Work=BakDB" target="main">数据库备份</a>
</td>
</tr>
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="DataBase_Compact.asp?Work=ReBakDB" target="main">数据库还原</a>
</td>
</tr>
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="DataBase_Compact.asp?Work=ExeCuteSql" target="main">执行Sql脚本</a>
</td>
</tr>
</table>
</tr>
<!--
<tr>
<td>
〓〓〓〓〓〓
</td>
</tr>
-->
<tr>
<td colspan="2" bgcolor="#f6f6f6" style="cursor:hand; background:url(../../images/admin_left_1.gif) no-repeat;" onClick="if(Menu6.style.display=='none'){Menu6.style.display='';window.scrollTo(window.pageXOffset,2000);}else{Menu6.style.display='none'}">交流回馈
</td>
</tr>
<tr Id="Menu6" style="display:none">
<td width="98%" valign="top">
<table width="100%" border="0" cellpadding="3" cellspacing="0">
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="SDK.htm" target="main">官方发布站</a></td>
</tr>
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="SDK.htm" target="main">交流论坛</a>
</td>
</tr>
<tr>
<td style="background:url(../../images/admin_left_1.gif) no-repeat;"><a href="SDK.htm" target="main">开发文档</a>
</td>
</tr>
</table>
</tr>
</table>
</body>
</html>
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
