Wintalen的博客

一个人,只有当他的灵魂真正撼动了、刺痛了,他的智慧才可能被空前的发掘。人一旦变得清醒、理智起来,他就一步步靠近了成熟。...

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>")
%>

阅读更多
个人分类: 技术文档
想对作者说点什么? 我来说一句

JSP与无限级分类树型菜单

2008年12月26日 3KB 下载

无限级分类js菜单 样本

2009年04月04日 48KB 下载

没有更多推荐了,返回首页

不良信息举报

ASP无限级分类菜单

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭