asp 無限級分類代碼

　　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

From:http://tw.wingwit.com/Article/program/net/201311/14387.html