ASP无限级分类的读取问题

fhquemc 2010-08-06 01:06:25
数据库中有这样一个表结构:
ID     className               UPID(上一级ID)
1 父级分类名 NULL(为空)
2 子类 1
3 子类中的子类 2
4 子类中的子类的子类 3

......

(后面有可能还有多级子类)



我想根据“子类中的子类的子类”的ID,查询之后在面页中显示成:父级分类名 > 子类 > 子类中的子类 > 子类中的子类的子类


请教高手,代码如何写?
...全文
88 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
scscms太阳光 2010-08-06
  • 打赏
  • 举报
回复
无限级分类演示www.scscms.com/Article/
scscms太阳光 2010-08-06
  • 打赏
  • 举报
回复
这不就是我用的无限级分类吗,你怎么拿出来晒干
'==================================
'=功 能:读取分类下所有小分类ID,输出结果例子 ,2,10,14
'==================================
function ReadSubId(id)
Dim c_sql,c_rs,cat_id,F_List
c_sql="Select id From [Scs_cat] where upid="&id
Set c_rs=Server.Createobject("adodb.recordset")
c_rs.open c_sql,Conn,1,1
If Not(c_rs.Bof Or c_rs.Eof) Then
Do While Not c_rs.Eof
cat_id=c_rs(0)
F_List=F_List&","&cat_id
F_List=F_List&ReadSubId(cat_id)
c_rs.MoveNext
Loop
End If
c_rs.Close:Set c_rs=Nothing
ReadSubId=F_List
End Function
gaozhen1990 2010-08-06
  • 打赏
  • 举报
回复
函数,调用函数本身。。。
魔音飞鹰 2010-08-06
  • 打赏
  • 举报
回复
递归函数,百度一下代码
fhquemc 2010-08-06
  • 打赏
  • 举报
回复
数据库结构不能改

递归是咱个写的哦,能否给个例子?
xcgh 2010-08-06
  • 打赏
  • 举报
回复
最好还有个字段叫深度,没有也可以。用递归写

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧