Question

ASP 一个无限分类问题

数据库分类表
Category
表字段
CategoryID 自动编号 分类ID
Name 文本 分类名称
FateherID 数字 父分类ID

数据库产品表
Product
表字段
Id 自动编号 ID
Name 文本 产品名称
CategoryID 数字 分类ID

【问题】

我已经实现了 无限分类的【添加】【修改】【删除】
现在实现显示无限分类为一下样子

http://www.jymdhg.com/2006/1.jpg

但是我弄了一上午我都不知道怎么显示，希望大家帮助一下我。我这个号是申请的，也就这么点分.大家帮帮我
用ASP实现

Answer 1

<%
'假设CategoryID 字段为ID ,呵呵是它太长了我懒得打字
temp=""
set rs1=Server.createObject("adodb.recordSet")
sq1="select * from category where FateherID=0" '显示第一级
rs1.open sq1,conn,1,1
While not rs1.eof
temp=temp&"<option value="&rs1("ID")>"&rs1("name")&"</option>"
temp=temp+vbcrlf '换行 --是为了代码好看点
temp=temp&searchChild(bb,rs1("CategoryID")) '添加它的儿子 bb是添加分割号
rs1.movenext
Wend
rs1.close
set rs1=nothing

function searchChild(tt,tid)
b="" '临时变量
set rst=server.createObject("Adodb.recordSet")
sq="select * from category where id="&tid
rst.open sq,conn1,1
IF rst.recordCount>0 then
while not rst.eof
tt=tt&"|"
b=b&"<option value="&rst("ID")>"&tt&"-"&rst("name")&"</option>"+vbcrlf
b=b&searchChild(tt,rst(ID"))
rst.movenext
Wend
Else
b=""
Exit
END IF
rst.close
set rst=nothing
searchChild=b
end function
%>
<select>
<%=temp%>
</select>