关于生成目录树结构的类


答案：本程序有两文件test.asp 和tree.asp 还有一些图标文件<br>
1。test.asp 调用类生成树 代码如下<br>
&lt;%@ Language=VBScript %&gt;<br>
&lt;html&gt;<br>
&lt;head&gt;<br>
&lt;link rel=&quot;stylesheet&quot; href=>&lt;title&gt;tree&lt;/title&gt;<br>
&lt;/head&gt;<br>
&lt;!-- #include file=&quot;tree.asp&quot; --&gt;<br>
&lt;%<br>
&nbsp;&nbsp;&nbsp;&nbsp;<br>
'========================================<br>
' BUILDING A TREE PROGRAMATICALLY<br>
'========================================<br>
' This approach would be best suited for building<br>
' dynamic trees using For..Next loops and such.<br>
<br>
&nbsp;&nbsp;&nbsp;&nbsp;Set MyTree2 = New Tree<br>
&nbsp;&nbsp;&nbsp;&nbsp;MyTree2.Top = 10<br>
&nbsp;&nbsp;&nbsp;&nbsp;MyTree2.Left = 10<br>
&nbsp;&nbsp;&nbsp;&nbsp;MyTree2.ExpandImage = &quot;plus.gif&quot;<br>
&nbsp;&nbsp;&nbsp;&nbsp;MyTree2.CollapseImage = &quot;minus.gif&quot;<br>
&nbsp;&nbsp;&nbsp;&nbsp;MyTree2.LeafImage = &quot;webpage.gif&quot;<br>
&nbsp;&nbsp;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;' Notice the indentation used to reprensent the hierarchy<br>
&nbsp;&nbsp;&nbsp;&nbsp;Set Node1 = MyTree2.CreateChild(&quot;script&quot;)<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set SubNode1 = Node1.CreateChild(&quot;server&quot;)<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set secSubNode1 = SubNode1.CreateChild(&quot;html&quot;)<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;secSubNode1.CreateChild &quot;&lt;A HREF=>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;secSubNode1.CreateChild &quot;&lt;A HREF=>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;secSubNode1.CreateChild &quot;&lt;A HREF=>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set SubNode2 = Node1.CreateChild(&quot;os&quot;)<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SubNode2.CreateChild &quot;&lt;A HREF=>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SubNode2.CreateChild &quot;&lt;A HREF=>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;Set Node2 = MyTree2.CreateChild(&quot;Desktop&quot;)<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Node2.CreateChild &quot;&lt;A HREF=>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Node2.CreateChild &quot;&lt;A HREF=>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Node2.CreateChild &quot;&lt;A HREF=>&nbsp;&nbsp;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;MyTree2.Draw()<br>
&nbsp;&nbsp;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;Set MyTree2 = Nothing<br>
<br>
%&gt;<br>
<br>
&lt;/BODY&gt;<br>
&lt;/HTML&gt;<br>
2。tree.asp&nbsp;&nbsp;类的定义 代码如下<br>
&lt;%<br>
'******************************************************<br>
' Author: Jacob&nbsp;&nbsp;Gilley<br>
' Email: avis7@airmail.net<br>
' My Terms: You can use this control in anyway you see fit<br>
'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;cause I have no means to enforce any guidelines<br>
'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;or BS that most developers think they can get<br>
'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;you to agree to by spouting out words like <br>
'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;intellectual property&quot; and &quot;The Code Gods&quot;.<br>
'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;- Viva la Microsoft!<br>
'******************************************************<br>
<br>
Dim gblTreeNodeCount:gblTreeNodeCount = 1<br>
<br>
Class TreeNode<br>
<br>
&nbsp;&nbsp;&nbsp;&nbsp;Public Value<br>
&nbsp;&nbsp;&nbsp;&nbsp;Public ExpandImage<br>
&nbsp;&nbsp;&nbsp;&nbsp;Public CollapseImage<br>
&nbsp;&nbsp;&nbsp;&nbsp;Public LeafImage<br>
&nbsp;&nbsp;&nbsp;&nbsp;Public Expanded<br>
&nbsp;&nbsp;&nbsp;&nbsp;Private mszName<br>
&nbsp;&nbsp;&nbsp;&nbsp;Private mcolChildren<br>
&nbsp;&nbsp;&nbsp;&nbsp;Private mbChildrenInitialized<br>
&nbsp;&nbsp;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;Public Property Get ChildCount()<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ChildCount = mcolChildren.Count<br>
&nbsp;&nbsp;&nbsp;&nbsp;End Property<br>
&nbsp;&nbsp;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;Private Sub Class_Initialize()<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;mszName = &quot;node&quot; & CStr(gblTreeNodeCount)<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;gblTreeNodeCount = gblTreeNodeCount + 1<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&
上一个：这个问题我刚刚前两天做过,呵呵(会不会加入精华区)
下一个：利用ADODB.Stream使用浏览器下载服务器文件
更多图片编程知识: