动态的二级伸缩式的菜单，asp编写-ASP教程,ASP应用

这是本来的静态的二级菜单

  <meta http-equiv=”content-type” content=”text/html; charset=gb2312″>
  <link href=”admin/adminstyle.css” type=”text/css” rel=”stylesheet”>
   <script>
function aa(dir)
{tt.doscroll(dir);timer=settimeout(aa(“+dir+”),100)}//这里100为滚动速度
function stopscroll(){if(timer!=null)cleartimeout(timer)}

function showsubmenu(sid)
{
whichel = eval(“submenu” + sid);
if (whichel.style.display == “none”)
{
eval(“submenu” + sid + “.style.display=\”\”;”);
}
else
{
eval(“submenu” + sid + “.style.display=\”none\”;”);
}
}
   </script>

         <style type=”text/css”>
<!–
.style1 {color: #ffffff}
–>
            </style>
<center>
<script>
var he=document.body.clientheight-105
document.write(“<div id=tt style=height:”+he+”;overflow:hidden>”)
  </script>
  <table cellspacing=”1″ cellpadding=”0″ width=”140″ align=”center” class=”a2″ id=”table3″>
   <tbody>
    <tr align=”center” class=”a1″>
     <td width=”140″ height=”25″ align=”center” bgcolor=”#6381c1″ class=”menu_title” id=”menutitle1″ style=”cursor:hand” onclick=”showsubmenu(0)” onmouseover=”this.classname=menu_title2;”
      onmouseout=”this.classname=menu_title;”><span><span class=”style1″>四撑杆两瓣抓斗</span>
      </span></td>
    </tr>
    <tr align=”center” class=”a3″>
     <td id=”submenu0″ style=”display: none”>
      <div class=”sec_menu” style=”width: 140px”>
       <table cellspacing=”0″ cellpadding=”0″ width=”90%” align=”center” id=”table4″>
        <tbody>
         <tr align=”center”>
          <td height=”20″>
           <a target=”main” href=”admin_config.asp”>网站基本数据</a>
         </tr>
         <tr align=”center”>
          <td height=”20″>
           <a target=”main” href=”admin_admin.asp?action=admin”>管理员管理</a></td>
         </tr>
         <tr align=”center”>
          <td height=”20″>
           <a href=”book.asp” target=”_blank”>留言本管理</a></td>
         </tr>
         <tr align=”center”>
          <td height=”20″>
           <a target=”main” href=”admin_admin.asp?action=modpass”>更改管理员密码</a>
         </tr>
         <tr align=”center”>
          <td height=”20″>
           <a target=”main” href=”admin_recount.asp”>更新首页统计数</a>
         </tr>
        </tbody></table>
      </div>
     </td>
    </tr>
 </tbody></table>
  <table width=”140″ align=”center” cellpadding=”0″ cellspacing=”1″ class=”a2″ id=”table5″>
   <tbody>
    <tr align=”center” class=”a1″>
     <td height=”25″ align=”center” bgcolor=”#6381c1″ class=”menu_title” id=”menutitle1″ style=”cursor:hand” onclick=”showsubmenu(3)” onmouseover=”this.classname=menu_title2;”
      onmouseout=”this.classname=menu_title;”><span class=”style1″>四撑杆两瓣抓斗
      </span></td>
    </tr>
    <tr align=”center” class=”a3″>
     <td id=”submenu3″ style=”display: none”>
      <div class=”sec_menu” style=”width: 130px”>
       <table cellspacing=”0″ cellpadding=”0″ width=”90%” align=”center” id=”table6″>
        <tbody>
         <tr align=”center”>
          <td height=”20″>
           <a href=”admin_diary.asp” target=”main”>公告管理</a></td>
         </tr>
         <tr align=”center”>
          <td height=”20″>
           <a href=”admin_diary.asp?action=newdiary” target=”main”>新添公告</a></td>
         </tr>
         <tr align=”center”>
          <td height=”20″>
           <a href=”admin_vote.asp?action=vote” target=”main”>投票管理</a></td>
         </tr>
         <tr align=”center”>
          <td height=”20″>
           <a href=”admin_vote.asp?action=newvote” target=”main”>新添投票</a></td>
         </tr>
         <tr align=”center”>
          <td height=”20″>
           <a href=”admin_news.aspx” target=”main”>新闻管理</a> | <a href=”admin_news.aspx” target=”main”>添加</a></td>
         </tr>
         
        </tbody></table>
      </div>
     </td>
    </tr>
 </tbody></table>
  <table cellspacing=”1″ cellpadding=”0″ width=”140″ align=”center” class=”a2″ id=”table7″>
   <tbody>
    <tr align=”center” class=”a1″>
     <td height=”25″ align=”center” bgcolor=”#6381c1″ class=”menu_title style1″ id=”menutitle1″ style=”cursor:hand” onclick=”showsubmenu(2)” onmouseover=”this.classname=menu_title2;”
      onmouseout=”this.classname=menu_title;”>弹性平衡异步多颚板抓斗</td>
    </tr>
    <tr align=”center” class=”a3″>
     <td id=”submenu2″ style=”display: none”>
      <div class=”sec_menu” style=”width: 140px”>
       <table cellspacing=”0″ cellpadding=”0″ width=”90%” align=”center” id=”table8″>
        <tbody>
         <tr align=”center”>
          <td height=”20″>
           <a href=”admin_mms.aspx” target=”main”>彩信管理</a></td>
         </tr>
         <tr align=”center”>
          <td height=”20″>
           <a href=”admin_dj.asp?action=djerror” target=”main”>彩铃管理</a></td>
         </tr>
         <tr align=”center”>
          <td height=”20″>
           <a href=”admin_dj.asp?action=newdj” target=”main”>新增影音</a></td>
         </tr>
         <tr align=”center”>
          <td height=”20″>
           <a href=”admin_dj.asp?action=djcat” target=”main”>分类管理</a></td>
         </tr>
         <tr align=”center”>
          <td height=”20″>
           <a href=”admin_dj.asp?action=newdjcat” target=”main”>新增分类</a></td>
         </tr>
        </tbody></table>
      </div>
     </td>
    </tr>
    <tr align=”center” class=”a1″>
     <td height=”25″ align=”center” bgcolor=”#6381c1″ class=”menu_title” id=”menutitle1″ style=”cursor:hand” onclick=”showsubmenu(6)” onmouseover=”this.classname=menu_title2;”
      onmouseout=”this.classname=menu_title;”><span class=”style1″>防漏抓斗</span></td>
    </tr>
    <tr align=”center” class=”a3″>
     <td id=”submenu6″ style=”display: none”>
      <div class=”sec_menu” style=”width: 140px”>
       <table cellspacing=”0″ cellpadding=”0″ width=”90%” align=”center” id=”table9″>
        <tbody>
         <tr align=”center”>
          <td height=”19″>
           <a href=”admin_article.asp” target=”main”>分类管理</a></td>
         </tr>
         <tr align=”center”>
          <td height=”20″>
           <a href=”admin_article2.asp” target=”main”>文章管理</a></td>
         </tr>
         <tr align=”center”>
          <td height=”19″>
           <a href=”admin_article.asp?action=newartcat” target=”main”>新增分类</a></td>
         </tr>
         <tr align=”center”>
          <td height=”19″>
           <a href=”new_article.asp?action=newart” target=”main”>新增文章</a></td>
         </tr>
        </tbody></table>
      </div>
     </td>
    </tr>
 </tbody></table>
  <table cellspacing=”1″ cellpadding=”0″ width=”140″ align=”center” class=”a2″ id=”table10″>
   <tbody>
    <tr align=”center” class=”a1″>
     <td height=”25″ align=”center” bgcolor=”#6381c1″ class=”menu_title” id=”menutitle1″ style=”cursor:hand” onclick=”showsubmenu(4)” onmouseover=”this.classname=menu_title2;”
      onmouseout=”this.classname=menu_title;”><span><span class=”style1″>其他相关产品</span>&nbsp;</span></td>
    </tr>
    <tr align=”center” class=”a3″>
     <td id=”submenu4″ style=”display: none”>
      <div class=”sec_menu” style=”width: 140px”>
       <table cellspacing=”0″ cellpadding=”0″ width=”90%” align=”center” id=”table11″>
        <tbody>
         <tr align=”center”>
          <td height=”20″>
           <a href=”admin_pic.asp?action=piccat” target=”main”>分类管理</a></td>
         </tr>
         <tr align=”center”>
          <td height=”20″>
           <a href=”admin_pic.asp?action=newpiccat” target=”main”>新增分类</a></td>
         </tr>
         <tr align=”center”>
          <td height=”20″>
           <a href=”admin_pic.asp?action=pic” target=”main”>图片管理</a></td>
         </tr>
         <tr align=”center”>
          <td height=”20″>
           <a href=”admin_pic.asp?action=newpic” target=”main”>新增图片</a>
          </td>
         </tr>
        </tbody></table>
      </div>
     </td>
    </tr>
   </tbody></table>
  &nbsp;
  

asp 动态二级菜单

<p>
              <%
set catrs = server.createobject(“adodb.recordset”)

catrssql = “select * from cn_category”

catrs.open catrssql,conn,1,1
tablenum=3
%>
              <% do while not catrs.eof %>
              <%
if not catrs.eof then     http://localhost/double/product.asp?subcategoryid=731
    response.write “<table cellspacing=1 cellpadding=0 width=140 align=center class=a2 id=table”&tablenum&”>”
 tablenum=tablenum+1
          response.write “<tbody>”
            response.write “<tr align=center class=a1>”
              response.write “<td width=140 height=25 align=center bgcolor=#6381c1 class=menu_title id=menutitle1 style=cursor:hand onclick=showsubmenu(“&tablenum&”) <span><span class=style1>”
      response.write “<a href=product.asp?categoryid=” & catrs(“id”) & “>” & catrs(“catename”) & “</a>”
      response.write catrs(“catename”)
      response.write”</span> </span></td>”
            response.write “</tr>”
            response.write “<tr align=center class=a3>”
              response.write “<td id=submenu”&tablenum&” style=display: none><div class=sec_menu style=width: 140px>”
                  response.write “<table cellspacing=0 cellpadding=0 width=90% align=center id=table”&tablenum&”>”
      tablenum=tablenum+1
                    response.write “<tbody>”
       set subrs = server.createobject(“adodb.recordset”)
                         subrssql = “select * from cn_subcategory where categoryid=”&catrs(“id”)
                        subrs.open subrssql,conn,1,1
      do while not subrs.eof
      if not subrs.eof then
                      response.write “<tr align=center>”
     
                        response.write “<td height=20><a target=main href=product.asp?subcategoryid=”&subrs(“id”)&”>”&subrs(“subcategory”)&”</a></td> ” 
      
                      response.write “</tr>”
        subrs.movenext 
       end if 
        loop
                     subrs.close()    
                    response.write “</tbody>”
                  response.write “</table>”
              response.write “</div></td>”
            response.write “</tr>”
         response.write ” </tbody>”
   response.write ” </table>”

    catrs.movenext  
end if 
%>
              <% loop
catrs.close()
 %>
            </p>