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