asp 多级菜单(美化)

最新推荐文章于 2021-06-22 17:33:42 发布

lonz

最新推荐文章于 2021-06-22 17:33:42 发布

阅读量2.7k

点赞数

文章标签： asp menu class css border div

本文链接：https://blog.csdn.net/lonz/article/details/88729

版权

表结构

id int

MenuName nvarchar 50

MenuUrl nvarchar 255

ParentID int

Step int

<%
'==============================================
' 数据源
'==============================================
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&""" οnmοuseοver=""this.style.backgroundColor='#DEE7FF';"" οnmοuseοut=""this.style.backgroundColor='#F1F1F1'"" align='left'><img src='../pic/bullet.gif'>"&menu(j,1)&"</div>"
  elseif cint(stepinfo)=2 then
   outstr="<div class="""&css&""" οnmοuseοver=""this.style.backgroundColor='#DEE7FF';"" οnmοuseοut=""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">

</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
%>