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
%>