189 8069 5689

生成目录树结构的类

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

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

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

<%@ Language=VBScript %>



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

%>



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://cdxtjz.cn/article/escceo.html

联系我们

您好HELLO!
感谢您来到成都网站建设公司,若您有合作意向,请您为我们留言或使用以下方式联系我们, 我们将尽快给你回复,并为您提供真诚的设计服务,谢谢。
  • 电话:028- 86922220 18980695689
  • 商务合作邮箱:631063699@qq.com
  • 合作QQ: 532337155
  • 成都网站设计地址:成都市青羊区锣锅巷31号五金站写字楼6楼

小谭建站工作室

成都小谭网站建设公司拥有多年以上互联网从业经验的团队,始终保持务实的风格,以"帮助客户成功"为已任,专注于提供对客户有价值的服务。 我们已为众企业及上市公司提供专业的网站建设服务。我们不只是一家网站建设的网络公司;我们对营销、技术、管理都有自己独特见解,小谭建站采取“创意+综合+营销”一体化的方式为您提供更专业的服务!

小谭观点

相对传统的成都网站建设公司而言,小谭是互联网中的网站品牌策划,我们精于企业品牌与互联网相结合的整体战略服务。
我们始终认为,网站必须注入企业基因,真正使网站成为企业vi的一部分,让整个网站品牌策划体系变的深入而持久。