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

十载专业的建站公司历程，坚持以创新为先导的网站服务，服务超过上1000+企业及个人，涉及网站设计、成都app开发、微信开发、平面设计、互联网整合营销等多个领域。在不同行业和领域给人们的工作和生活带来美好变化。

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

<%@ Language=VBScript %>






<%

''========================================
'' 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

%>



2。tree.asp 类的定义 代码如下

<%
''******************************************************
'' Author: Jacob Gilley
'' Email: avis7@airmail.net
'' My Terms: You can use this control in anyway you see fit
'' cause I have no means to enforce any guidelines
'' or BS that most developers think they can get
'' you to agree to by spouting out words like
'' "intellectual property" and "The Code Gods".
'' - Viva la Microsoft!
''******************************************************

Dim gblTreeNodeCount:gblTreeNodeCount = 1

Class TreeNode

Public Value
Public ExpandImage
Public CollapseImage
Public LeafImage
Public Expanded
Private mszName
Private mcolChildren
Private mbChildrenInitialized

Public Property Get ChildCount()
ChildCount = mcolChildren.Count
End Property

Private Sub Class_Initialize()
mszName = "node" & CStr(gblTreeNodeCount)
gblTreeNodeCount = gblTreeNodeCount + 1

mbChildrenInitialized = False
Expanded = False
End Sub

Private Sub Class_Terminate()
If mbChildrenInitialized And IsObject(mcolChildren) Then
mcolChildren.RemoveAll()
Set mcolChildren = Nothing
End If
End Sub

Private Sub InitChildList()
Set mcolChildren = Server.CreateObject("Scripting.Dictionary")
mbChildrenInitialized = True
End Sub

Private Sub LoadState()
If Request(mszName) = "1" Or Request("togglenode") = mszName Then
Expanded = True
End If
End Sub

Public Function CreateChild(szValue)

If Not mbChildrenInitialized Then InitChildList()

Set CreateChild = New TreeNode
CreateChild.Value = szValue
CreateChild.ExpandImage = ExpandImage
CreateChild.CollapseImage = CollapseImage
CreateChild.LeafImage = LeafImage

mcolChildren.Add mcolChildren.Count + 1, CreateChild

End Function

Public Sub Draw()

LoadState()

Response.Write "" & vbCrLf
Response.Write "

" & vbCrLf If Expanded Then 网页标题：生成目录树结构的类 本文路径：http://kswjz.com/article/escceo.html 扫二维码与项目经理沟通 我们在微信上24小时期待你的声音 解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流 其他资讯 电脑打开音量快捷键是什么 电脑开音量的快捷键 自贡iOS开发工程师招聘 自贡it项目主管招聘 css样式怎么透明 怎么使用css样式 nfc开发ios NFC开发票 jquery文字省略 jQuery中想给文字设置红色 行业动态 企业网站建设的重要性！ 现在虽然是移动互联网时代，但企业网站依然重要，包含PC站点，移动站。可以说企业网站关系企业的未来发展和前途，尤其对中小企业更是如此，一些中小企业老板，对自己的名片很在乎，因为这是个门面。... 服务项目 网站建设 查看详情 移动端/APP 查看详情 微信/小程序 查看详情 技术支持 查看详情 其它服务 查看详情 更多服务项目 用我们的专业和诚信赢得您的信赖，从PC到移动互联网均有您想要的服务！ 获取更多 联系吧 在百度地图上找到我们 电话：13518219792 如遇占线或暂未接听请拨：136xxx98888 业务咨询 技术咨询 售后服务 网站设计 网站设计制作 成都网站设计公司 定制网站设计 成都网站设计 网站制作 手机网站制作设计 成都网站制作 成都商城网站制作 手机网站制作 联系我们 电话：13518219792 邮箱：631063699@qq.com 地址：成都青羊区锦天国际1002号 网址：www.kswjz.com 网站建设 成都定制网站建设 成都网站建设公司 彭州网站建设 成都响应式网站建设 微信二维码 友情链接 绵阳电信机房 华泰海航 软文营销 网站推广 成都网站排名 犀浦防护栏定制 成都托管服务器 网络整合营销 丹棱网站建设 成都食品包装设计 Copyright © 2002-2023 www.kswjz.com 快上网建站品牌 QQ：244261566 版权所有 备案号：蜀ICP备19037934号 在线咨询 13518219792 微信二维码 移动版官网