28,390
社区成员
发帖
与我相关
我的任务
分享一个递归的小问题，在线等
我已经用递归实现了目录树的读取，但现在只是数据读出来了，还没有实现树形结构，代码如下，请大家帮忙。
function tree(prid)
Set rs=Server.CreateObject("Adodb.Recordset")
Sql="select * from tree where parentid="&int(prid)&""
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
response.write "├"&rs("classname")&"<br>"
tree(rs("ID"))
rs.movenext
loop
else
rs.close
set rs=nothing
end if
end function
function tree(prid)
Set rs=Server.CreateObject("Adodb.Recordset")
Sql="select * from tree where parentid="&int(prid)&""
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
response.write "├"&rs("classname")&"<br>"
tree(rs("ID"))
rs.movenext
loop
else
rs.close
set rs=nothing
end if
end function
...全文
请发表友善的回复…
发表回复
csharp5460 2004-11-22
- 打赏
- 举报
是不是要在表里加一个字段level作为深度，那这样的话我每加一个节点不就要在相应的父节点加一吗
iuhxq 2004-11-22
- 打赏
- 举报
要定义个全局变量，记录树的深度
然后在前面输出深度数量的空格
然后在前面输出深度数量的空格
csharp5460 2004-11-22
- 打赏
- 举报
顶
csharp5460 2004-11-22
- 打赏
- 举报
顶
