asp无限分级(递归调用)

数据库字段:id(自动编号),class_name(菜单名),parentID(父菜单id) 代码如下: % dimm m=0 callShowTree(0)% % SubShowTree(parentID) dims m=m+1 Dimrs Setrs=Server.CreateObject('ADODB.RecordSet') sql='Selectclass_id,class_nameFROM[WMS_Class]whereclass_father_id='&Cint(pa

作者: 来源: 时间: 17-11-23 15:13:14

数据库字段: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
%>
11
22
33
隐藏区块

会员注册

本功能为预留功能,暂不支持注册 ^_^

Login

社交帐号登陆

使用以下任意帐号可登陆本站

Close section
Close

联系我们

关于5UCMS 您有任何需求 均可以留言给我们