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

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

原文转自：http://www.ltesting.net