انسخ رمز دالة asp للعثور على العقدة الجذرية لعقدة معروفة، ويكون الرمز كما يلي:
الدالة getTreeRootId(pNodeId)
getSQL = حدد note_id,parent_id من [T_tree_demo] حيث note_id='& pNodeId &'
تعيين getRs = db.Execute(getSQL)
إذا لم يكن getRs.eof ثم
إذا كان Trim(getRs(parent_id)) = 0 إذن
getTreeRootId = Trim(getRs(note_id))
وظيفة الخروج
آخر
getTreeRootId = getTreeRootId(Trim(getRs(parent_id)))
نهاية إذا
آخر
معرف getTreeRoot = 0
وظيفة الخروج
نهاية إذا
getRs. Close
اضبط getRs = لا شيء
وظيفة النهاية