动态的二级伸缩式的菜单,asp编写(原创黑闪)

原创 2005年03月03日 09:04:00
  <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>

ASP二级联动下拉菜单

ASP+JavaScript+数据库 级联下拉菜单 ***********************************ASP+JavaScript+数...
  • flynetcn
  • flynetcn
  • 2006年07月26日 17:33
  • 17158

html用js实现导航栏的二级菜单,自动伸缩。。。

效果图::、 代码如下:: 动画菜单 * { margin: 0; padding: 0; font-size: 14px; } a { color: #3...
  • ITzhongzi
  • ITzhongzi
  • 2016年07月12日 16:09
  • 4844

二级联动菜单——ASP+数据库版

var j; j=0; goaler = new Array();
  • haibo0668
  • haibo0668
  • 2016年06月02日 12:47
  • 396

使用javascript实现二级联动菜单

关于使用javascript实现二级联动菜单的探讨
  • u011526599
  • u011526599
  • 2016年05月07日 23:43
  • 6062

ASP动态网站防止被人黑的方法

对待ASP网站的攻击,黑客一般会使用ASP木马如海洋顶端ASP木马进行入侵。其实我们只要采取一定的措施就能够有效预防ASP网站被入侵事件的发生。本文重点讨论ASP网站如何防御ASP木马。文中案例所使用...
  • yanjiaye520
  • yanjiaye520
  • 2009年10月08日 23:07
  • 1992

javascript 二级动态下拉菜单选项

                var onecount2;subcat2 = new Array();onecount2=45;subcat2[0] = new Array("001001","00...
  • fhx007
  • fhx007
  • 2007年12月01日 19:42
  • 1812

asp.net二级菜单导航 实例

.aspx代码如下: $(document).ready(function () { $("a.m0").mouse...
  • yayun0516
  • yayun0516
  • 2014年12月08日 22:07
  • 2504

动态插入子菜单(ID不定)(MFC)

Windows 应 用 程 序 的 菜 单 可 以 分 成 两 大 类: 程 序 窗口 上 方 菜 单 条 上 的 下 拉 式 菜 单 和 可 以 在 任 意 位 置 显 示 的 弹 出 式 菜 单。...
  • yhmhappy2006
  • yhmhappy2006
  • 2006年10月07日 00:33
  • 3478

ASP二级联运菜单

用的表是ACCESS的,所以建表就不说了,只列出这个两个表的相应的字段名(数据库名:db.mdb):表名:type_tree ——父类字段:type_id(自动编号) type_name(类别名称)表...
  • timz1
  • timz1
  • 2009年08月30日 14:04
  • 270

asp.net 连数据库动态生成menu中的菜单项

第一步 建表create table TreeTest( id int identity(1,1) primary key , treeId int,  --数形结构 1,代表根目录 2,代表根的下一...
  • liusen5555
  • liusen5555
  • 2007年09月10日 16:02
  • 5226
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:动态的二级伸缩式的菜单,asp编写(原创黑闪)
举报原因:
原因补充:

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