一段無限級菜單代碼 - 中國WEB開發者網絡 (http://www.webasp.net) -- 技術教程 (http://www.webasp.net/article/) --- 一段無限級菜單代碼 (http://www.webasp.net/article/17/16999.htm)

-- 作者：未知 -- 發佈日期： 2005-03-15

//boardid 文章ID（自動增長） parentid 父級ID 默認為0 (0代表最高級) boardtype 菜單名. 其它字段省 ---------------------------------------------- | boardid | type | parentid | ---------------------------------------------- 核心代碼: //先取出最高級(parentid=0)的分類 <% set rs1=server.createobject("adodb.recordset") sql1="select * from board where parentid=0 order by id" rs1.open sql1,conn,1,1 if rs1.eof or rs1.bof then response.write"還沒論壇分類!" else while not rs1.eof id1=rs1("id") type1=rs1("boardtype") parentid1=rs1("parentid") call recursion(id1,type1,parentid1) rs1.movenext wend end if rs1.close set rs1=nothing %> <% sub recursion(id,m_boardtype,m_parentid) '遞歸調用函數,生成一個類別代碼 set rs=server.createobject("adodb.recordset") sql="select * from board where parentid="&id rs.open sql,conn,1,1 while not rs.eof id0=rs("id") type0=rs("boardtype") parentid0=rs("parentid") call recursion(id0,type0,parentid0) rs.movenext wend rs.close set rs=nothing %>

webasp.net