Function GetSonID(ParentID)
G_sql = "Select * From select_Class Where ParentID = " & int(ParentID)
Set Srs = EaspdbGetRecordBySQL(G_sql)
If Not SrsEof Then
While Not Srseof
GetSonID = GetSonID & "" & Srs("ClassID") & "" & GetSonID(Srs("ClassID"))
Srsmovenext
Wend
GetSonID = ParentID & "" & GetSonID
End IF
EaspdbC(Srs)
End Function
