帮忙看看这个递归错在哪里？数据只能出来一行
表中数据如下。如果以地球为起点，则得到所有记录，如果以中国为起点，则得到北京，浙江，宁波，杭州，如果以浙江为起点，则得到宁波，杭州。但是我写的递归只能得到一个记录。请帮忙检查
userid username number parentid
1 地球 001001
2 中国 001002 001001
3 美国 001003 001001
4 北京 001004 001002
5 浙江 001005 001002
6 宁波 001006 001005
7 杭州 001007 001005
代码如下：
.........................
<%
dim sRec,sSql
set sRec=server.createobject("adodb.recordset")
numb="0010001"
call more_list(numb)) '递归过程
set sRec=nothing
conn.close
set conn=nothing%>
..........................
<%
sub more_list(id)
sSql="select * from [User] where parentid='" & id &"'"
response.Write(ssql)
sRec.open sSql,conn,3,1
Do while not sRec.eof
response.Write "<tr>"
response.Write "<td bgcolor=""#FFFFFF"">"& sRec("level") &"</td>"
response.Write "<td bgcolor=""#FFFFFF"">"& sRec("number") &"</td>"
response.Write "<td bgcolor=""#FFFFFF"">"& sRec("username") &"</td>"
response.Write "</tr>"
call more_list(sRec("number"))
sRec.movenext
Loop
sRec.close
end sub
%>
问题点数：20、回复次数：1Top
1 楼dxef（丁学）回复于 2006-03-12 22:03:17 得分 20
--Copyright by zjcxc(SQL Server版大版主邹建)
--测试数据
CREATE TABLE tb(ID char(3),PID char(3),Name nvarchar(10))
INSERT tb SELECT '001',NULL ,'山东省'
UNION ALL SELECT '002','001','烟台市'
UNION ALL SELECT '004','002','招远市'
UNION ALL SELECT '003','001','青岛市'
UNION ALL SELECT '005',NULL ,'四会市'
UNION ALL SELECT '006','005','清远市'
UNION ALL SELECT '007','006','小分市'
GO
--查询指定节点及其所有子节点的函数
CREATE FUNCTION f_Cid(@ID char(3))
RETURNS @t_Level TABLE(ID char(3),Level int)
AS
BEGIN
DECLARE @Level int
SET @Level=1
INSERT @t_Level SELECT @ID,@Level
WHILE @@ROWCOUNT>0
BEGIN
SET @Level=@Level+1
INSERT @t_Level SELECT a.ID,@Level
FROM tb a,@t_Level b
WHERE a.PID=b.ID
AND b.Level=@Level-1
END
RETURN
END
GO
--调用函数查询002及其所有子节点
SELECT a.*
FROM tb a,f_Cid('002') b
WHERE a.ID=b.ID
/*--结果
ID PID Name
------ ------- ----------
002 001 烟台市
004 002 招远市
--*/Top
