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

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

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

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

更新時間: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
%>

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

本類教程下載

系統下載排行

主站蜘蛛池模板: 国产精品短视频 | 日本不卡1 | 亚洲国产经典 | 亚洲v视频 | 国产成人一区二区三区 | 欧美亚洲日本韩国一级毛片 | 日韩欧美一区二区三区不卡 | 五月天婷婷在线视频 | 久久99亚洲精品久久频 | 高清欧美性狂猛bbbbbbxxxx | 久精品在线| 最新欧美视频 | 成人爱av18丰满 | 色综合久久一区二区三区 | 九九精品热线免费观看6 | 天天噜噜揉揉狠狠夜夜 | 亚洲动漫h | 日韩国产在线播放 | 久久福利网 | 久久91这里精品国产2020 | 欧美一二三区 | 成人久久久| 欧美刺激午夜性久久久久久久 | 99久久免费精品高清特色大片 | 中文字幕热久久久久久久 | 爱爱爱爱的视频在线观看 | 久久久婷| 欧美日韩一区二区综合 | 国产极品美女网站在线观看 | 久久精品国产久精国产 | 国产网红福利 | 天天影视色 | 欧美一级毛片免费播放aa | 亚洲成年人视频 | 九九色网 | 精品卡通动漫在线观看视频一区 | 2022国产成人福利精品视频 | 欧美激情一二区 | 色噜噜噜噜 | 日本中文字幕不卡在线一区二区 | 久久免费在线 |