最新下载
热门教程
- 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
再用的时候搜索了一下,没有找到能实现类似传销样的会员树,特写了一个
相关文章
- 1元10抖币官网直充入口-抖币充值iOS专享通道 10-28
- workbuddy电脑版官网下载-腾讯AI工作台官方入口直达 10-28
- workbuddy官网登录入口直达-腾讯workbuddy官方版下载获取 10-28
- mcjs网页版畅玩-mcjs极速秒玩 10-28
- yandex在线登录官网-俄罗斯引擎yandex官方入口 10-28
- 超星网页版登录入口-超星学习通官方登录地址 10-28