最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
ASP实现的无限级会员树型结构
时间：2022-06-30 10:15:14 编辑：袖梨 来源：一聚教程网
*********************************
'* 函数名称: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(" | ")
response.Write(" ")
next
response.Write(" |-> ")
'打印出此用户
response.Write(rs(0))
response.Write("
")
'递归来显示出此用户为根的树型结构
nodeUser(rs(0))
'完毕后转向下一个
rs.MoveNext
loop
'一个级别的显示完成后就缩进一下
i=i-1
rs.close
set rs=nothing
End Function
再用的时候搜索了一下,没有找到能实现类似传销样的会员树,特写了一个
'* 函数名称: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(" | ")
response.Write(" ")
next
response.Write(" |-> ")
'打印出此用户
response.Write(rs(0))
response.Write("
")
'递归来显示出此用户为根的树型结构
nodeUser(rs(0))
'完毕后转向下一个
rs.MoveNext
loop
'一个级别的显示完成后就缩进一下
i=i-1
rs.close
set rs=nothing
End Function
再用的时候搜索了一下,没有找到能实现类似传销样的会员树,特写了一个
相关文章
- 多邻国官网登录入口-Duolingo官方网页版入口 01-18
- 啥都能看的视频神器-资源最全的视频神器 01-18
- 新浪微博网页版手机端-新浪微博手机版网页入口 01-18
- 夸克网页版-夸克浏览器网页版入口 01-18
- 动漫共和国入口_动漫共和国官网与分类导航 01-18
- 绝世唐门漫画完整免费入口在哪?2026最新免费观看地址及平台汇总 01-18