怎樣將完全可以運行的代碼改為動態目錄樹結構?問題解馬上決送500分!
實現動態的意思是:每次從后台動態添加主次類別進入數据庫的時候,這里的目錄樹結構要跟著動態改變!不是簡單的定義几個常量!
本程式有兩文件test. asp 和tree.asp (可直接運行)
1。test.asp 調用類生成樹 代碼如下
<%@ Language=VBScript %>
<html>
<head>
<link rel="stylesheet" href="tree.css">
<title>tree</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("主類別1")//實現動態的意思是:每次從后台動態添加主次類別進入數据庫的時候,這里的目錄樹結構要跟著動態改變!不是簡單的定義几個常量!
Set SubNode1 = Node1.CreateChild("次類別1")
Set secSubNode1 = SubNode1.CreateChild("次類別11")
secSubNode1.CreateChild "<A HREF=""http://127.0.0.1/"">Child11</A>"
secSubNode1.CreateChild "<A HREF=""http://127.0.0.1/"">Child12</A>"
secSubNode1.CreateChild "<A HREF=""http://127.0.0.1/"">Child13</A>"
Set SubNode2 = Node1.CreateChild("次類別2")
SubNode2.CreateChild "<A HREF=""#"">Child21</A>"
SubNode2.CreateChild "<A HREF=""#"">Child22</A>"
Set Node2 = MyTree2.CreateChild("主類別2")
Node2.CreateChild "<A HREF=""#"">child001</A>"
Node2.CreateChild "<A HREF=""#""> child002</A>"
Node2.CreateChild "<A HREF=""#""> child002</A>"
MyTree2.Draw()
Set MyTree2 = Nothing
%>
</BODY>