*********************************
　　‘* 函数名称:Function nodeUser
　　‘* 函数参数:parent
　　‘* 参数类型 :string
　　‘* 返回值类型:
　　‘* 函数功能:递归显示用户树型结构
　　‘* 范维肖
　　‘* 时间:2004-5-7
　　‘*********************************
　　Function nodeUser
　　‘检索其分支
　　sql = select name from [user] where sel=‘parent‘
　　set rs = conn.Execute
　　do while not rs.Eof
　　i=i+1
　　‘格式控制
　　for j=i to 2 step -1
　　response.Write
　　response.Write
　　next
　　response.Write
　　‘打印出此用户
　　response.Write)
　　response.Write
　　‘递归来显示出此用户为根的树型结构
　　nodeUser)
　　‘完毕后转向下一个
　　rs.MoveNext
　　loop
　　‘一个级别的显示完成后就缩进一下
　　i=i-1
　　rs.close
　　set rs=nothing
　　End Function
　　再用的时候搜索了一下，没有找到能实现类似传销样的会员树，特写了一个