如何实现论坛树状记录表展开技术？.docVIP

如何实现论坛的树状记录表展开技术？ 请问论坛的树状记录表是怎么展开的？如何做？ 论坛的这种展开技术一般采用两种方法实现，一种是采用递归的方法，优点是逻辑简单，编程简单，缺点是速度慢，占用系统资源大；另一种是采用堆栈技术，优点是速度快，省资源，缺点当然是编写麻烦了。 下面我们来介绍一下后者。具体设计方法是 1、读出所有父结点为“0”的记录，即“主贴”，全部放入堆栈； 2、输出位于栈顶的一条记录（“主贴”）数据，并清空栈顶，使栈顶下移一格； 3、查找所有父结点为该栈项结点（“主贴”）的记录（“回贴”），也把它们都放于栈顶。这样，我们完成了输出一条父记录，并展开其子结点的操作； 4、按上面2、3的方法，依次类推，直到栈为空为止。 5、根据操作要求，还要取得到记录的层数、回复数等。 看看具体操作的代码和说明：%set RS=server.CreateObject(ADODB.Recordset)sql_text=select * from article where father=0 order by datetime descRS.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? 移动到下一条记录WendRs.closeset Rs=nothingset Rs1=nothing% 表结构（article）： 序号 字段 类型 说明 1 self? int? 本记录ID号。自动增长的字段 2 father? int 父记录ID号。若该记录内容为“回贴”则此字段值为“主贴”的ID号；若该记录为“主贴”则它的父结点应该为“0” 3 title? ? char? 贴子标题 4 author? char? 贴子作者 5 datetime? dat