关于无限级树的生成问题？？请求帮助！谢之~~~

2004-03-23 09:08:36 85 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Python实现无限级分类 1.什么是无限级分类？顾名思义，就是一级接一级的无限制分级。其实简单点说就是一个人类可以繁衍出多个后代，然后一个后代又可以分另外多个后代这样无限繁衍下去（举例：家族族谱），就好象linux系统你可以新建一个文件夹，然后在这个文件夹里又可以建一些个文件夹，在文件夹底下还可以建一些文件夹一样，随后使用tree命令就可以查看文件夹目录层级。那么这种层级结构也成为树结构在日常的开发需求里也是很常见的，比如淘宝商城系统的商品分类，课程的目录章节，以及论坛里的帖子回复等等好了，话不多说，上代码（我们以工单系统为例阅读详情

树的节点内容都是管理员添加上去的，
但是没有分配关系。

现在就是要去生成这样的一棵无限级的树，可是不知道怎么去建这样的树，平常的方法都是最好第一层的节点的内容，然后去管理节点下一层的，下一层还有下一层的节点内容。现在不是这样，方式就像玩拼图，拼图的小板块都有了，要看怎么去拼这棵树？？

不知道说清楚了没有？请能帮忙的多多指教！谢先！

提供思路也可以！

...全文

Oracle集群管理-19.3升级19.18 opatchauto总结（java报错，resume oneoffs缺失目录） t. （那个认为补丁已经打上了，但是oneoffs目录里面没有。将安装包文件的权限全部改成777.就继续执行了上述命令，此时使用opatch lsinv也是报错，在正常执行opatchauto apply。1 创建目录，存放补丁包，并赋予权限。于是使用如下命令对补丁进行回滚。阅读详情

xyz1202

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

xyz1202 2004-03-25

打赏
举报

还别说，我就是搜了好多贴子，也看了好多贴子。总觉得似乎缺少什么，呵呵！
阿信的树，我去他的网站一直都不知道怎么down不了。狼兄台的树确实也不错，
可能是因为没有时间去深入理解的缘故吧。

alan815 2004-03-25

打赏
举报

也可以去看看狼兄的树，和传统方法有很大不同哦，存储上冗余一些信息，然后避免了递归。在CSDN里搜树，能搜到N多，去年几位斑竹还关于树讨论了一番。你应该还能搜到那个帖子的。呵呵

possible_Y 2004-03-25

打赏
举报

比较常用的方法:

数据库中有id 和 parent_id字段
然后递归遍历

建议在每一次更改树后,递归遍历一次数据库然后生成一个静态的页面,浏览时浏览生成好的静态页面
必尽递归遍历效率不高

xyz1202 2004-03-25

打赏
举报

唉！

xyz1202 2004-03-24

打赏
举报

发短信？哈哈，别人还以为是骚扰短信呢，我才不干咧~~~

其实我要的不是怎么去实现一棵树或者是弄出一个象csdn的左边的那种东西

我觉得最主要的是数据库设计，或者说是数据结构吧。程序开发总是要跟着数据库设计走的，怎么才能才能生成一个好的树，关键是数据库设计或者说是这种设计的思路。

是吧？

虽然现在有（如何建树的）思路了，但是不知道数据库设计和开发上会不会碰到问题。

大家可以提提意见。

zorou_fatal 2004-03-23

打赏
举报

发短信问问阿信.

贤小二AI 2004-03-23

打赏
举报

ASP无限级分类实现源码
http://www.wrclub.net/study/listarticle.aspx?id=1989

<%
'程序的核心是一个数组,显示的结果只是比较常见的两种情况,只读取了一次数据库
Dim LID,CID,TID,OID,Tmp,Url,Bof,Eof,i,ReadSQL,PgNum,PgSiz,Arr,reID,AllRs,LinkStr,ReadPgSiz,ReadPgNum,ReadAllFd,ReadAllPg,ReadAllRs,ReadRsNum
Db = "test.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
Set NET = New Class_NET

Class Class_NET
function Read(ReadSQL,PgNum,PgSiz)
ReadSQL =(Replace(ReadSQL,"'",""))
ReadPgSiz=Int(PgSiz)
ReadPgNum=Int(PgNum)
Set ReadRs= Server.CreateObject("ADODB.Recordset")
ReadRs.open ReadSQL,conn,1,1
ReadRs.PageSize =ReadPgSiz
ReadAllFd =ReadRs.Fields.Count
ReadAllPg =ReadRs.PageCount
ReadAllRs =ReadRs.RecordCount
ReadRsNum =ReadRs.Absoluteposition
If int(ReadPgNum)>Int(ReadAllPg) or int(ReadPgNum)=0 Then ReadPgNum=1
ReadRs.absolutepage=ReadPgNum
'返回实际的页面记录条数
If int(ReadPgNum)=Int(ReadAllPg) Then ReadPgSiz=ReadAllRs-ReadPgSiz*(ReadAllPg-1)
'数组开始
reDim ReadRsArr(ReadAllFd-1,ReadPgSiz-1)
For ReadArrRs = 0 to ReadPgSiz-1
If ReadRs.Eof Then Exit For
For ReadArrFd = 0 to ReadAllFd-1
ReadRsArr(ReadArrFd,ReadArrRs)=ReadRs(ReadArrFd)
Next
ReadRs.MoveNext
Next
Read=ReadRsArr
End function
'=====================================================
function ClassPath(Arr,reID,AllRs,Url,LinkStr)
Tmp=Null
reID=Int(reID)
If reID=0 Then Exit function
For i=0 to AllRs-1
If int(Arr(5,i))=int(reID) Then
OID=Arr(0,i)
LID=Arr(1,i)
Exit For
End If
Next
For i=i to 0 step -1
If Arr(1,i)<=LID Then
Tmp=LinkStr&"<a href="&Url&Arr(5,i)&">"&Arr(6,i)&"</a>"&Tmp
LID=LID-1
End If
Next
ClassPath=Tmp
End function
'=====================================================
Sub SetBofEof(Arr,reID,AllRs)
If reID=0 Then
Bof=0
Eof=AllRs-1
Else
For i=0 to AllRs-1
If Arr(5,i)=reID Then
Bof=i
For j=i+1 to AllRs-1
If Arr(1,j)<=Arr(1,i) Then
Eof=j-1
Exit For
End If
If j=AllRs-1 Then Eof=AllRs-1
Next
Exit For
End If
Next
End If
End Sub
'=====================================================
function ClassList(Arr,reID,AllRs,Url)
Tmp=Null
reID=Int(reID)
Call Net.SetBofEof(Arr,reID,AllRs)
'下边这两条实现不显示总分类的功能
If reID>0 Then Bof=Bof+1
For i=Bof to Eof
For j=1 to Arr(1,i)-Arr(1,Bof)
Tmp=Tmp&"　"
Next
For k=i+1 to AllRs-1
If Int(Arr(2,k))=Int(Arr(2,i)) Then
Tmp=Tmp&"┝"
Exit For
Else
If k=AllRs-1 Then
Tmp=Tmp&"┕"
Exit For
End If
End If
Next
If i=AllRs-1 Then Tmp=Tmp&"┕"
Tmp=Tmp&"<a href="&Url&Arr(5,i)&">"&Arr(6,i)&"</a><br>"
Next
ClassList=Tmp
End function
End Class
Dim reClass
reClass=request("Class")
If reClass="" or Int(reClass)<1 Then reClass=0
Dim ClassArr
ClassArr=NET.Read(" Select * From Class Where LID<20 Order by OID",1,999)
Dim ClassAllRs
ClassAllRs=ReadAllRs
%>
<style type="text/css">

</style>
<%
Response.Write "当前栏目的显示"
Response.Write "<br>"
Response.Write NET.ClassPath(ClassArr,reClass,ClassAllRs,"?Class=",">>>")
Response.Write "<br>"
Response.Write "栏目列表的显示"
Response.Write "<br>"
Response.Write NET.ClassList(ClassArr,reClass,ClassAllRs,"?class=")
%>

前几天看到的，和你共享吧（^_^）

关于无限级树的生成问题？？请求帮助！谢之~~~

相关推荐