<
%
'
數據庫連接
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
%
>
更多文章、技術交流、商務合作、聯系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號聯系： 360901061
您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點擊下面給點支持吧，站長非常感激您！手機微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對您有幫助就好】元
