西安网站建设ASP读取无限级分类栏目的递归方法

20342012-09-01

西安网站建设ASP读取无限级分类栏目的递归方法

<%
'参数LeftText可以很方便的区分父栏目与子栏目之间的'错位'关系
Function SelectList(ID, LeftText)
    Dim Rs, Sql, ChildCount
    Set Rs = Server.CreateObject("Adodb.Recordset")
    Sql = "Select ID,ColumnName from Column where ParentID = " & ID & " " '起始栏目
    Sql = Sql & "Order by ID ASC"
    Rs.Open Sql, Conn, 1, 1
    Do While Not Rs.EOF
        ChildCount = Conn.Execute("Select Count(*) from Column where ParentID = " & Rs(0))(0) '子栏目数量
        Response.Write("<option value=""" & Rs(0) & """>" & LeftText & Rs(1) & "</option>" & vbCrLf)
        If ChildCount > 0 Then Call SelectList(Rs(0), LeftText & "  ┣ ") '递归
        Rs.MoveNext
    Loop
    Rs.Close
    Set Rs = Nothing
End Function
%>

调用方法:

<%
Response.Write("<select name=""SortID"" id=""SortID"">" & vbCrLf)
Call SelectList(0, "")
Response.Write("</select>" & vbCrLf)
%>

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:029-89640155 18991365125

公司地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

办公电话:029-89640155

服务热线:18991365125

客服信箱:vip@dianmo.cc

846461336327

西安点墨网络科技有限公司

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1