asp无限分级(递归调用)

时间:2021-03-17 人气:0

想了解asp无限分级(递归调用)的相关内容吗，在本文为您仔细讲解的相关知识和一些Code实例，欢迎阅读和指正，我们先划重点：ASP无限分级无限分级递归调用递归调用，下面大家一起来学习吧。

数据库字段: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 
%>

加载全部内容