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

Asp.net 4.0 menu 控件样式 + XML 文件配置

本人对WEB UI的设计工作做的很少,多数时间是在后端开发,这个例子做过了,记录下来,以后做个参考菜单效果如下菜单上面有鼠标经过的变背景色,和字体加粗变颜色的效果,不方便截图,这里就算了样式文件 to...
  • lee576
  • lee576
  • 2013-06-21 13:58:16
  • 2997

ASP.NET - 将 CSS 和样式用于 Menu 控件

      几乎 Menu 控件外观的各个方面都可以使用 Menu 控件的属性或级联样式表 (CSS) 来管理。通过了解哪些属性控制呈现的哪些方面,可以定制菜单的外观。本主题介绍由 Menu 控件公开...
  • dodream
  • dodream
  • 2009-12-17 13:50:00
  • 11791

asp.net menu 控件样式 范例横向

AccessKey="string"     BackColor="color name|#dddddd"     BorderColor="color name|#dddddd"     Bo...
  • lcnmdfx
  • lcnmdfx
  • 2011-11-14 20:05:30
  • 3757

Asp.net中动态Menu的实践

 在页界中添加MENU控件;
  • qiushuisen
  • qiushuisen
  • 2014-10-05 16:16:45
  • 2683

<em>ASP.NET</em>开发实战1200例(第1卷).part1

书名:《<em>ASP.NET</em>开发实战1200例》(清华大学出版社....(<em>Menu</em>) 413 实例258 <em>Menu</em>控件实现电子商城网站导航 ...应用CSS样式<em>美化</em>网站 459 实例289 利用DIV+CSS布局...
  • 2018年03月23日 00:00

asp.net gridview美化

        ...
  • xuqianghit
  • xuqianghit
  • 2010-08-29 14:35:00
  • 2873

CCS + ASP.NET 美化界面开发

  • 2008年12月17日 23:46
  • 136KB
  • 下载

<em>ASP.NET</em>权限管理子系统

5)可视化编辑,全新的<em>Menu</em>和Tab控件.支持拖拉式编辑....admin 感谢您选择 <em>ASP.NET</em>权限管理系统(FrameWork) ...3. 无论如何,即无论用途如何、是否经过修改或<em>美化</em>...
  • 2018年04月11日 00:00

如何美化你的blog

网页设计常用代码(一)  1、禁止页面正文内容被选取 false"onmouseup="document.selection.empty()">  2、消除ie6自动出现的图像工具栏,设置 GALLE...
  • anyharding
  • anyharding
  • 2006-05-04 22:53:00
  • 830

自定义RadioButton样式2

先看一下图:    上面这种3选1的效果如何做呢?用代码写?  其实有更简单的办法,忘了RadioButton有什么特性了吗?  我就用RadioButton实现了如上效果,其实很简单的。  首先定...
  • djun100
  • djun100
  • 2013-10-29 13:38:42
  • 5370
收藏助手
不良信息举报
您举报文章:asp 多级菜单(美化)
举报原因:
原因补充:

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