ASP读取无限级分类栏目的递归方法asp
<%
'参数LeftText可以很方便的区分父栏目与子栏目之间的'错位'关系
Function SelectList(ID, LeftText)
Dim Rs, Sql, ChildCount
Set Rs = Server.CreateObject("Adodb.Recordse...
<%
'参数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
'参数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)
%>
我要评论