下拉树 T形下拉树 跳转

<!--#Include File="../Include/ConnSiteData.asp"--><%Dep = -1 '这里设置为-1，为的是第一级栏目不显示├Function Tree(id)Dep = Dep+1 '进入下一级栏目遍历Set Rs = Server.CreateObject("Adodb.RecordSet")Sql = "Select SortNameCh,SortNameEn,ID From Qianbo_ProductSort Where ParentID = "&id '统计共有几次循环，或者说几个ChildrenRs.Open Sql,Conn,1,1If Rs.Eof And Rs.Bof Then'Response.Write(show_head(h)&"暂无子栏目<br>")ElseFor I = 1 To Rs.recordcountResponse.Write "<option>"&Show_Head(Dep)&Rs("SortNameCh")&"</option><br />"&VbCrLf '输出栏目名称 Tree(Rs("ID"))Rs.MoveNextNextEnd IfDep = Dep -1 '退出下一级栏目，返回父级接着遍历End FunctionFunction Show_Head(dep) '遍历级别For J = 1 To DepShow_Head = Show_Head&" ├"&VbCrLfNextEnd Function%><select><%call Tree(0)%></select>

 

图片效果：