ASP无限级分类菜单

分类数据库结构
    数据库表名：Orders
    字段：
        Id,自动编号,不可重复
        OrderName,文本,分类名称
        ParentId,整数,父类ID

读取分类函数
 
下面是 asp 代码：

<%
Function getlist(parentid,k)
 Dim Rss
 Set Rss = Conn.Execute("select * from Orders where ParentId="&parentid&" order by OrderName")
 Do While Not Rss.EOF
  getlist = getlist & "<tr><td height='20'>" & tmp(k) & Rss("OrderName") &"</td></tr>"
  getlist = getlist & getlist(Rss("Id"),k+1)
  Rss.MoveNext
 Loop
 Rss.close
 set Rss = nothing
End Function

Private Function tmp(n)
 Dim i
 For i = 0 To n
  tmp = tmp & "&nbsp;&nbsp;"
 Next
End Function
%>

 
调用函数开始分类
 
下面是 asp 代码：

<%
Response.Write("<table border='0' cellspacing='0' cellpadding='0' width='300'>")
Set Rs = Conn.Execute("select * from Orders where ParentId=0 order by OrderName")
Do While Not Rs.EOF
 Response.Write "<tr><td height='20'>" & Rss("OrderName") & "</td></tr>"
 Response.Write getlist(Rs("Id"),0)
 Rs.MoveNext
loop
Rs.Close
Response.Write("</table>")
%>