Tree-type Structure *********************************
' * Functions name: function Nodeuser (parent)
' * Function parameter: Parent
' * Parameter type: string
' * Return value type:--
' * Function function: Recursive display of user tree structure
' * Author: Fan Wei Shaw
' * Time: 2004-5-7
'*********************************
Function Nodeuser (parent)
' Retrieves its branches
sql = "SELECT name from [user] where sel= '" &parent& ""
Set rs = conn. Execute (SQL)
Do but not Rs. Eof
I=i+1
' Format control
For J=i to 2 step-1
Response. Write ("<font color=red> | </font> ")
Response. Write ("")
Next
Response. Write ("<font color=red> |-> </font>")
' Print out this user
Response. Write (RS (0))
Response. Write ("<br>")
' Recursive display of this user-rooted tree structure
Nodeuser (RS (0))
' And then turn to the next
Rs. MoveNext
Loop
' One level of display is completed and then indented
I=i-1
Rs.close
Set rs=nothing
End Function
Again use the time search for a while, did not find to achieve similar MLM kind of member tree, close-up a
