ASP实现的无限级会员树型结构

'*********************************

'* 函数名称:Function nodeUser(parent)

'* 函数参数:parent

'* 参数类型 :string

'* 返回值类型:--

'* 函数功能:递归显示用户树型结构

'* 作者:范维肖

'* 时间:2004-5-7

'*********************************

Function nodeUser(parent)

'检索其分支

sql = "select name from [user] where sel='"&parent&"'"

set rs = conn.Execute(sql)

do while not rs.Eof

i=i+1

'格式控制

for j=i to 2 step -1

response.Write("<font color=red>&nbsp;|&nbsp;</font>")

response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")

next

response.Write("<font color=red>&nbsp;|->&nbsp;</font>")

'打印出此用户

response.Write(rs(0))

response.Write("<br>")

'递归来显示出此用户为根的树型结构

nodeUser(rs(0))

'完毕后转向下一个

rs.MoveNext

loop

'一个级别的显示完成后就缩进一下

i=i-1

rs.close

set rs=nothing

End Function

再用的时候搜索了一下,没有找到能实现类似传销样的会员树,特写了一个