树型结构在ASP中的简单解决

数表态变量递进累加
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") & ""
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
%>

　　powerlist.asp程序中，我们先打开顶层数据，在循环中显示出来;然后又设计一个子程序ListSubPower，通过递归算法在循环中调用，以此来打开子层数据信息，并且在子程序内部循环中又反复调用自己，以此来逐层展开深层数据。
　　另外，在程序中还用了一个静态变量format_i来控制缩进显示格式。

　　本文就树型结构在数据设计、程序控制方面做简单尝试，目的在于抛砖引玉，希望读者通过本文得到更多启示