数据库字段:id(自动编号),class_name(菜单名),parentID(父菜单id) 复制代码 代码如下:<% dim m m=0 call ShowTree(0)%> <% Sub ShowTree(parentID) dim s m=m+1 Dim rs Set rs = Server.CreateObject("ADODB.RecordSet") sql="Select class_id,class_name FROM [WMS_Class] where class_father_id="&Cint(parentID) rs.open sql,Conn,1,1 if rs.eof and m = 1 then response.Write("该频道暂无栏目") end if Do While Not rs.Eof response.Write rs(0) for n=1 to m if n = m and m = 1 then Response.Write ("╋") elseif n = 1 then Response.Write ("　") elseif n = m then Response.Write ("├") else Response.Write ("│") end if next response.Write rs(1)&"<br>" Call ShowTree(rs(0)) m=m-1 rs.Movenext Loop End Sub %>

　　推荐阅读

　　ASP中FSO的神奇功能 - 使用FSO进行搜索

作 者 : 甘冀平 　　 你也许想：好，现在我知道如何写入文件了。但能做到更多一些吗？下面来试一试为web站点建立一个搜索功能。 　　 建立搜索引擎的关键是递归。主要地，编写一段代码搜索目录下的文件，然后对所有>>>详细阅读

本文标题：asp无限分级(递归调用)

地址：http://www.17bianji.com/kaifa2/ASP/32942.html

 1/2    1