asp 无限级分类代码

Function GetSonID(ParentID)
G_sql = "Select * From select_Class Where ParentID = " & int(ParentID)
Set Srs = E.db.GetRecordBySQL(G_sql)
If Not Srs.Eof Then
While Not Srs.eof
GetSonID = GetSonID & "," & Srs("ClassID") & "," & GetSonID(Srs("ClassID"))
Srs.movenext
Wend
'GetSonID = ParentID & "," & GetSonID
End IF
Easp.db.C(Srs)
End Function