一个递归的小问题,在线等
我已经用递归实现了目录树的读取,但现在只是数据读出来了,还没有实现树形结构,代码如下,请大家帮忙。
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