一、表结构(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 '我能帮你什么忙吗？' '网上飞'
三、这里是整理后的原代码 <% 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 %>
设为主页
收藏本站
相关文章: