asp 无限级分类代码

时间:2012-12-31 22:56来源:未知作者:admin 点击: 次

分享到：

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

上一篇：asp文件上传错误'800a0005'的解决方法
下一篇：asp split 函数入门教程

分享到： QQ空间新浪微博人人网开心网更多

精彩图集

精彩文章

热点文章

热门标签

链表调用WebService Lesson01_07 全排列算法 var UpdateDaset 解除禁用繁体双击table 深入分析 php常用字符串采集网站资源微信打开网页实时推送代建立数据库 php常用函数二级只读属性对象完全退出 bond 防范 SQL执行错误判断机器整型参数转 php php中使用sw socket.error 扩展模块搜索技术文章新浪开放接口 pyside unescape 直接下载读写数据库原因分析磁盘更改 php php判断来访工具 php解压文件删除行并发下载检测链接 interface def 皇后 SQL*Loader 垂直平铺均衡 php PHP面计划任务 QQ游戏线程锁系统登录类型强制转换顶尖算法连续日期漏洞 webwiew 元素拖动解法 Mysql数据库优化

asp 无限级分类代码

热门标签

赞助商链接