无限级分类

最新推荐文章于 2024-09-29 21:50:07 发布
最新推荐文章于 2024-09-29 21:50:07 发布
阅读量916 收藏
点赞数
文章标签： border action input sql function xhtml

表名：MenuTree
字段
M_ID   自增
M_Name  文本
Childid   目前只是文本，长度250，也可设为备注，存储子类ID，多个ID以逗号分隔
Depth   类别深度，用于控制类别层次，也可以据此生成数组
=======================================
文件名：Conn.asp
=======================================
<%
    On Error Resume Next 
 Dim Conn
 Set Conn = Server.CreateObject("ADODB.Connection")
 Conn.connectionstring="Provider=Microsoft.JET.OLEDB.4.0;Data Source="&Server.MapPath("MenuTree.mdb")&""
 Conn.open()
 IF Err then
 Err.Clear
 Set Conn=nothing
 Response.Write "数据库链接失败"
 Response.End()
 End IF
 
 Function Closeconn()
  IF isobject(Conn) then
  Conn.close:Set Conn=nothing
  End IF
 End Function
%>
========================================
文件名：MenuTree.asp
目前实现到显示，添加
========================================
<!--#include file="Conn.asp"-->
<!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" />
<meta name="keywords" content="ASP无限级分类" />
<meta name="description" content="ASP无限级分类,2006-9-18" />
<meta name="Author" content="江生华">
<title>ASP无限级分类</title>
<style>
<!--
body{font-size:12px;color:#333333;line-height:20px;}
A{font-size:12px;color:#333333;text-decoration:underline;}
A:hover{font-size:12px;color:FF6600;text-decoration:underline}
#MenuList{border:1px solid #CCCCCC;background-color:#FFFFFF;margin:auto;Padding:0px;width:700px;height:30px;line-height:30px;}
#Menu{border:1px solid #EEEEEE;background-color:#F5F5F5;margin:auto;Padding:0px;width:60px;}
#Form{border:1px solid #CCCCCC;background-color:#F5F5F5;margin:auto;Padding-top:5px;Padding-bottom:5px;width:700px;height:20px;line-height:25px; text-align:center;}
input{border:1px solid #CCCCCC;background-color:#EEEEEE;}
#UL{margin:auto;padding:0px;width:100%;height:25px;line-height:25px;}
#LI{ list-style-type:none;}
#L_LI{margin:auto;height:25px;line-height:25px;width:82%;clear:right;float:left;text-align:left;}
#R_LI{margin:auto;height:25px;line-height:25px;width:18%;clear:right;float:left;text-align:right;}
-->
</style>
<script>
function check(){
 if(document.form.catename.value.length<1)
 {
 alert("乖，填了父类名称我就让你提交！！");
 document.form.catename.focus();
 return false
 }
}
</script>
</head>
<body>
<%
 Dim Starttime,Endtime
 Starttime=timer()
 Sub Children(str)
 IF Isnull(str) Then Exit Sub
  Dim Crs,Csql
  Set Crs=Server.CreateObject("ADODB.Recordset")
  Csql="Select * From MenuTree where M_ID in ("&str&")"   '使用in的话字段Childid的值必须是以逗号作分割符，否则需split
  Crs.open Csql,conn,1
  IF Not Crs.Eof Then
  Dim MenuList:MenuList=Crs.Getrows()
  Crs.Close:Set Crs=Nothing
  End IF
  For i=0 to Ubound(MenuList,2)
      Response.Write "<UL ID='UL' OnMouseOut=""this.style.backgroundColor=''"" OnMouseOver=""this.style.backgroundColor='#EEEEEE';"">"
   Response.Write "<LI ID='L_LI'>"
   For j=0 to MenuList(3,i)       '通过深度来调整缩进距离，以求层次分明而且美观
   Response.Write "&nbsp;&nbsp;&nbsp;"
   Next
   Response.Write "|---"&MenuList(1,i)&"</LI>"
   Response.Write "<LI ID='R_LI'><a href='?Action=Add&Parentid="&MenuList(0,i)&"'>添加</a>　<a href='Modi.asp?Parentid="&MenuList(0,i)&"'>修改</a>　<a href='Del.asp?Parentid="&MenuList(0,i)&"' οnclick=""return confirm('你确定要删除吗？');"">删除</a>&nbsp;</LI>"
   Response.Write "</UL>"
   IF Not Isnull(MenuList(2,i)) then
   Call Children(MenuList(2,i))
   End IF
  Next
 End Sub
 
 IF Request("Action")="Save" Then
     Dim Menuname:Menuname=Trim(Request.Form("catename"))
  Dim Parentid:Parentid=Request.QueryString("Parentid")
  IF Menuname="" Then
  Response.Write "<script>alert('您没有填写类别名称');history.go(-1)</script>"
  Response.End()
  Else
  Menuname=Replace(Menuname,"'","")
  End IF
  IF Parentid="" Then
  Conn.Execute("Insert into MenuTree(M_Name) values ('"&Menuname&"')")
  Else
   IF Not Isnumeric(Parentid) Then
   Response.Write ("<script>alert('父类ID不是数字');history.go(-1)</script>")
   Response.End()
   Else
   Dim MaxDepth,MaxID
   MaxDepth=Conn.Execute("Select Depth From MenuTree where M_ID="&Parentid&"")(0)+1   '取深度
   Conn.Execute("Insert into MenuTree(M_Name,Depth) values ('"&Menuname&"',"&MaxDepth&")")  
   Dim Ssql:Ssql="Select Max(M_ID) as a From MenuTree"
   Dim Srs
   Set Srs=Conn.Execute(Ssql)
   MaxID=Srs("a")               '取得当前最大M_ID
   Srs.close:Set Srs=Nothing
   Dim Msql,Mrs
   Msql="Select * From MenuTree where M_ID="&Parentid&""
   Set Mrs=Server.CreateObject("ADODB.Recordset")
   Mrs.open Msql,Conn,1,3
    IF Isnull(Mrs("Childid")) Then         '录入子类M_ID
    Mrs("Childid")=MaxID
    Else
    Mrs("Childid")=Mrs("Childid")&","&MaxID
    End IF
   Mrs.update
   End IF 
  End IF
  Response.Redirect "MenuTree.asp"
 End IF
%>
   <DIV ID="Form"><a href="?Action=Add" _fcksavedurl=""?Action=Add"" style="font-weight:bold;color:#FF6600">我要添加父类</a></DIV>
   <BR/>
   <DIV id="MenuList">
<%
 '=================================================
 '******************开始显示类别*******************
 '=================================================
 Dim Rs
 Set Rs=Server.CreateObject("ADODB.Recordset")
 Rs.open "Select * From MenuTree where Depth=0",Conn,1
 IF Rs.Eof Then
 Response.Write "<span style='color:#FF6600;font-weight:bold;'>·暂时还没有任何分类,我要<a href='?Action=Add'>添加</a></span>"
 Else
 Do While Not Rs.Eof
 Response.Write "<UL ID='UL' OnMouseOut=""this.style.backgroundColor=''"" OnMouseOver=""this.style.backgroundColor='#EEEEEE';"">"
 Response.Write "<LI ID='L_LI'>"
 Response.Write "|--"&Rs(1)&""
 Response.Write "</LI><LI ID='R_LI'><a href='?Action=Add&Parentid="&Rs(0)&"'>添加</a>　<a href='Modi.asp?Parentid="&Rs(0)&"'>修改</a>　<a href='Del.asp?Parentid="&Rs(0)&"' οnclick=""return confirm('你确定要删除吗？');"">删除</a>&nbsp;</LI></UL>"
  IF Not Isnull(Rs(2)) Then
  Call Children(Rs(2))
  End IF
 Rs.Movenext()
 Loop
 End IF
 Rs.Close:Set Rs=Nothing
 Closeconn
 '=================================================
 '******************结束显示类别*******************
 '=================================================
%>
</DIV>
    <BR/>
<%
IF Request("Action")="Add" Then
%>
    <DIV id="Form">
 <Form name="form" action="?Action=Save&Parentid=<%=Request("Parentid")%>" method="post" οnsubmit="return check()" style="margin:0px;">
 请填写父类名称：<input type="text" name="catename" size="30">　　　<input type="submit" value="提　交" name="submit">
 </Form>
 </DIV>
<%
End IF
Endtime=timer()
%>
<DIV align="center">本页耗时<%=Formatnumber((Endtime-Starttime)*1000,2)%>MS</DIV>
</body>
</html>
=================================================
文件名：Modi.asp,修改，可以任意调整类别的位置
=================================================
<!--#include file="Conn.asp"-->
<%
'=============保存修改
IF Request("Action")="Save" Then
Dim Parentid
Parentid=request.QueryString("Parentid")
IF Parentid="" or Not Isnumeric(Parentid) Then
Response.Write "非法参数"
Response.End()
End IF
Dim Parent,Catename
Parent=Request.Form("Parent")
Catename=Trim(Request.Form("catename"))
IF Catename="" Then
Response.Write "类别名称不能为空"
Response.End()
End IF
IF Parent=Parentid Then
Response.Write "不能将当前类别作为自己的父类"
Response.End()
End IF
IF Parent<>"" Then
 Rem 开始删除原父类
 Sql2="Select * From MenuTree where instr(Childid,"&Parentid&")<>0"
 Set Rs2=Server.CreateObject("ADODB.Recordset")
 Rs2.open Sql2,Conn,1,3
 IF Not Rs2.Eof Then
  IF Instr(Rs2(2),",")<>0 Then
   IF Right(Rs2(2),Len(Parentid))=Parentid Then
   Rs2(2)=Replace(Rs2(2),","&Parentid,"")
   Else
   Rs2(2)=Replace(Rs2(2),Parentid&",","")
   End IF
  Else
   Rs2(2)=Null
  End IF
 Rs2.Update
 End IF
 Rs2.Close:Set Rs2=Nothing
 Rem 设置新的父类
 Sql3="Select * From MenuTree where M_ID="&Parent
 Set Rs3=Server.CreateObject("ADODB.Recordset")
 Rs3.open Sql3,Conn,1,3
 IF Not Rs3.Eof Then
  IF Not Isnull(Rs3(2)) Then
  Rs3(2)=Rs3(2)&","&Parentid
  Else
  Rs3(2)=Parentid
  End IF
 Rs3.Update
 Layer=Rs3(3)
 Rs3.Close:Set Rs3=Nothing
 End IF
 Conn.Execute("Update MenuTree Set M_Name='"&Catename&"',Depth="&Layer&"+1 where M_ID="&Parentid&"")
Else
Conn.Execute("Update MenuTree Set M_Name='"&Catename&"' where M_ID="&Parentid&"")
End IF
Response.Write "<script>alert('修改成功！');location.href='MenuTree.asp'</script>"
End IF
'=================结束保存
Parentid=request.QueryString("Parentid")
IF Parentid="" or Not Isnumeric(Parentid) Then
Response.Write "非法参数"
Response.End()
End IF
Dim Rs,Sql
Sql="Select * From MenuTree where M_ID="&Parentid
Set Rs=Conn.Execute(Sql)
IF Rs.Eof Then
Response.Write "对不起，找不到指定记录"
Response.End()
Else
Depth=Rs(3)
Set Prs=Conn.Execute("Select M_ID From MenuTree where instr(Childid,"&Parentid&")<>0")
IF Not Prs.Eof Then
P_ID=Prs("M_ID")
Prs.close:Set Prs=Nothing
End IF
%>
<!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" />
<meta name="keywords" content="ASP无限级分类" />
<meta name="description" content="ASP无限级分类,2006-9-18" />
<meta name="Author" content="江生华">
<title>ASP无限级分类</title>
<style>
<!--
body{font-size:12px;color:#333333;line-height:20px;}
input{border:1px solid #CCCCCC;background-color:#EEEEEE;}
#Form{border:1px solid #CCCCCC;background-color:#F5F5F5;margin:auto;Padding-top:5px;Padding-bottom:5px;width:700px;height:20px;line-height:25px; text-align:center;}
-->
</style>
<script>
function check(){
 <%IF Rs(3)<>0 Then%>
 if(document.form.Parent.value=="")
 {
 alert("必须选择父类");
 document.form.Parent.focus();
 return false
 }
 <%End IF%>
 if(document.form.catename.value.length<1)
 {
 alert("乖，填了父类名称我就让你提交！！");
 document.form.catename.focus();
 return false
 }
}
</script>
</head>
<body>
    <DIV id="Form">
 <Form name="form" action="?Action=Save&Parentid=<%=Request("Parentid")%>" method="post" οnsubmit="return check()" style="margin:0px;">
 <%IF Rs(3)<>0 Then%>
 父类：<select name="Parent">
 <%
 Sub Children(str)
 IF Isnull(str) Then Exit Sub
  Dim Crs,Csql
  Set Crs=Server.CreateObject("ADODB.Recordset")
  Csql="Select * From MenuTree where M_ID in ("&str&")"  
  '使用in的话字段Childid的值必须是以逗号作分割符，否则需split或Replace
  Crs.open Csql,conn,1
  IF Not Crs.Eof Then
  Dim MenuList:MenuList=Crs.Getrows()
  Crs.Close:Set Crs=Nothing
  End IF
  For i=0 to Ubound(MenuList,2)
      Response.Write "<option value='"&MenuList(0,i)&"'"
   IF MenuList(0,i)=P_ID Then
   Response.Write " Selected"
   End IF
   Response.Write ">"
   For j=0 to MenuList(3,i)       '通过深度来调整缩进距离，以求层次分明而且美观
   Response.Write "　　"
   Next
   Response.Write "|---"&MenuList(1,i)&"<option>"
   IF Not Isnull(MenuList(2,i)) then
   Call Children(MenuList(2,i))
   End IF
  Next
 End Sub
 Dim Rs1
 Set Rs1=Server.CreateObject("ADODB.Recordset")
 Rs1.open "Select * From MenuTree where Depth=0",Conn,1
 IF Not Rs1.Eof Then
 Do While Not Rs1.Eof
 Response.Write "<option value='"&Rs1(0)&"'>|--"&Rs1(1)&"<option>"
  IF Not Isnull(Rs1(2)) Then
  Call Children(Rs1(2))
  End IF
 Rs1.Movenext()
 Loop
 End IF
 Rs1.Close:Set Rs1=Nothing
 %>
 </select>
 <%End IF%>　
 类名称：
 <input type="text" name="catename" size="20" value="<%=Rs(1)%>">　　　
 <input type="submit" value="提　交" name="submit">
 </Form>
 </DIV>
<%
Rs.close
Set Rs=Nothing
End IF
Closeconn
%>
</body>
</html>
======================================================
文件名：Del.asp，删除类别
======================================================
<!--#include file="Conn.asp"-->
<%
Parentid=request.QueryString("Parentid")
IF Parentid="" or Not Isnumeric(Parentid) Then
Response.Write "非法参数"
Response.End()
End IF
Sql="Select * From MenuTree where M_ID="&Parentid
Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,3
IF Rs.Eof Then
Response.Write "对不起，找不到指定记录"
Response.End()
Else
 Set Prs=Server.CreateObject("ADODB.Recordset")
 Psql="Select * From MenuTree where instr(Childid,"&Parentid&")<>0"
 Prs.open Psql,Conn,1,3
 IF Not Prs.Eof Then
     IF Instr(Prs(2),",")<>0 Then
   IF Right(Prs(2),Len(Parentid))=Parentid Then
   Prs(2)=Replace(Prs(2),","&Parentid,"")
   Else
   Prs(2)=Replace(Prs(2),Parentid&",","")
   End IF
  Else
   Prs(2)=Null
  End IF
 Prs.Update
 Prs.close:Set Prs=Nothing
 End IF
 IF Trim(Rs(2))<>"" Then
 Conn.Execute("Delete * From MenuTree where M_ID in ("&Rs(2)&")")
 End IF
Rs.Delete
Rs.close:Set Rs=Nothing
End IF
Closeconn
Response.Write "<script>alert('删除成功！');location.href='MenuTree.asp'</script>"
%>

h8868
关注
java无限级分类详,无限级分类的简单实现
weixin_28267011的博客
03-13 772
引子作为菜鸟的我面试过程中总是会被虐的体无完肤，即使知道是怎么一回事，但由于没有彻底掌握住，还是在关键时刻无法及时运用。所以多总结应该是我现在时常要做的事。遇到的这个机试题就是关于无限级分类的知识。无限级分类在项目中运用是比较平常的，逻辑也不会太难理解：一个父级下面包含多个子级。题目是这样的：点击下拉框选择，输入名称，添加，到对应的层级中。然后还要可以删除。实现大概效果图如下：图1图2实现1、数据...
php实现无限级分类
你会后悔吗的博客
03-31 3256
无限级分类在我们开发过程中应该是经常遇到的，今天记录下自己通过引用传值的方式来实现无限级分类； 首先是数据表的设计，除了id(主键)，name(分类名称)之外我们还需要一个字段pid(用来记录当前数据的父级id，默认第一级分类pid=0)，怎么建表我这里就不多叙述啦。 处理数据，我们查出来的数据类似于下边这样 $array = array( array('id' =&g...
js递归实现无限极ul分类
tdl081071tdy的博客
06-11 1299
<!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <meta name="viewport" content="width=device-width, initial-scale=1.0"> <meta http-equiv="X-...
无限级分类树型菜单
你是自己设计的产品
05-09 1037
环境:ASP+ACCESS   //----------List表定义  Create  Table  List(ID  AUTOINCREMENT,ParentID  long,Title  Text(50),Url  Text(50),Flag  bit,ChildNum  Long,Target  Text(10))---------------------------->bo
ASP+ACCESS实现的无限级目录树
KanJing—程序中心
04-29 1144
下载地址：http://www.knowsky.com/download/treemenu.rar关键代码：set conn=server.createobject("ADODB.CONNECTION")connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)
php无限级分类实现,php用递归方法实现无限级分类
weixin_35710941的博客
03-25 601
相信很多小伙伴们在学PHP的时候都会想制作一个网站来提高自己的技术，像是企业网站，商城网站这种他们个最近的功能，栏目的管理，用到的都是无限级分类的方法，我们接下来就会通过对无限级分类技术的学习来探究其深层的实现逻辑。什么是无限级分类？无限级分类是一种分类技巧，例如部门组织，文章分类，学科分类等常用到无限级分类，将其简单理解成分类就好了。其实我们仔细想一下，生活中的分类简直太多了，衣服可以分为男装和...
java无限级分类_java简单的无限极分类
weixin_39785150的博客
02-12 866
这是一个比较简单的无限极分类，适用于各种编程语言。这个原理是 一次性把数据库所有分类读取出来之后再根据pid来排序。比较简单，好理解。publicstaticListcates;privatestaticListtmpCates=newArrayList();publicstaticvoidmain(String[]args){init();ListcList=t...
java无限级分类_无限级分类设计
weixin_39969448的博客
02-16 183
评论#re: 无限级分类设计2005-08-18 09:51hope老大能不能说说怎么有数据库声称xml呢 给各类 让我学习学习好么？还有个问题 我用xml树发现刷新有点问题 就是我选择一个节点显示页面 然后进行数据提交或者更新什么的 然后去别的页面 最后通过节点回来发现 页面没有刷新 也就是没有显示更新过的数据 这个怎么解决阿回复更多评论#re: 无限级分类设计2005-08-18 ...
详解Vue2 无限级分类(添加,删除,修改)
08-31
Vue2 无限级分类详解 Vue.js 是一个流行的前端框架，用于构建用户界面。无限级分类是指可以无限次添加、删除、修改分类的功能。本文将详细介绍如何使用 Vue2 实现无限级分类。 标题解释 "详解Vue2 无限级分类(添加...
php 无限级分类 获取顶级分类ID
12-17
在IT行业中，数据库设计经常会遇到无限级分类的问题，特别是在电商、博客系统等需要层次结构的场景。例如，商品分类、文章目录等。无限级分类允许我们构建任意深度的树状结构，但随之而来的是如何有效地查询顶级分类...
BootStrap无限级分类(无限极分类封装版)
09-01
Bootstrap无限级分类是一种在网页设计中实现层级结构数据展示的技术，尤其适用于导航菜单、地区选择、组织架构等场景。在Bootstrap框架中，无限级分类通常借助JavaScript库（如jQuery）来实现动态加载和交互。 在给...
winform树形菜单无限级分类实例
09-05
本实例主要展示了如何在Winform中实现一个无限级分类的树形菜单，这通常涉及到递归和委托等编程概念。 首先，我们来看第一部分的功能，即创建树形菜单。在这个实例中，`AddTree` 方法是关键，它通过递归实现了树形...
php+mysql实现无限级分类
10-23
在实现无限级分类的核心逻辑中，需要编写基础函数来递归或通过LIKE查询获取所有分类数据，并返回一个排序后的分类数组。这里提供一个使用递归实现的函数`ReadClass`： ```php function ReadClass($datatable, $...
无刷新实现无限级联动菜单(转贴)
Wish神思者的专栏
12-15 1409
简介：此文发表由冰河原创的：无刷新实现无限级联动菜单，由XMHTTP,JAVASCRIPT,ASP实现，看分为三个部分，文件 index.htm、文件 server.asp、 数据库 data.mdb代码就数据库文档如下：index.htm**************************************************使用说明及注意事项:假如有N级边动菜单.j
带线的无限级下拉树列表-完整示例篇
weixin_33852020的博客
12-27 175
前言： 今天在群里有人问起了我一个比较远古的问题：带线的无限级下拉树列表他运行不起来。最关键的又扯上了CYQ.Data 框架，让我一时觉得比较悬，因为文章是08年时写的，而框架最今年才发力完善的，所以两者应该是没啥联系的，不过这一问也好，给了我一个写此文章的机会。ps：他把示例的其它代码当成是 CYQ.Data 框架 里的代码。     本文将对之前的代码进行小小的简化，并为之建立一个...
Linux云计算 |【第四阶段】NOSQL-DAY2
小安的运维专栏
09-26 1183
Redis集群概述、部署Redis集群（配置manage管理集群主机、创建集群、访问集群、添加节点、移除节点）
PostgreSQL的表碎片
最新发布
文牧之的博客
09-29 482
表碎片化是指表数据在文件系统中的不连续存储，导致读取和写入操作的效率降低。频繁的插入和删除：导致数据块中出现“空洞”。更新操作：由于 PostgreSQL 的 MVCC（多版本并发控制）机制，更新操作会生成新的行版本，原来的空间会被标记为可重用但是不立即回收。
PHP递归实现无限级分类详解与实例
无限级分类，顾名思义，是指分类层级不限，能够展现出树状结构，比如部门、文章类别或学术学科等。它的核心在于数据库设计，尤其是使用两个关键字段：id（标识当前分类）和pid（父ID，用于关联子分类）。通过这两个...
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值