1. <%               
2. dim m               
3. m=0               
4. call ShowTree(0)               
5. Sub ShowTree(parentID)               
6. dim s               
7. m=m+1               
8. Dim rs               
9. Set rs = Server.CreateObject("ADODB.RecordSet")               
10. sql="SELECT class_id,class_name FROM [WMS_Class] where class_father_id="&Cint(parentID)               
11. rs.open sql,Conn,1,1               
12. if rs.eof and m = 1 then               
13. response.Write("该频道暂无栏目")               
14. end if               
15. Do While Not rs.Eof               
16. response.Write rs(0)               
17. for n=1 to m               
18. if n = m and m = 1 then               
19. Response.Write ("╋")               
20. elseif n = 1 then               
21. Response.Write ("　")               
22. elseif n = m then               
23. Response.Write ("├")               
24. else               
25. Response.Write ("│")               
26. end if               
27. next               
28. response.Write rs(1)"<br>"              
29. Call ShowTree(rs(0))               
30. m=m-1               
31. rs.Movenext               
32. Loop              
33. End Sub              
34. %>  

效果如下:

1╋1级导航A
5　├2级导航A
6　│├3级导航A
7　││├4级导航A
8　│││├5级导航A
9　├2级导航B
12　│├3级导航A
10　├2级导航C
11　├2级导航D
2╋1级导航B
3╋1级导航C
4╋1级导航D