最新下载
热门教程
- 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
再用的时候搜索了一下,没有找到能实现类似传销样的会员树,特写了一个
相关文章
- 王者荣耀侦探能力大测试攻略 王者荣耀侦探能力大测试怎么过 11-22
- 无期迷途主线前瞻兑换码是什么 11-22
- 原神欧洛伦怎么培养 11-22
- 炉石传说网易云音乐联动怎么玩 11-22
- 永劫无间手游确幸转盘怎么样 11-22
- 无期迷途主线前瞻兑换码是什么 无期迷途主线前瞻直播兑换码介绍 11-22