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

请问论坛的树状记录表是怎么展开的？如何做？论坛的这种展开技术一般采用两种方法实现，一种是采用递归的方法，优点是逻辑简单，编程简单，缺点是速度慢，占用系统资源大；另一种是采用堆栈技术，优点是速度快，省资源，缺点当然是编写麻烦了。

下面我们来介绍一下后者。具体设计方法是

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 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
％>

表结构（article）：