|
Halus
Starting Member
20 Posts |
 Posted - 03 March 2001 : 21:10:34
|
Maybe anyone that try transform the code to dll will do experiments such as making a little function dealing with tree-levels,
I have done 2: one for 2 level trees, and the other for 3 level trees
==============================
1.
call showTree2("All Forums", "Admin_Home")
.
.
.
.
Sub showTree2(pTree1, pTree2)
Dim HTML As String
HTML = "<table width='100%' border=0><thead class='tree'><tr><td><img src='img/sys/icon_folder_open.gif' border='0'> <a href='default.asp'>"
HTML = HTML & pTree1
HTML = HTML & "</a><br><img src='img/sys/icon_bar.gif' border='0'><img src='img/sys/icon_folder_open_topic.gif' border='0'> "
HTML = HTML & pTree2
HTML = HTML & "</thead></table>"
Response.Write (HTML)
End Sub
2.
call showTree3("All Forums","Admin_Home","admin_home.asp","Admin_Configuration")
.
.
.
.
Sub showTree3(pTree1, pTree2, utree2, pTree3 As Variant)
Dim HTML As String
HTML = "<table width='100%' border=0><thead class='tree'><tr><td><img src='img/sys/icon_folder_open.gif' border='0'> <a href='default.asp'>"
HTML = HTML & pTree1
HTML = HTML & "</a><br><img src='img/sys/icon_bar.gif' border='0'><img src='img/sys/icon_folder_open.gif' border='0'> <a href='"
HTML = HTML & utree2
HTML = HTML & "'>"
HTML = HTML & pTree2
HTML = HTML & "</a><br><img src='img/sys/icon_blank.gif' border='0'><img src='img/sys/icon_bar.gif' border='0'><img src='img/sys/icon_folder_open_topic.gif' border='0'> "
HTML = HTML & pTree3
HTML = HTML & "</thead></table>"
Response.Write (HTML)
End Sub
==============================
P.S.:
1. I use CSS style at the [thead] level, and by this way the [class] tag can be used as little as possible, and there's no need to put so many parameters such as <% =strHeaderFont%>...
2. I put img files in subdirectories.
I think modify the forum to a CSS based one should be done as soon as possible,
because it is easier for maintainence, easier to do MODs, and we can concentrate on things about logical structures...
That's my humble opinion 
|
|
Topic Locked
