java文件结构目录树_关于生成目录树结构的类

本程序有两文件test.asp 和tree.asp 还有一些图标文件

1。test.asp 调用类生成树 代码如下

tree

'========================================

' BUILDING A TREE PROGRAMATICALLY

'========================================

' This approach would be best suited for building

' dynamic trees using For..Next loops and such.

Set MyTree2 = New Tree

MyTree2.Top = 10

MyTree2.Left = 10

MyTree2.ExpandImage = "plus.gif"

MyTree2.CollapseImage = "minus.gif"

MyTree2.LeafImage = "webpage.gif"

' Notice the indentation used to reprensent the hierarchy

Set Node1 = MyTree2.CreateChild("script")

Set SubNode1 = Node1.CreateChild("server")

Set secSubNode1 = SubNode1.CreateChild("html")

secSubNode1.CreateChild "asp"

secSubNode1.CreateChild "php"

secSubNode1.CreateChild "jsp"

Set SubNode2 = Node1.CreateChild("os")

SubNode2.CreateChild "winnt"

SubNode2.CreateChild "win2000"

Set Node2 = MyTree2.CreateChild("Desktop")

Node2.CreateChild "Area Code Lookup"

Node2.CreateChild "Arin Based Whois Search"

Node2.CreateChild "World Time Zone Map"

MyTree2.Draw()

Set MyTree2 = Nothing

%>