日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

論壇樹狀記錄表的堆棧展開

論壇樹狀記錄表的堆棧展開

更新時間:2022-05-14 文章作者:未知 信息來源:網絡 閱讀次數:

由于工作原因,涉及到一個樹狀存放記錄的表,要求程序中把樹狀表全部展開,并輸出相應的數據內容。由于涉及到此種操作的地方很多,比如網絡上的\\\"論壇"就是典型的采用樹狀存放記錄的表,特此整理出來與大家分享。
     在很多資料都有介紹展開樹狀記錄的程序,但是很多是采用遞歸的方法。我們知道,遞歸的方法邏輯比較簡單,實際操作起來比較容易。但是遞歸有一個最大的缺點就是占用資源太多,速度太慢。如果在互聯網的"論壇"上采用此種方法,在表記錄很多的情況下將是一個非常嚴重的問題。下面的程序在筆者的工作中解決了一個大問題并將應用于本人小站(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
%>

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 国产一二三区在线 | 日本欧美大码aⅴ在线播放 日本欧美大码a在线视频播放 | 国产免费不卡v片在线观看 国产免费不卡视频 | 日韩在线一区二区三区视频 | 久操视频在线观看免费 | nu77亚洲综合日韩精品 | 午夜资源 | 欧美日韩国产深夜福利视频 | 免费女人光着全身体网站 | 国产亚洲精品欧美一区 | 欧美亚洲免费 | 久久精品国产精品亚洲婷婷 | 999精品国产 | 成年人在线视频观看 | 国产欧美日韩综合在线一 | 99免费精品 | 毛片视频网站 | 亚洲欧美中文字幕 | 久久www免费人成_看片高清 | 日本免费不卡视频 | 婷婷综合五月天 | 国产亚洲精品第一区在线观看 | 美女mm131爽爽爽免费视色 | 天天躁天天爽 | 久草高清 | 69xxx视频| 日本系列 1页 亚洲系列 | 天天爱天天做天天爽夜夜揉 | 欧美黄色片在线观看 | 国产福利午夜自产拍视频在线 | 五月天91 | 午夜特级毛片 | 欧美成人午夜免费完成 | 久久网免费 | 韩国免费播放一级毛片 | 亚洲免费观看视频 | 久久国产热视频 | 日本按摩视hd xxxx | 91中文字幕视频 | 午夜影院免费观看视频 | 色偷偷综合 |