关闭

ASP无限级分类菜单

818人阅读 评论(0) 收藏 举报

分类数据库结构
    数据库表名: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>")
%>

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:90371次
    • 积分:860
    • 等级:
    • 排名:千里之外
    • 原创:32篇
    • 转载:23篇
    • 译文:0篇
    • 评论:15条
    文章分类