連線資料庫的ASP樹圖生成程式（原始碼） (轉)

  '＊＊＊＊＊＊＊  連線的樹圖生成  ＊＊＊＊＊＊＊＊
  '＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
  '假設你已建立了Server資料庫UnitTree，並在該庫中建立了表：
  'Units(ID 單位序號整數唯一,Name 單位名稱字串,UpID 上級單位序號整數)
  '注：UpID=0表示該單位是根結點單位；
  '輸入一些資料如：（1，AA，0）（2，AABB，1）（3，AACC，1）（4，AABB11，2）
  '以便進行下面的程式測試。 
%>
  set conn=server.create("ado.connection")
  conn.open "provr=sqloledb;data =YourSrcName;user id=sa;pass=;database=UnitTree"
%>
  Sub TreeNode(Code)
  SQLUnit=" ID,Name"&_
  " from Units"&_ 
  " where UpID="&Code&""&_
  " order by ID"
  set rsUnit=conn.Execute(SQLUnit)
  Do while not rsUnit.Eof
  Response.Write("Node"&rsUnit("ID")&"=appendChild("&"Node"&Code&",folderNode('"&rsUnit("Name")&"','"&rsUnit("ID")&"',0))"&chr(10))
  call TreeNode(rsUnit("ID"))
  rsUnit.movenext
  L 
 
  End Sub
%>

正在生成樹圖，請稍候...

PRight.htm檔案的內容：

歡迎訪問！

Content.asp檔案根據你的需要自己編寫。

程式的效果，與的幾乎一樣。
closedfolder.gif是一個22*22的小圖，其餘的圖片是16＊22的小圖；
這些圖片可以透過在資源管理器中抓圖獲得。
--&gt