复制代码 代码如下:

Function getTreeRootId(pNodeId)

getSQL = "select note_id,parent_id from [T_tree_demo] where note_id='"& pNodeId &"'"

Set getRs = db.Execute(getSQL)

If Not getRs.eof Then

If Trim(getRs("parent_id")) = "0" Then

getTreeRootId = Trim(getRs("note_id"))

Exit Function

Else

getTreeRootId = getTreeRootId(Trim(getRs("parent_id")))

End If

Else

getTreeRootId = 0

Exit Function

End If

getRs.close

Set getRs = Nothing

End Function