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> | </font>")
response.Write("      ")
next
response.Write("<font color=red> |-> </font>")
'打印出此用户
response.Write(rs(0))
response.Write("<br>")
'递归来显示出此用户为根的树型结构
nodeUser(rs(0))
'完毕后转向下一个
rs.MoveNext
loop
'一个级别的显示完成后就缩进一下
i=i-1
rs.close
set rs=nothing
End Function

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

时间： 2025-01-21 15:36:27

ASP实现的无限级会员树型结构的相关文章

带数据库的ajax+asp无限级分类树型结构,好东西别错过！

跟大家分享一下自己写的一个树型结构,参考了动力文章的无限极分类树形结构数据库,看演示吧http://asptree.guaishi.org/aspajax/ 下面是核心类代码,注释是后来加的,可能有些写的不太正确 复制内容到剪贴板 代码: <%'数据库字段为类属性,添加.删除.修改.操作检查等函数为类的方法Class Cls_Leibie    Private nClassID,sClassName,nParentID,sParentPath,nDepth,nRootID,nChild,nOrd

ajax+asp无限级分类树型结构(带数据库)_应用技巧

IE测试通过,FF有点小BUG Cls_Leibie.asp 复制代码 代码如下: <% '数据库字段为类属性,添加.删除.修改.操作检查等函数为类的方法 Class Cls_Leibie Private nClassID,sClassName,nParentID,sParentPath,nDepth,nRootID,nChild,nOrderID,sFilePath '定义私有变量(类的属性,即数据库字段对应的变量) Private rs,sql,ErrorStr Private Sub Cl

ajax+asp无限级分类树型结构的代码_AJAX相关

复制代码 代码如下: <% '数据库字段为类属性,添加.删除.修改.操作检查等函数为类的方法 Class Cls_Leibie     Private nClassID,sClassName,nParentID,sParentPath,nDepth,nRootID,nChild,nOrderID,sFilePath '定义私有变量(类的属性,即数据库字段对应的变量)     Private rs,sql,ErrorStr     Private Sub Class_Initialize()   

ajax+asp无限级分类树型结构(带数据库)

IE测试通过,FF有点小BUG Cls_Leibie.asp 复制代码 代码如下: <% '数据库字段为类属性,添加.删除.修改.操作检查等函数为类的方法 Class Cls_Leibie Private nClassID,sClassName,nParentID,sParentPath,nDepth,nRootID,nChild,nOrderID,sFilePath '定义私有变量(类的属性,即数据库字段对应的变量) Private rs,sql,ErrorStr Private Sub Cl

ajax+asp无限级分类树型结构的代码

复制代码 代码如下: <% '数据库字段为类属性,添加.删除.修改.操作检查等函数为类的方法 Class Cls_Leibie     Private nClassID,sClassName,nParentID,sParentPath,nDepth,nRootID,nChild,nOrderID,sFilePath '定义私有变量(类的属性,即数据库字段对应的变量)     Private rs,sql,ErrorStr Private Sub Class_Initialize()       

蛙蛙推荐:asp实现树型结构

树型结构|树型结构 <!-- -----------[test]表生成脚本---------------if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[test]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)drop table [dbo].[test]GO CREATE TABLE [dbo].[test] ( [id] [int] IDENTITY (1,

树型结构在ASP中的简单解决

解决|树型结构 树型结构在我们应用程序中还是很常见的,比如文件目录,BBS,权限设置,部门设置等.这些数 据信息都采用层次型结构,而在我们现在的关系型数据库中很难清淅表达.那么要在程序中遇到树型 结构问题该如何处理呢? 最近笔者通过一个ASP权限管理的程序轻松解决了一这问题,现在将其整理出来以飨读者. 首先,要将层次型数据模型转化为关系型数据模型.也就是说如何在我们的ACCESS,SQL SERVER ,ORACLE等关系型数据库中设计这个数据结构. 拿个实例来讲吧,譬如下面一个数据: 文档管理

asp实现树型结构_应用技巧

蛙蛙推荐:asp实现树型结构     选择自 onlytiancai 的 Blog   关键字   蛙蛙推荐:asp实现树型结构  出处      <!--  -----------[test]表生成脚本--------------- if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[test]') and OBJECTPROPERTY(id, N'IsUserTable') = 1) drop table

asp实现树型结构

蛙蛙推荐:asp实现树型结构     选择自 onlytiancai 的 Blog   关键字   蛙蛙推荐:asp实现树型结构  出处 <!--  -----------[test]表生成脚本--------------- if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[test]') and OBJECTPROPERTY(id, N'IsUserTable') = 1) drop table [dbo