< %
' 數據庫連接
set conn = Server.CreateObject( " ADODB.Connection " )
conn.open " driver={SQLServer};server=chaiwei;DATABASE=chaiwei;UID=sa;PWD= "
' 打開所有父層數據
set rs = Server.CreateObject( " ADODB.Recordset " )
rs.Open " select*frompowerswherebelongidisnullorderbypowerid " ,conn, 1 , 3
' 層次數表態變量賦初值
format_i = 1
' 列表主程序段
do while not rs.eof
' 打印父層數據信息
response.write " <ahref='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*frompowerswherebelongid= " & id & " orderbypowerid " ,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 " <ahref='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
EndSub
% >