一段无限级菜单代码

//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
%>