如何实现论坛的树状记录表展开技术?
发布时间:2010-05-19 21:37:00
请问论坛的树状记录表是怎么展开的?如何做?论坛的这种展开技术一般采用两种方法实现,一种是采用递归的方法,优点是逻辑简单,编程简单,缺点是速度慢,占用系统资源大;另一种是采用堆栈技术,优点是速度快,省资源,缺点当然是编写麻烦了。
下面我们来介绍一下后者。具体设计方法是
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):
序号 | 字段 | 类型 | 说明 |
1 | self | int | 本记录ID号。自动增长的字段 |
2 | father | int | 父记录ID号。若该记录内容为“回贴”则此字段值为“主贴”的ID号;若该记录为“主贴”则它的父结点应该为“0” |
3 | title | char | 贴子标题 |
4 | author | char | 贴子作者 |
5 | datetime | date | 发贴日期时间 |
6 | hits | int | 点击数 |
7 | reply | int | 回复数 |


猜你喜欢
- 编写思路:把本地文件在客户端通过base64编码以后发送目的地.测试过程中,上传文件过大,导致超时不成功,后来经过改善.把编码分
- 前言:以往看到我博客的小伙伴可能都知道,我的前言一般都是吐槽和讲废话环节,哈哈哈哈。今天难得休息,最近可真是太忙了,博主已经连续一年都在99
- 我用textarea提交大量的阿数据 我开始字段类型选的是mediumtext,数据有丢失 后来我改成了longtext,数据依然丢失, 而
- 一、安装mod_wsgi 3.4:./configure --with-apxs=/Users/levin/dev/apache2.2.27
- str.join即sequence – 要连接的元素序列。返回通过指定字符连接序列中元素后生成的新字符串。n =
- 调用百度API获取经纬度信息。import requestsimport jsonaddress = input('请输入地点:
- 目录1、创建对象2、保存ForeignKey和ManyToManyField字段3、检索对象跨越多值的关系查询使用F表达式引用模型的字段:4
- php数组中元素的存在方式是以键值对的方式('key'=>'value'),有时候我们需要根据键删除数
- 一、为什么使用Python进行网络爬虫?由于Python语言十分简洁,使用起来又非常简单、易学,通过Python 进行编写就像使用英语进行写
- 在 vue 项目,有时请求返回的数据 中会有含有 \n 的字符串,如果直接渲染的话无法实现换行。 一、通过 css属性
- 实例如下所示:<?php 加载类//include("./Ren.class.php");//include &q
- 前言版本:windows 10.0python 3.8问题简述近期看到这么一个问题,有把值分别赋值给不同的变量,想在比较大小后得到变量的名称
- DateDiff(timeinterval,date1,date2 [, firstdayofweek [, firstweekofyear
- 在while和for循环过程中,为了更加灵活地控制循环的次数,python提供了break和continue循环控制语句。1. break
- 代码如下:---涂聚文 Geovin Du DECLARE @myid uniqueidentifier SET @myid =
- profiling是个很好用的mysql性能分析工具,今儿就来试验下profiling的功能。感谢 有爱玫瑰的博文:mysql 的 sql
- 背景:有一个list,里面的每一个元素都是dict,根据某一个key进行去重,在这里,key代表question#!/usr/bin/env
- 前言什么是OCR?光学字符识别(Optical Character Recognition, OCR),是指对文本资料的图像文件进行分析识别
- 这里所谓的复杂表单,是指表单中包含多种不同的输入类型,比如下拉列表框、单行文本、多行文本、数值等。在经常需要更换这类表单的场合,需要有一个表
- 0. 前言无论在工作中,还是学习中,都会出现这样子的需求,对某张表进行了排序(按时间排序也好,其他字段排序也罢),然后获取前x行的数据,由于