<%
'参数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)
%>
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。