----"
response.write "<a href=powerlist.asp?SelfID=" & rs_sub("powerid") & "&BelongID=" & rs_sub("belongid") &">" & rs_sub("powername") & "</a>"
response.write "<br>"
递归调用子程序本身，对子层数据进行逐渐处理
ListSubPower(rs_sub("powerid"))
rs_sub.movenext
loop
层次数表态变量递退累减
format_i=format_i-1
关闭子层数据集
rs_sub.close
set rs_sub=nothing
End Sub
%>
powerlist.asp程序中，我们先打开顶层数据，在循环中显示出来；然后又设计一个子程序ListSubPower，通过递归算法在循环中调用，以此来打开子层数据信息，并且在子程序内部循环中又反复调用自己，以此来逐层展开深层数据。
另外，在程序中还用了一个静态变量format_i来控制缩进显示格式。
本文就树型结构在数据设计、程序控制方面做简单尝试，目的在于抛砖引玉，希望读者通过本文得到更多启示
这是CSDN的双规干部写的关于树型的存储和维护
树型结构数据的存储采用:
Tree(ID,ParentID,Remark)
如果仅对于存储来讲,无疑是最经济!
但是利用这样的结构,来提供一些基于稍微复杂点的查询的应用表现形式
效率应该说相当低下!
如: 查询某节点的路径等!
如要高效的查询,我们可以在维护数据时下点功夫!
我们以一个树型结构论坛的实现为例:
Tree(ID,ParentID,RootID,OrderID,MaxID,Indent,Title,Content,Remark)
ID: Integer 帖子ID
ParentID: Integer 父贴ID
RootID: Integer 根帖ID
OrderID: Integer 同一个根帖中,帖子顺序ID
MaxID: Integer 用于使新贴在顶部
Indent: Integer 缩进量
Title: Varchar 帖子标题
Content: Varchar 帖子内容
Remark: Varchar 除 ID,ParentID 外的贴子线索
这样的设计只要维护好每一个字段都为查询显示提高了效率!
请看下面的维护程序:
--==========================================
alter procedure AppSP_AddNew
@ID integer
,@Title varchar(8000) =null
,@Content varchar(8000)=null
as
--declare @id int
--set @id=0
if @ID=0
begin
insert into Tree (ParentID,OrderID,Indent,Title,Content)
values (0,0,0,@Title,@Content)
--把帖子顶到上面:
update Tree
set RootID = ID
,MaxId = (select max(id) from Tree)
where RootID is null
end
else
begin
--调整同一个"根帖"中,帖子的内部顺序:
update Tree
set OrderID = OrderID + 1
where RootID = (select rootid
from tree
where ID = @id)
and OrderID > (select OrderID
from Tree
where ID = @id
)
--插入回复的帖子,同时维护 RootID,ParentID,OrderID,Indent,remark,Title,Content
insert into Tree (RootID,ParentID,OrderID,Indent,remark,Title,Content)
select RootID,@ID,OrderID+1,Indent + 1
,case when remark is null then cast(parentid as varchar)
else remark + - + cast(parentid as varchar)
end
,isnull(@Title,Re: + Title),@Content
from Tree
where id=@id
--把帖子顶到上面:
update Tree
set maxid = (select max(id)
from Tree
)
where rootid = (select rootid
from tree
where id=@id
)
end
--========================================
该程序用于
1.增加新贴:
AppSP_AddNew 0,第一个问题,地球是圆的吗?
2.回复帖子:
AppSP_AddNew 1,Re: 第一个问题,地球是圆的!
这样,只需简单查询:
select *, remark + - + cast(parentid as varchar) + - + cast(id as varchar) , space(indent) + [
from tree
order by MaxID desc,orderid
就可高效的实现帖子列表及其线索,级别等!
虽然维护时增加了一些工作量!
--相关DDL脚本:
CREATE TABLE [Tree] (
[ID] [int] IDENTITY (1, 1) NOT NULL ,
[ParentID] [int] NULL ,
[RootID] [int] NULL ,
[OrderID] [int] NULL ,
[MaxID] [int] NULL ,
[Indent] [int] NULL ,
[Title] [varchar] (50),
[Content] [varchar] (200) ,
[Remark] [varchar] (250) ,
CONSTRAINT [PK_Tree] PRIMARY KEY CLUSTERED
(
[ID]
) ON [PRIMARY]
) ON [PRIMARY]
关键词：整理一个树型问题的处理办法