實(shí)現(xiàn)樹型結(jié)構(gòu)(第一部分)
作者：ACE 最后更新：06/08/2000 類別：原創(chuàng)

先看一下示例，如果你感覺尚可，就繼續(xù)閱讀本文http://www.coolbel.com/ace/articles/test/msdn.asp。

1. 簡述

對(duì)于大家來說樹型結(jié)構(gòu)是很熟悉的一種模型。它的應(yīng)用十分廣泛，比如組織結(jié)構(gòu)，物料清單，資料檔案管理，資產(chǎn)管理等等都是以樹型結(jié)構(gòu)為基礎(chǔ)。在現(xiàn)實(shí)生活中，有許多事物可以抽象為樹狀結(jié)構(gòu)。這種結(jié)構(gòu)可以簡化對(duì)某些事物的理解，使概念清晰。

2. 表結(jié)構(gòu)

樹型結(jié)構(gòu)的表結(jié)構(gòu)可以很簡單也可以很復(fù)雜。根據(jù)不同的需求，表結(jié)構(gòu)不是一成不變的，讀取數(shù)據(jù)的方法也不盡相同。

我們考慮一種最簡單的情況，看下面的示例：

Sample Table
Child Node Parent Node Title article
1 0 Program 0
2 1 Visual Basic 0
3 1 Power Builder 0
4 1 C++ Builder 0
5 2 ADO Control 1
..........
更直觀的表示：
Program
-------Visual Basic
------------ADO Control
-------Power Builder
-------C++ Builder

這種結(jié)構(gòu)十分簡單，當(dāng)修改元素間的所屬關(guān)系時(shí)，你只需要修改 Parent Node 就可以了，比如把 ADO Control 作為 Program 的子項(xiàng)，只要將 ADO Control 所對(duì)應(yīng)的 Parent Node 改為1。由此，不難看出這種結(jié)構(gòu)簡單，易用。

3. 用存儲(chǔ)過程讀取數(shù)據(jù)

如何檢索數(shù)據(jù)，或許是我們最關(guān)心的。對(duì)于用戶來說，在數(shù)據(jù)的表達(dá)上要易于理解。從上面的示例中，就可以看出：直觀的表示法比顯示數(shù)據(jù)存儲(chǔ)結(jié)構(gòu)更易于理解。

其中的關(guān)鍵在于如何得到元素之間的層次關(guān)系，有了層次關(guān)系，就能得到類似資源管理器那樣的界面。

在這里，我們用存儲(chǔ)過程完成該功能。在微軟的眾多有關(guān) SQL 的文檔中，有一段 SQL 代碼非常經(jīng)典，我們本著拿來主義的思想，將它修改一下，洋為中用。

CREATE PROC sp_ListFile(@Child_node int)
As
SET NOCOUNT ON
--declare var
DECLARE @lvl smallint --層次關(guān)系
DECLARE @c_ID int
DECLARE @article bit --是否為文章的標(biāo)志
DECLARE @title varchar(150) --標(biāo)題

--create temporary table
CREATE TABLE #stack (Child_node int,Lvl smallint)

--create target table
CREATE TABLE #FileList
(lvl smallint,
Child_node_ID int,
Article bit,
Title varchar(150) )

--initial
INSERT INTO #stack VALUES(@Child_node,0)
SELECT @Lvl = 0

--main loop
WHILE @Lvl > -1
BEGIN
IF EXISTS(SELECT * FROM #stack WHERE Lvl = @Lvl)
BEGIN
SELECT @Child_node = Child_node
FROM #stack
WHERE Lvl = @Lvl

SELECT @article = article,@title = title
FROM some_table
WHERE Child_node = @Child_node

INSERT INTO #FileList
VALUES(@Lvl,@Child_node, @article,@title)

DELETE FROM #stack
WHERE Lvl = @Lvl AND Child_node = @Child_node

INSERT INTO #stack
SELECT Child_node,@Lvl + 1
FROM some_table
WHERE Parent_node = @Child_node
IF @@ROWCOUNT > 0
SELECT @Lvl = @Lvl + 1
END
ELSE
SELECT @Lvl = @Lvl - 1
END
DELETE FROM #FileList
WHERE Lvl = 0
SELECT * FROM #FileList

輸出結(jié)果：
lvl Child_node Article Title
1 1 0 Program
2 2 0 Visual Basic
3 5 1 ADO Control
2 3 0 Power Builder
2 4 0 C++ Builder

上面的存儲(chǔ)過程可以有很多變形，比如按時(shí)間排序，指定檢索深度等等，有的需要對(duì)數(shù)據(jù)庫作相應(yīng)調(diào)整。

4. 調(diào)用存儲(chǔ)過程


調(diào)用存儲(chǔ)過程有多種形式，我們只討論如何調(diào)用上面的存儲(chǔ)過程

Dim cnn
Dim rs
Dim id

Set cnn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
cnn.Open "Provider=SQLOLEDB;.......................略
rs.Open "sp_listfile " & id,cnn


由于 Coolbel 不支持存儲(chǔ)過程，我把結(jié)果集存為 XML 格式，以便于演示。 （出處：熱點(diǎn)網(wǎng)絡(luò)）