关于生成目录树结构的类

2016-01-29 20:22 91 1 收藏

关于生成目录树结构的类,关于生成目录树结构的类

【 tulaoshi.com - ASP 】

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

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com/asp/)

%

</BODY
</HTML
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

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com/asp/)

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 "<table border=""0""" & vbCrLf
Response.Write "<tr<td" & vbCrLf

If Expanded Then
Response.Write "<a href=""javascript:collapseNode('" & mszName & "')""<img src=""" & CollapseImage & """ border=""0""</a" & vbCrLf
ElseIf Not mbChildrenInitialized Then
Response.Write "<img src=""" & LeafImage & """ border=0" & vbCrLf
Else
Respo

来源:https://www.tulaoshi.com/n/20160129/1511082.html

延伸阅读
标签: word
Word文档自动生成目录和更新目录的方法   用过Word文档生成目录功能的朋友都在知道,每次如果修改正文后,目录的内容和页码可能都会发生变化,这就需要我们重新调整,很明显这样给我们带来很多的麻烦。所以Word文档可以自动生成目录和自动更新目录就会帮我们省去很多的麻烦。由于现在大部分人使用的Office 2010 ,所以今天就以Word 2...
标签: 电脑入门
在编辑文档的时候,目录有时是必不可少的一项,但在实际情况当中,很多使用者不知道怎样使用word中的目录自动生成的功能,而是自己在首页手动编制,结果常常因为后面格式或者字体的调整,使得目录与正文出现差距。因此用下面的方法能简单的生动生成: 步骤方法 下面就来介绍一下如何利用word自动生成目录并动态更新。这里介绍两种方法: 一...
标签: Web开发
今天我们来讨论“确定网站的目录结构和链接结构”。 一.网站的目录结构 网站的目录是指你建立网站时创建的目录。例如:在用frontpage98建立网站时都默认建立了根目录和images子目录。目录的结构是一个容易忽略的问题,大多数站长都是未经规划,随意创建子目录。目录结构的好坏,对浏览者来说并没有什么太大的感觉,但是对于站点本...
标签: word
word怎样自动生成目录?   首先我们打开要编辑的WORD的文档 把光标放在首页的第一行 如图 点击菜单栏上的插入 如图 然后点击引用,在点击索引和目录 如图 在索引和目录的窗口里点击目录 如图 设置好之后,点击确定 如图 完成上面的操作之后,就可以设置好索引目录了 如图 注意事项 ...
wps怎么自动生成目录   我们首先打开文档,可以看到左上角的"标题1 标题2 标题3",我们选择一个,然后输入一个标题名字。 这边举个例子,比如目录从上到下是"第一章 第一节 第二节" ,那么我们"第一章"就选择标题一来输入,"第一节和第二节"就选择标题二来输入。 然后我们点击&...

经验教程

606

收藏

99
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部