樹形結(jié)構(gòu)是描述層次數(shù)據(jù)的常見方法。本文介紹的樹形結(jié)構(gòu)生成程序主要由一個ASP頁面、二個JavaScript函數(shù)構(gòu)成。該樹
形結(jié)構(gòu)是異步的，也就是說，節(jié)點數(shù)據(jù)僅在必要時才讀取，而不是一次性全部發(fā)送到客戶端。




一、概述

樹形結(jié)構(gòu)中所有的節(jié)點都必須包含以下屬性：本身的ID，父節(jié)點的ID，以及本節(jié)點的說明（節(jié)點文本）。本文用到了一個
Access數(shù)據(jù)庫Tree.mdb來保存這些節(jié)點信息。Tree.mdb包含表tblTree，其定義如下：
字段名稱 類型 說明
ElementID 自動編號 節(jié)點的唯一標識
ParentElementID 數(shù)字 父節(jié)點的ID
ElementText 文本 節(jié)點文本



本程序利用Tree.dsn文件定義Tree.mdb數(shù)據(jù)源。Tree.dsn內(nèi)容可以用控制面板中的ODBC數(shù)據(jù)源配置程序得到，內(nèi)容如下：

[ODBC]
DRIVER=Microsoft Access Driver (*.mdb)
UID=admin
UserCommitSync=Yes
Threads=3
SafeTransactions=0
PageTimeout=5
MaxScanRows=8
MaxBufferSize=512
ImplicitCommitSync=Yes
FIL=MS Access
DriverId=25
DefaultDir=d:Inetpubwwwroot
DBQ=d:InetpubwwwrootTree.mdb
注意運行本文程序時，應(yīng)當修改Tree.dsn中的DefaultDir和DBQ，使其指向正確的目錄和文件。

客戶端功能分兩部分實現(xiàn)：其一是一個普通的瀏覽器窗口，其二為一個IFRAME。IFRAME是不可見的，它的作用是負責瀏覽器
窗口與服務(wù)器之間的通信。下面是示例程序的一個運行界面：





【圖1】

樹形結(jié)構(gòu)各個節(jié)點之間的關(guān)系可以用< DIV >標記表示如下：





【圖2】

在這里，文檔的< BODY >是第一層節(jié)點（divTree0）的容器，第一層總共包含四個節(jié)點，這四個節(jié)點又分別是其子節(jié)點組的
容器。例如，上圖中divTree0包含了div1、div2、div3和div4（它們分別對應(yīng)一個節(jié)點）；而div1又是divTree1的容器，
divTree1包含了div5——div8，div5又是divTree5的容器；而divTree5包含了div9……。

鼠標單擊事件由各個節(jié)點本身（div1，div2，……）響應(yīng)，而不是由容器響應(yīng)。節(jié)點響應(yīng)鼠標單擊事件后將禁止事件進一步
向上（向父節(jié)點）傳遞。這部分功能在GetTree函數(shù)內(nèi)實現(xiàn)，請參見該函數(shù)代碼以了解具體實現(xiàn)方法。

整個樹形結(jié)構(gòu)的作用過程可用下圖表示：





【圖3】

二、服務(wù)器端代碼

客戶端腳本向服務(wù)器發(fā)送的請求包含了一個節(jié)點標識，服務(wù)器腳本GetTreeData.asp查找數(shù)據(jù)庫獲得該節(jié)點的所有子字節(jié)點，
并將這些子節(jié)點返回給客戶程序。GetTreeData.asp代碼如下:

< % Dim rstTree
Dim strSQL
Dim strData

If Request.QueryString("Level") = "" Then
Response.End
End If

strSQL = "SELECT * FROM tblTree WHERE ParentElementId = "
strSQL = strSQL & Request.QueryString("Level") & " ORDER BY ElementID "

Set rstTree = Server.CreateObject("ADODB.Recordset")
rstTree.Open strSQL,"FileDSN=d:inetpubwwwroot ree.dsn"

strData = ""
Do While Not rstTree.EOF
strData = strData & rstTree("ElementId") & " " & rstTree("ParentElementId") & " " &
rstTree("ElementText") & " "
rstTree.MoveNext
Loop
rstTree.Close % >

< HTML >
< BODY OnLoad="parent.PopulateTree(＇< %=strData% >＇);" >< /BODY >
< /HTML >
注意：在實際使用中應(yīng)相應(yīng)地更改DSN文件所在路徑。這段代碼并不復雜，但請注意以下兩點：第一，客戶請求的格式應(yīng)該為
“GetTreeData.asp?Level=節(jié)點ID”；第二，返回客戶端的節(jié)點列表格式為“節(jié)點標識 父節(jié)點標識 節(jié)點文本 ……”。 （出處：熱點網(wǎng)絡(luò)）