关于生成目录树结构的类-ASP教程-爱易网页

关于生成目录树结构的类

日期：2013-06-22　浏览次数：20905 次

本程序有两文件test.asp 和tree.asp 还有一些图标文件 
1。test.asp 调用类生成树代码如下 
<%@ Language=VBScript %> 
<html> 
<head> 
<link rel="stylesheet" href="tree.css"> 
<title>tree</title> 
</head> 
 
<% 
 
'======================================== 
' 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()

免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。

关于生成目录树结构的类

相关资料更多>

推荐阅读更多>