生成目录树结构的类

生成目录树结构的类2009-12-12 asp.org.cn 本程序有两文件test.asp 和tree.asp 还有一些图标文件

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

<%@ Language=VBScript %>
<html>
<head>
<link rel="stylesheet" href="tree.css">
<title>tree</title>
</head>
<！-- #include file="tree.asp" -->
<%

""========================================
"" 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 "<A HREF=""http://127.0.0.1/"">asp</A>"
secSubNode1.CreateChild "<A HREF=""http://127.0.0.1/"">php</A>"
secSubNode1.CreateChild "<A HREF=""http://127.0.0.1/"">jsp</A>"

Set SubNode2 = Node1.CreateChild（"os"）
SubNode2.CreateChild "<A HREF=""#"">winnt</A>"
SubNode2.CreateChild "<A HREF=""#"">win2000</A>"

Set Node2 = MyTree2.CreateChild（"Desktop"）
Node2.CreateChild "<A HREF=""#"">Area Code Lookup</A>"
Node2.CreateChild "<A HREF=""#"">Arin Based Whois Search</A>"
Node2.CreateChild "<A HREF=""#"">World Time Zone Map</A>"

MyTree2.Draw（）

Set MyTree2 = Nothing

%>

</BODY>
</HTML>