<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>树型菜单,可刷新</title>
<meta name="description" content="http://www.livepo.com">
<style type="text/css">
<!--
*{margin:0;padding:0;border:0;}
body {
font-family: arial, 宋体, serif;
font-size:12px;
}
#nav {
width:180px;
    line-height: 24px; 
list-style-type: none;
text-align:left;
    /*定义整个ul菜单的行高和背景色*/
}
/*==================一级目录===================*/
#nav a {
width: 160px; 
display: block;
padding-left:20px;
/*Width(一定要),否则下面的Li会变形*/
}
#nav li {
background:#CCC; /*一级目录的背景色*/
border-bottom:#FFF 1px solid; /*下面的一条白边*/
float:left;
/*float:left,本不应该设置,但由于在Firefox不能正常显示
继承Nav的width,限制宽度,li自动向下延伸*/
}
#nav li a:hover{
background:#CC0000; /*一级目录onMouseOver显示的背景色*/
}
#nav a:link  {
color:#666; text-decoration:none;
}
#nav a:visited  {
color:#666;text-decoration:none;
}
#nav a:hover  {
color:#FFF;text-decoration:none;font-weight:bold;
}
/*==================二级目录===================*/
#nav li ul {
list-style:none;
text-align:left;
}
#nav li ul li{
background: #EBEBEB; /*二级目录的背景色*/
}
#nav li ul a{
         padding-left:20px;
         width:160px;
/* padding-left二级目录中文字向右移动,但Width必须重新设置=(总宽度-padding-left)*/
}
/*下面是二级目录的链接样式*/
#nav li ul a:link  {
color:#666; text-decoration:none;
}
#nav li ul a:visited  {
color:#666;text-decoration:none;
}
#nav li ul a:hover {
color:#F3F3F3;
text-decoration:none;
font-weight:normal;
background:#CC0000;
/* 二级onmouseover的字体颜色、背景色*/
}
/*==============================*/
#nav li:hover ul {
left: auto;
}
#nav li.sfhover ul {
left: auto;
}
#content {
clear: left; 
}
#nav ul.collapsed {
display: none;
}
-->
#PARENT{
width:300px;
padding-left:20px;
}
</style>
<!--#include file="conn.asp"-->
</head>
<body>
<div id="PARENT">
<ul id="nav">
                      <%
     sql="select Stair_id,Secondary_id from Stairpopedom where Corporation_code='BJ-XC-0028'" '得到企业代码查出一级权限Stair_id,二级权限Secondary_id
 set rs=conn.execute(sql)
 Starid_id=rs(0)
 Secondary_id=rs(1)
  %>
  <%
    myArray=split(Starid_id,",") '拆分一级权限
For i=Lbound(myArray) to ubound(myArray)  
Starid_id=trim(myArray(i))
sql1="select Stair_name from Stair where Stair_id="& Starid_id &"" '根据一级编号查出一级名称
set rs1=conn.execute(sql1)
If Not rs1.Eof Then
Response.Write "<li><a href=""#Menu=ChildMenu"& i &""" onclick=""DoMenu('ChildMenu"&i&"')"">"
Response.write (Trim(rs1("Stair_name"))) '显示一级名称
Response.Write "</a></li>"
End IF
rs1.Close
Set rs1 = Nothing
Next
  %>
  <%
myArray1=split(Secondary_id,",")
For i=Lbound(myArray1) to ubound(myArray1)  
Secondary_id=trim(myArray1(i))
sql2="select Secondary_name from Secondary where Secondary_id="& Secondary_id &" and Stair_id="& Starid_id &" "
set rs2=conn.execute(sql2)
if Not rs2.Eof then
Response.Write "<ul id='ChildMenu"& i &"' class='collapsed'>"
Response.Write "<li><a href='http://www.netany.net' target='_blank'>"
Response.write (Trim(rs2("Secondary_name")))
Response.Write "</a></li></ul>"
  end if
Next
  %>
</ul>
</div>
<div style="width:300;padding-left:30px;">
</br></br>
</div>
</body>
</html>
<script type=text/javascript><!--
var LastLeftID = "";
function menuFix() {
var obj = document.getElementById("nav").getElementsByTagName("li");

for (var i=0; i<obj.length; i++) {
obj[i].onmouseover=function() {
this.className+=(this.className.length>0? " ": "") + "sfhover";
}
obj[i].onMouseDown=function() {
this.className+=(this.className.length>0? " ": "") + "sfhover";
}
obj[i].onMouseUp=function() {
this.className+=(this.className.length>0? " ": "") + "sfhover";
}
obj[i].onmouseout=function() {
this.className=this.className.replace(new RegExp("( ?|^)sfhover\\b"), "");
}
}
}
function DoMenu(emid)
{
var obj = document.getElementById(emid);
obj.className = (obj.className.toLowerCase() == "expanded"?"collapsed":"expanded");
if((LastLeftID!="")&&(emid!=LastLeftID)) //关闭上一个Menu
{
document.getElementById(LastLeftID).className = "collapsed";
}
LastLeftID = emid;
}
function GetMenuID()
{
var MenuID="";
var _paramStr = new String(window.location.href);
var _sharpPos = _paramStr.indexOf("#");

if (_sharpPos >= 0 && _sharpPos < _paramStr.length - 1)
{
_paramStr = _paramStr.substring(_sharpPos + 1, _paramStr.length);
}
else
{
_paramStr = "";
}

if (_paramStr.length > 0)
{
var _paramArr = _paramStr.split("&");
if (_paramArr.length>0)
{
var _paramKeyVal = _paramArr[0].split("=");
if (_paramKeyVal.length>0)
{
MenuID = _paramKeyVal[1];
}
}
/*
if (_paramArr.length>0)
{
var _arr = new Array(_paramArr.length);
}

//取所有#后面的,菜单只需用到Menu
//for (var i = 0; i < _paramArr.length; i++)
{
var _paramKeyVal = _paramArr[i].split('=');

if (_paramKeyVal.length>0)
{
_arr[_paramKeyVal[0]] = _paramKeyVal[1];
}
}
*/

}

if(MenuID!="")
{
DoMenu(MenuID)
}
}
GetMenuID(); //*这两个function的顺序要注意一下,不然在Firefox里GetMenuID()不起效果
menuFix();
--></script>这个页面就是想实现一个菜单。一级菜单和二级菜单的内容都是从数据库里调出来的!点击一级菜单就出现相应的二级菜单!!很急,。小妹都改了一天了,还是有错。所以请各路大侠帮帮忙了~谢谢

解决方案 »

  1.   

    <ul   id="nav"> 
                                                <% 
              sql="select   Stair_id,Secondary_id   from   Stairpopedom   where   Corporation_code='BJ-XC-0028'"   '得到企业代码查出一级权限Stair_id,二级权限Secondary_id 
      set   rs=conn.execute(sql) 
      Starid_id=rs(0) 
      Secondary_id=rs(1) 
        %> 
        <% 
            myArray=split(Starid_id,",")   '拆分一级权限 
    For   i=Lbound(myArray)   to   ubound(myArray)     
    Starid_id=trim(myArray(i)) 
    sql1="select   Stair_name   from   Stair   where   Stair_id="&   Starid_id   &""   '根据一级编号查出一级名称 
    set   rs1=conn.execute(sql1) 
    If   Not   rs1.Eof   Then 
    Response.Write   " <li> <a   href=""#Menu=ChildMenu"&   i   &"""   onclick=""DoMenu('ChildMenu"&i&"')""> " 
    Response.write   (Trim(rs1("Stair_name")))   '显示一级名称 
    Response.Write   " </a> </li> " 
    End   IF 
    rs1.Close 
    Set   rs1   =   Nothing 
    Next 
        %> 
        <% 
    myArray1=split(Secondary_id,",") 
    For   i=Lbound(myArray1)   to   ubound(myArray1)     
    Secondary_id=trim(myArray1(i)) 
    sql2="select   Secondary_name   from   Secondary   where   Secondary_id="&   Secondary_id   &"   and   Stair_id="&   Starid_id   &"   " 
    set   rs2=conn.execute(sql2) 
    if   Not   rs2.Eof   then 
    Response.Write   " <ul   id='ChildMenu"&   i   &"'   class='collapsed'> " 
    Response.Write   " <li> <a   href='http://www.netany.net'   target='_blank'> " 
    Response.write   (Trim(rs2("Secondary_name"))) 
    Response.Write   " </a> </li> </ul> " 
      end   if 
    Next 
        %> 
    </ul> 
    主要就是这段代码有错!!