ASP递归任意一个节点下的所有属于这个节点的子节点子、子节点直到无节点为止，并返回这些节点ID？

[sunboy_163]

表名:TB
字段名：

ID:子节点ID
RootID：父节点ID
Name：部门名称

Function getRootIdAll()

...

End Function

传入一个ID，然后递归查询该ID下所有节点ID，返回形式getRootIdAll="1,2,3,4"这样的字符串...

如果没有子节点，就返回它本身ID。

用于根据树型结构按结点查询记录。。。

最终实现的SQL:
select * from userTab where id in (getRootIdAll)

这样就可以实现选择一个节点，查询该节点下所有记录的目的。。。

[hongmei85]

大概是这个意思？
Set objRs = Server.CreateObject("ADODB.RecordSet")
Function getRootIdAll(intId)
Dim strTemp,strSql
strTemp = intId
strSql = "select [Id] from TB where [RootId] = "& intId
objRs.open strSql,objConn
If(Not oRs.eof) Then
arrRs = objRs.GetRows()
objRs.Close

For j = 0 to ubound(arrRs,2)
strTemp = strTemp & "," & getRootIdAll(arrRs(0,j))
Next
Else
objRs.Close
End If

getRootIdAll = strTemp
End Function