asp 多级菜单(美化)

原创 2004年08月30日 12:07:00

表结构

id                       int              

MenuName        nvarchar               50

MenuUrl            nvarchar               255

ParentID            int

Step                   int

<!--#include file="../inc/conndb.asp"-->
<%
'==============================================
'                     数据源
'==============================================
dim rs,sql,rscount
set rs=server.CreateObject("ADODB.recordset")
sql="select * from menu order by id asc"
rs.open sql,conn,1,1
rscount=rs.recordcount
'==============================================
'     将数据存入数组
'==============================================
dim menu(100,3) '需要按记录条数改动
dim ItemString
for i=0 to rscount-1
 if rs.eof or rs.bof then exit for
 if trim(rs("MenuUrl"))<>"" then
 ItemString="<a href='"&rs("MenuUrl")&"' target='main'>"&rs("MenuName")&"</a>"
 else
 ItemString=rs("MenuName")
 end if
 menu(i,0)=rs("ID")
 menu(i,1)=ItemString
 menu(i,2)=rs("ParentID")
 menu(i,3)=rs("Step")
 rs.movenext
next

'==============================================
'     实现Menu
'==============================================
dim css '样式
dim ourstr,stepinfo
sub GetMenu(parentid)
 for j=0 to ubound(menu,1)
  if parentid=menu(j,2) then
  stepinfo=menu(j,3)
  css="step"&stepinfo
  
  '控制输出样式
  if cint(stepinfo)=1 then
   outstr="<div class="""&css&""" onmouseover=""this.style.backgroundColor='#DEE7FF';""  onmouseout=""this.style.backgroundColor='#F1F1F1'"" align='left'><img src='../pic/bullet.gif'>"&menu(j,1)&"</div>"
  elseif cint(stepinfo)=2 then
   outstr="<div class="""&css&""" onmouseover=""this.style.backgroundColor='#DEE7FF';""  onmouseout=""this.style.backgroundColor='#F1F1F1'"" align='left'>"&menu(j,1)&"</div>"
  else
   outstr="<div class="""&css&""" align='left'>"&menu(j,1)&"</div>"
  end if
  response.Write(outstr)
  if menu(j,0)<>"" then

   GetMenu menu(j,0)
  end if
  end if
 next
 
end sub
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>menu</title>
<style type="text/css">
<!--
body  { margin:0px; font:normal 12px 宋体;
SCROLLBAR-FACE-COLOR: #799AE1; SCROLLBAR-HIGHLIGHT-COLOR: #799AE1;
SCROLLBAR-SHADOW-COLOR: #799AE1; SCROLLBAR-DARKSHADOW-COLOR: #799AE1;
SCROLLBAR-3DLIGHT-COLOR: #799AE1; SCROLLBAR-ARROW-COLOR: #FFFFFF;
SCROLLBAR-TRACK-COLOR: #AABFEC;
}
div.step0 {
 background-color: #037BC2;
 height: 18px;
 width: 150px;
 font-weight: bold;
 color: #FFFFFF;
 text-align: center;
}
div.step1 {
 height: 18px;
 cursor: hand;
 padding-left: 10px;
}
div.step2 {
 height: 18px;
 cursor: hand;
 padding-left: 40px;
}
div {
 font-size: 12px;
}
table{
 font-size: 12px;
}
a:link {
 color: #002084;
 text-decoration: none;
}
a:visited {
 text-decoration: none;
 color: #002084;
}
a:hover {
 text-decoration: underline;
}
a:active {
 text-decoration: underline;
}
.kuang {
 border: 1px solid #5582D2;
 background-color: #f1f1f1;
}
-->
</style>
</head>
<body bgcolor="#8CAAE6">
  <br>
<table width="160"  border="0" align="center" cellpadding="0" cellspacing="0" class="kuang">
    <tr>
      <td height="8" align="center" bgcolor="#002F5E"><img src="../pic/dot.gif" width="1" height="1"></td>
    </tr>
    <tr>
      <td height="25" align="center"><span class="menu_title"><a href="main.asp" target=main><b>管理首页</b></a> | <a href="../login/logout.asp" target=_top><b>退出管理</b></a><a href="menu_list.asp" target=main><b></b></a></span></td>
    </tr>
    <tr>
      <td align="center"><% call GetMenu(0)%></td>
    </tr>
  </table>
  <br>
 </body>
</html>


<%
'==============================================
'???????????????????? 数据源
'==============================================
dim rs,sql,rscount
set rs=server.CreateObject("ADODB.recordset")
sql="select * from menu order by id asc"
rs.open sql,conn,1,1
rscount=rs.recordcount
'==============================================
'?????将数据存入数组
'==============================================
dim menu(35,3)?'需要按记录条数改动
dim ItemString
for i=0 to rscount-1
?if rs.eof or rs.bof then exit for
?if trim(rs("MenuUrl"))<>"" then
?ItemString=""&rs("MenuName")&""
?else
?ItemString=rs("MenuName")
?end if
?menu(i,0)=rs("ID")
?menu(i,1)=ItemString
?menu(i,2)=rs("ParentID")
?menu(i,3)=rs("Step")
?rs.movenext
next

'==============================================
'?????实现Menu
'==============================================
dim css?'样式
sub GetMenu(parentid)
?for j=0 to ubound(menu,1)
??if parentid=menu(j,2) then
??css="step"&menu(j,3)
??response.Write(""&menu(j,1)&"
")
??if menu(j,0)<>"" then

???GetMenu menu(j,0)
??end if
??end if
?next
?
end sub
%>

copyright by Lonz

单片机实现多级菜单

单片机实现多级菜单 1、首先定义一个机构体如下 typedef struct    {      uchar current;      uchar up;//上键      uc...
  • u010980705
  • u010980705
  • 2016年09月20日 22:01
  • 1491

【ztree系列】右键菜单、节点伸缩

在网页设计中,一般很少使用右键功能,当我们未定义右键操作的时候,默认的都是调用浏览器事件。但是在有些情况下,例如为了节省页面空间(让页面更简洁、美观)或者是用户不常用的一些功能,我们就可以把它们都放在...
  • chenyanmoting
  • chenyanmoting
  • 2016年01月09日 17:41
  • 8004

单片机LCD简单多级菜单实现

多年以前,我写过一篇12864lcd显示屏多级菜单代码实现 博客,当时草率的实现了一个菜单画面,然并没有实际用处,因为作为菜单的选取响应动作并没有在其中实现。这个就是补充了。...
  • ymsunshine
  • ymsunshine
  • 2016年12月11日 23:36
  • 3541

Android多级树形菜单并且支持多选功能

最近遇到了一些非常不爽的事情,心情很不好,突然想到,我可以静下心来,写写博客,来平复一下自己的心情,哈哈。。。 公司有一个需求,实现一个多级的树形菜单,并且支持多选功能,实现这个功能之前,我在网上找...
  • qq_15328623
  • qq_15328623
  • 2016年04月03日 10:17
  • 3298

js多级菜单样式

-----------------------------------------------------------------------index.html http://www.w3.org...
  • fengxinzi_jing
  • fengxinzi_jing
  • 2013年03月15日 16:27
  • 1435

easyUI动态生成多级菜单树

  • Seri_com
  • Seri_com
  • 2017年03月14日 22:09
  • 433

多级选择菜单——数据加载

今天介绍下多级选择菜单的实现,及数据的加载。 一、效果图              很简单的一个功能实现,当我们选择筛选条件的时候,下面会显示相对应的数 据,点击清空筛选条件,会清空已选择的条...
  • hanxintong9
  • hanxintong9
  • 2016年06月12日 15:20
  • 1285

ListView多级子菜单的实现

在网上看了很多关于多级子菜单的实现方式,有自定义ListView实现的,还有一些使用的PopWindow实现的,总得来说可能对于刚刚上手Android开发的人来说可能看这些有些不明白,下面我将使用传统...
  • zengyong19920709
  • zengyong19920709
  • 2015年08月09日 10:42
  • 1497

12864多级菜单设计

看到网上有个视频,用的是12864做的菜单,很花哨,自己也心痒痒想做一个,收集了 很多关于这方面的东西,但是都是五花八门,没有一个完整的可以共大家参考的程序,所以决定写偏文章供大家参考,希望读者下去自...
  • dcx1205
  • dcx1205
  • 2013年05月13日 20:57
  • 1495

Bootstrap组件---下拉菜单,多级菜单 ,按钮

下拉菜单        ,dropdown(.dropup改变这个是上显示)   data-toggle="dropdown" (激活文本处)      .dropdown-menu   .pull-...
  • GQ_cyan
  • GQ_cyan
  • 2016年09月08日 19:32
  • 14044
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:asp 多级菜单(美化)
举报原因:
原因补充:

(最多只允许输入30个字)