程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> asp無限分級(遞歸調用)

asp無限分級(遞歸調用)

編輯:關於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
%>
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved