asp 无限级分类代码

2015-08-12 16:02:54来源:作者:人点击

Function GetSonID(ParentID)
       G_sql = "Select * From select_Class Where ParentID = " & int(ParentID)
       Set Srs = Easp.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

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台