樹形結(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é)點的唯一標(biāo)識
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ùn)行本文程序時，應(yīng)當(dāng)修改Tree.dsn中的DefaultDir和DBQ，使其指向正確的目錄和文件。

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

　　



　　 　　 　　 　　 【圖1】

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

　　



　　 　　 　　 　　 【圖2】

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

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

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

　　



　　 　　 　　 　　 【圖3】

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

　　 客戶端腳本向服務(wù)器發(fā)送的請求包含了一個節(jié)點標(biāo)識，服務(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 WHEREParentElementId = "
　 strSQL = strSQL & Request.QueryString("Level") & " ORDER BY ElementID "
　
　 Set rstTree = Server.CreateObject("ADODB.Recordset")
　 rstTree.Open strSQL,"FileDSN=d:inetpubwwwrootree.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文件所在路徑。這段代碼并不復(fù)雜，但請注意以下兩點：第一，客戶請求的格式應(yīng)該為“GetTreeData.asp?Level=節(jié)點ID”；第二，返回客戶端的節(jié)點列表格式為“節(jié)點標(biāo)識|父節(jié)點標(biāo)識|節(jié)點文本|……”。