分享
 
 
 

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

王朝html/css/js·作者佚名  2006-12-17
窄屏简体版  字體: |||超大  

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

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

>>>>树型结构在我们应用程序中还是很常见的,比如文件目录,BBS,权限设置,部门设置等。这些数

据信息都采用层次型结构,而在我们现在的关系型数据库中很难清淅表达。那么要在程序中遇到树型

结构问题该如何处理呢?

>>>>最近笔者通过一个ASP权限管理的程序轻松解决了一这问题,现在将其整理出来以飨读者。

>>>>首先,要将层次型数据模型转化为关系型数据模型。也就是说如何在我们的ACCESS,SQL SERVER

,ORACLE等关系型数据库中设计这个数据结构。

>>>>拿个实例来讲吧,譬如下面一个数据:

文档管理 1

|----新建文档 2

|----文档修改 3

|----文档归档 4

| |----查看归档信息 5

| |----删除归档信息 6

| | |----删除历史文档 7

| | |----删除正式文档 8

|----系统管理 9

|----用户管理 10

人事管理 11

行政管理 12

财务管理 13

>>>>这是一个很典型的层次型结构数据,那么大家想一想,如何将其通过二维表的形式来表达呢?初

看上去很难,是吧。可是仔细推敲一番还是有门路可钻的。

>>>>可以这样,将上面所有的权限视为一个权限字段,那么这个权限字段肯定是要有一个ID值的。我

们再给这个关系型数据表再强行加一个字段——隶属ID字段,也就是表明这个权限是属于哪一级权限

之下的,即这个ID值隶属于哪一个ID值。比如:“查看归档信息”权限ID值为“5”,它是隶属于“文

档归档”权限之下的,那么它的隶属ID字段的值就应该是“4”。OK,如果这一点能理解的话,那么我

们的关系转化工作也就算基本完成了。

>>>>下面我们就开始设计这张关系型数据表(以Sql Server 7.0 为例):

+-----------+-----------+-----------+-----------+----------+

>>>>|>>字段名 | 字段含义 |>>字段类型 | 字段大小 | 字段属性 |

+-----------+-----------+-----------+-----------+----------+

| SelfID | 权限ID | Int | 4 | PK |

| PowerName | 权限名>> | Varchar | 50 | Not Null |

| PowerInfo | 权限信息 | Varchar | 500 | |

| BelongID | 隶属ID | Int | 4 | |

+-----------+-----------+-----------+-----------+----------+

>>>>好了,结构设计好你就可以轻松输入你的测试数据了。

>>>>然后,我们就针对如何在网页中模仿层次结构显示这功能的ASP程序,这也是最关键的一步了。

程序清单:powerlist.asp

<%

'数据库连接

set conn=Server.CreateObject('ADODB.Connection')

conn.open 'driver={SQL Server};server=chaiwei;DATABASE=chaiwei;UID=sa;PWD='

'打开所有父层数据

set rs=Server.CreateObject('ADODB.Recordset')

rs.Open 'select * from powers where belongid is null order by powerid',conn,1,3

'层次数表态变量赋初值

format_i=1

'列表主程序段

do while not rs.eof

'打印父层数据信息

response.write '<a href='powerlist.asp?SelfID=' & rs('powerid') & '&BelongID=' & rs('belongid') & ''>' & rs('powername') & '</a>'

response.write '<br>'

'子程序调用,子层数据处理

Call ListSubPower(rs('powerid'))

rs.movenext

loop

'关闭父层数据集

rs.close

set rs=nothing

'子层数据处理子程序

Sub ListSubPower(id)

'打开隶属于上层 powerid 的所有子层数据信息

set rs_sub=Server.CreateObject('ADODB.Recordset')

rs_sub.Open 'select * from powers where belongid=' & id & ' order by powerid',conn,1,3

'列子层数据

do while not rs_sub.eof

'层次数表态变量递进累加

format_i=format_i+1

'循环缩进格式控制,因为顶层与二层不需要缩进,所以从第三层开始引用此程序段

for i=format_i to 3 step -1

response.write ' |'

response.write ' '

next

'打印子层数据信息

response.write ' |----'

response.write '<a href='powerlist.asp?SelfID=' & rs_sub('powerid') & '&BelongID=' & rs_sub('belongid') &''>' & rs_sub('powername') & '</a>'

response.write '<br>'

'递归调用子程序本身,对子层数据进行逐渐处理

ListSubPower(rs_sub('powerid'))

rs_sub.movenext

loop

'层次数表态变量递退累减

format_i=format_i-1

'关闭子层数据集

rs_sub.close

set rs_sub=nothing

End Sub

%>

>>>>powerlist.asp程序中,我们先打开顶层数据,在循环中显示出来;然后又设计一个子程序ListSubPower,通过递归算法在循环中调用,以此来打开子层数据信息,并且在子程序内部循环中又反复调用自己,以此来逐层展开深层数据。

>>>>另外,在程序中还用了一个静态变量format_i来控制缩进显示格式。

>>>>本文就树型结构在数据设计、程序控制方面做简单尝试,目的在于抛砖引玉,希望读者通过本文得到更多启示。 不错,不知道递归调用 ListSubPower(rs_sub('powerid')) 是否行得通,试下先

原先我也是用这种方法的,不过这种方法就是要做很多次递归,

现在用两面个字段来完成,

+--------+-------------+--------------+-------------+

| 编号 | 名称 | 父类 | 所有父类 |

+--------+-------------+--------------+-------------+

| 1 | 分类1 | null | 1 |

+--------+-------------+--------------+-------------+

| 2 | 分类2 | 1 | 1-2 |

+--------+-------------+--------------+-------------+

| 3 | 分类3 | 1 | 1-3 |

+--------+-------------+--------------+-------------+

| 4 | 分类4 | 2 | 1-2-4 |

+--------+-------------+--------------+-------------+

利用这种结构可以只读一次数据库便可以读取某一类及其所有子类。

如:select * from tabel where 所有父类 like '1%' order by 所有父类

便可得志出以下结果

+ 分类1

|--+ 分类2

| |--+ 分类4

|--+ 分类3

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有