分享
 
 
 

论坛树状记录表的堆栈展开

王朝other·作者佚名  2006-11-24
窄屏简体版  字體: |||超大  

由于工作原因,涉及到一个树状存放记录的表,要求程序中把树状表全部展开,并输出相应的数据內容。由于涉及到此种操作的地方很多,比如网络上的\\\"论坛"就是典型的采用树状存放记录的表,特此整理出来与大家分享。

在很多资料都有介绍展开树状记录的程序,但是很多是采用递归的方法。我們知道,递归的方法逻辑比较简单,实际操作起来比较容易。但是递归有一个最大的缺点就是占用资源太多,速度太慢。如果在互联网的"论坛"上采用此种方法,在表记录很多的情况下将是一个非常严重的问题。下面的程序在笔者的工作中解决了一个大问题并将应用于本人小站(yuking.126.com)的论坛。

我这里采用速度非常快的堆栈来实现这种操作,但是操作起来相对而言难度加大。我们就以论坛记录表为例讲解这一过程,首先了解一下表结构:

一、表结构(article)

self int '本记录ID号

father int '父记录ID号

title char '贴子标题

author char '贴子作者

datetime date '发贴日期时间

hits int '点击数

reply int '回复数

..... '根据具体的情况我们还可以有更多的字段

1)关键说明:self是记录本记录的ID号,这应该是一个自动增长的字段,不充许重复。father是记录本结点的父结点ID号的字段,若该记录内容为"回贴"此字段值应该为"主贴"的ID号。若该记录为"主贴"则它的父结点应该为"0"

2)如下两条记录是父子记录:

self father title author .....

1 0 '谁能帮帮我' '三脚猫'

2 1 '我能帮你什么忙吗?' '网上飞'

二、操作方法

首先,我们读出所有父结点为"0"的记录也就是"主贴",统统放入堆栈中。然后输出位于栈顶的一条记录("主贴")数据,并清空栈顶,栈頂下移一格。接着查找所有父结点为该栈项结点("主贴")的记录("回贴"),也统统放于栈顶。注意到没有,就这两步我们就完成了把一条父记录输出并展开其子结点的工作。余下的工作只是依次类推而已了,直到栈为空为止。

当然实际操作时可能还会有一些要求,比如要求得到记录的层数,回复数等等问题,我们只需稍加改进就能实现。

三、这里是整理后的原代码

<%

set RS=server.CreateObject("ADODB.Recordset")

sql_text="select * from article where father=0 order by datetime desc"

RS.Open sql_text,Bbs_ConnectionString '查找所有父结点为'0'的结点,即"主贴"。

Dim Stack(100,8) '定义堆栈,我这里是100('8'是指每个栈元素分别存放8个字段值)。'可根据实际情况定义堆栈大小,可以按这个公式计算"最多层数*最多展开数"。

while not Rs.eof

Stack(0,0)=RS("self")

Stack(0,1)=RS("father")

Stack(0,2)=RS("title")

Stack(0,3)=RS("author")

Stack(0,4)=RS("datetime")

Stack(0,5)=RS("hits")

Stack(0,6)=RS("reply")

Stack(0,7)=0

Top=1

do until Top=0

Sql_text="select * from article where father="&StackTop&"

RS1.Open Sql_text,MyConn '查找所有父结点为栈顶结点的记录

'输出栈项元素,我这里是直接输出,实际做的时候可以产生表格等等效果

for i=0 to 7

Response.write stack(top-1,i)

next

ParentLevel=stack(top-1,7) '清空堆栈之前获得父记录的层数

for i=0 to 7 '清空堆栈项部

Stack(top-1,i)=""

next

Top=top-1 '栈顶向下移动一格

'将查找到的栈项结点"派生出"的全部子记录存入堆栈

While not RS1.eof

Stack(Top,0)=RS1("self")

Stack(Top,1)=RS1("father")

Stack(Top,2)=RS1("title")

Stack(Top,3)=RS1("author")

Stack(Top,4)=RS1("datetime")

Stack(Top,5)=RS1("hits")

Stack(Top,6)=RS1("reply")

Stack(Top,7)=ParentLevel+1

Rs1.movenext

Top=Top+1 '栈项向上移动

Wend

Rs1.close

loop

Rs.MoveNext '移动到下一条记录

Wend

Rs.close

set Rs=nothing

set Rs1=nothing

%>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有