递归问题（得出导航菜单）

[deiphi]

数据表如下：
ID MenuName MenuLevel MenuParentID
1 新闻 1 0
2 国际新闻 2 1
3 国内新闻 2 1
4 美国新闻 3 2
5 美国影视 4 4
-------------------------------------
现知道：
5 美国影视 4 4
如何用递归得出
当前位置：新闻 >> 国际新闻 >> 美国新闻 >> 美国影视


想了很久都得不出结果，唯有请各位指教了

[menrock]

<%
function menu(menuid)
set rs= Server.CreateObject("adodb.recordset")
sqlstr="select * from menutab where id="&menuid
rs.open sqlstr,conn,1,1
temp=""
if rs.eof then
rs.close
set rs=nothing
menu=temp
else
if rs("menulevel")=1 then temp=rs("menuName") else temp= temp&">>"&rs("menuName")
parent = menu(Rs("menuParentID"))
temp= parent&temp
End If
menu=temp
end function
%>
<%= menu(5) %>

[menrock]

或者
<%
function menu(menuid)
set rs= Server.CreateObject("adodb.recordset")
sqlstr="select * from menutab where id="&menuid
rs.open sqlstr,conn,1,1
temp=""
if rs.eof then
rs.close
set rs=nothing
menu=temp
else
if rs("menuParentID")=0 then temp=rs("menuName") else temp= temp&">>"&rs("menuName")
parent = menu(Rs("menuParentID"))
temp= parent&temp
End If
menu=temp
end function
%>
<%= menu(5) %>

[charkie]

这种东东还是挺有用的！
我只有佩服一下menrock的份了

[deiphi]

非常感谢 menrock(教坏细路)