动态的二级伸缩式的菜单，asp编写（原创黑闪）

fjp813 fjp813 博客等级 墨衍会员 · AI 创作全网分发 墨衍智能分发 本文由作者通过墨衍一键同步至各平台 1分发平台 900+累计阅读 985平均单平台 已同步平台 优快云 微信公众号 微博 知乎 掘金 百家号 博客园 抖音 小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网 我也要 码龄23年
关注
原创 最新推荐文章于 2026-05-09 13:28:17 发布 985 阅读 AI 写同款· GEO 优化 ›
ASP二级分类联动菜单 A = request.Form("anclassid")B = request.Form("Nclassid")if request.Form("Submit")="提交" then   response.Write  "a="&A   response.Write  "b="&B   response.End()end if   dim countset rs=server.createobj 阅读详情

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

  <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
4 篇文章 0 人学习
订阅专栏 查看详情
标签
#asp #class #menu #table #stylesheet
#div
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
ASP.NET 制作简单的导航菜单 ASP.NET 制作简单的导航菜单 先放一张效果图 代码： <%@ Page Language=“C#” AutoEventWireup=“true” CodeFile=“Default.aspx.cs” Inherits="_Default" %> 导航 <asp:menu id="NavigationMenu" disap... 阅读详情

相关推荐

让菜单充满活力：ASP.NET根据角色动态分配菜单+权限

这次做图书馆维护系统，首先要解决的问题就是角色权限动态分配，权限分配直接体现就是菜单的动态分配。在此和大家分享一下心得。    大多数系统，都有多种类型的用户，不同的用户权限不同，某一个功能，A类用户是可见的，但是B类用户没有必要或者不应该看见这个功能，这就要涉及到功能的动态分配。要解决这个问题，当然要从数据下手，在学姐的指导下，有了如下的UML设计图： 解释一下： MemberTy

杨元的博客 1万+

ASP二级联动菜单制作

一个简单的二级联动菜单制作。用来点击省后显示相应的县市。         具体做法如下：         1.设计数据库         我们选用sql2000数据库。先建个数据库或者用已经有的数据库。然后在数据库中建立两个表分别为province、city。具体字段设计如下：         Province(省)         具体字段： id—自动编号 ProvinceName—

php菜鸟技术天地 3856

构建ASP动态联动下拉菜单

ASP（Active Server Pages）是一种服务器端脚本环境，用于创建动态交互式网页。由于其历史与发展、与HTML的紧密集成，以及与数据库的协同工作能力，ASP成为了开发动态网站和Web应用的流行选择。HTML（HyperText Markup Language）是构建Web页面的标准标记语言。它通过使用各种标签来定义页面内容的结构和布局，例如<html><head><body><div><span>等。

weixin_42388898的博客 1073

DW+ASP 玩转动态二级菜单

本人比较B，不懂得怎么样用视频来解决，只好用我这个让人糊里糊涂的话来写了。一般情况下这种情况是来对二级的目录有用，对于现在网站流传的JS好多种，但都无外乎那些令像我这样的菜鸟晕头转向的JS代码。。一下子for...一下子array的。废话少说，切入正题了。首先得建一个表，当然，如果你的表中就已经建好目录的话，那这一步可以省略了。但有一点要提醒：这个表是我这个例子的使用依据（不知道这样说对不对）。由

帅青蛙的窝 1199

JS+ASP二级联动菜单

JS+ASP二级联动菜单.txtJS+ASP二级联动菜单JS+ASP二级联动菜单JS+ASP二级联动菜单JS+ASP二级联动菜单

阿里云天池大数据长期赛：金融风控-贷款违约预测（含代码）

本次比赛让自己在大数据的处理流程上有了更明确的认知，从数据清洗、特征工程、数据建模，每一个过程都能学到很多经验和知识，值得去历练。

weixin_46685991的博客 1万+

ASP二级联运菜单

用的表是ACCESS的，所以建表就不说了，只列出这个两个表的相应的字段名（数据库名：db.mdb）：表名：type_tree ——父类字段：type_id（自动编号） type_name（类别名称）表名：s_type   ——子类字段：id（自动编号） s_name（子类别名称） type_id（父类ID）——与父类表相对应现在是建立数据库连接：Dim conn, connStrSet con

timz1的专栏 643

GAMES101：MacOS作业环境搭建

查看gcc/clang的位置产看gcc/clang的版本1.1.2 安装cmake。

weixin_38844255的博客 715

asp动态树菜单集合(2/3)

<!--google_ad_client = "pub-4490194096475053";/* 内容页,300x250,第一屏 */google_ad_slot = "3685991503";google_ad_width = 300;google_ad_height = 250;//--><script type="text/javascript"src="

管子（zero）的杂乱空间 1741

方差迭代计算公式

方差迭代计算过程推导术语约定递推公式过程推导 术语约定 (1)En=1n∑i=1nxi E_n =\frac{1}{n} \sum_{i=1}^{n}x_i \tag{1} En​=n1​i=1∑n​xi​(1) (2)F(n)=∑i=1n(x2−En) F(n) = \sum_{i=1}^{n}{(x^2-E_n)} \tag{2} F(n)=i=1∑n​(x2−En​)(2) (3)V(n)...

weixin_44479136的博客 7921

光模块的封装工艺有哪些？

COB封装传统的单路10Gb/s或25Gb/s速率的光模块采用SFP封装将电芯片和TO封装的光收发组件焊接到PCB板上组成光模块。但对于40G及以上速率的高速光模块，受激光器速率限制(多为25G)，主要通过多通道并行实现，如40G由4×10G实现，而100G则由4×25G实现。蝶形封装：壳体通常为长方体，结构及实现功能通常比较复杂，可以内置制冷器、热沉、陶瓷基块、芯片、热敏电阻、背光监控，并且可以支持所有以上部件的键合引线。BOX封装属于蝶形封装的一种，用于多通道并行封装。

WaytoICT- Explore ICT Technology, Build Your Tech Path 3806

ASP.NET中不定级动态菜单的实现

 http://www.wrclub.net/study/listarticle.aspx?id=2617ASP.NET中不定级动态菜单的实现责任编辑：fuxing [网人帝国]   添加时间：2004-9-2 9:48:11  人气：2532 【大 中 小】　　前日，根据客户需要，要根据如下的表动态生成如下的菜单：表中的数据是动态更新的。　　我们平时IEW

徐虎的专栏 1259

Altium Designer 超详细入门教程

本文是一份Altium Designer新手入门教程，详细介绍了从软件基础到PCB制版的全流程。主要内容包括：软件界面介绍与工程创建方法；原理图设计中的元件放置、电气连线、标注添加等操作；PCB设计的布局布线、铺铜和DRC检查；Gerber和钻孔文件的导出方法。教程还提供了分类整理的实用快捷键表和新手避坑指南，强调原理图编译和DRC检查的重要性。通过本教程，新手可以快速掌握AD基本操作，完成简单电路板的设计与制版文件导出。

学习中...... 818

asp动态树菜单集合(1/3)

二级树菜单,可以同时打开多个子菜单 如下类型 数据库结构如下: 为了方便全部程序的调试,有多余字段,使用时请删除多余字段. bigclass表 bigclassid bigclassname smallclass表 smallclassname,smallclassid,bigclassid,bigclassname &lt;!--#includefile="inc/c...

web开发自学 108

5.4 GTT BO的内存分配分析

本文分析了AMD GPU驱动中的GTT技术实现。GTT作为GPU页表，负责管理主机内存与GPU虚拟地址的映射，支持大容量内存访问和统一寻址。文章详细介绍了GTT的核心数据结构amdgpu_gtt_mgr、初始化流程，以及BO(Buffer Object)创建时GTT区间的分配与释放机制。GTT管理通过TTM框架实现分层设计，提供内存统计、兼容性检查等接口，并支持动态迁移、多进程隔离等高级特性。该机制为AMD GPU提供了高效灵活的内存管理基础。

图形/计算GPU的驱动与虚拟化技术分享园地 3728

姿态传感器/陀螺仪之IIS2DLPC 应用驱动程序设计

* 转换为°C单位 (参考温度为25°C，灵敏度为16 LSB/°C) */

corlin6688的博客 219

ASP.NET CORE MVC动态生成左侧菜单栏

因为自己的一个小项目中需要动态的去构建任务栏，上网查询得到了以下的处理方式：

mwcxz的博客 2656

OV9734 DATASHEET，完整规格书

OV9734完整规格书，包括电气参数，尺寸规格，寄存器配置表等

asp树形菜单

假设菜单页为left.asp，产品页为product.aspleft.asp源码如下：table width="100%"  border="0" cellspacing="0" cellpadding="0">%sql="select * from class1 order by Class1Id asc" 读出大类set sortRootRs=conn.execute (sql)

lxs5i5j的专栏 3092

NTscan扫描工具

ntscan是一个扫描器，可以扫描没有密码和弱密码的共享，先到配置文件中填写猜测的用户名和密码，扫描过程中右侧出现的是扫描日志。

温度PID控制PLC程序

温度PID稳定控制程序，适用于欧姆龙PLC，对其他PLC也具有很大参考价值

ASP.NET2.0 菜单控件menu的动态静态用法

利用 ASP.NET Menu 控件，可以开发 ASP.NET 网页的静态和动态显示菜单。您可以在 Menu 控件中直接配置其内容，也可通过将该控件绑定到数据源的方式来指定其内容。无需编写任何代码，便可控制 ASP.NET Menu 控件的外观、方向和内容。除该控件公开的可视属性外，该控件还支持 ASP.NET 控件外观和主题。有关外观和主题的更多信息，请参见 ASP.NET 主题和外观概述。

千寻的专栏 3429

jdk-8u144-linux-x64.tar.gz.

该资源为搭建Linux系统Java环境用，资源的后缀为tar.gz格式的压缩包

asp.net 动态纵向菜单

 using System;using System.Data;using System.Configuration;using System.Collections;using System.Web;using System.Web.Security;using System.Web.UI;using System.Web.UI.WebControls;using

楚人子游的专栏 2075

DW制做动态二级关联菜单

DW制做动态二级关联菜单 一。在head里放入下面的代码父表：id, 厂区，厂区代号 子表，ID， 部门，厂区代号 1 A厂 1 1 PMC ...

conglei5110的博客 682
上一篇： ADO.NET 数据库实例教程C#版（黑闪原创）（一）
下一篇： C#异常处理机制 (黑闪)
点赞 0
评论 0
书签 书签 0
fjp813
fjp813
博客等级 码龄23年 4粉丝 97原创
+ 关注 专栏目录 订阅专栏
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值