整理一个树型问题的处理方法

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

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

　　然后，我们就针对如何在网页中模仿层次结构显示这功能的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 "

关键词：整理一个树型问题的处理办法