熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

asp 無限級分類代碼

2013-11-13 10:43:40  來源: .NET編程 

  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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.