ASP递归调用：已知节点查找根节点的函数

 

1 Function getTreeRootId(pNodeId)
2 getSQL = " select note_id,parent_id from [T_tree_demo] where note_id=' " & pNodeId & " ' "
3 Set getRs = db.Execute(getSQL)
4 If Not getRs.eof Then
5 If Trim (getRs( " parent_id " )) = " 0 " Then
6 getTreeRootId = Trim (getRs( " note_id " ))
7 Exit Function
8 Else
9 getTreeRootId = getTreeRootId( Trim (getRs( " parent_id " )))
10 End If
11 Else
12 getTreeRootId = 0
13 Exit Function
14 End If
15 getRs.close
16 Set getRs = Nothing
17   End Function
18  

 

转载于:https://www.cnblogs.com/qumao5736/archive/2009/12/03/1616213.html