下拉樹 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 '統計共有幾次循環，或者說幾個Children Rs.Open Sql,Conn,1,1 If Rs.Eof And Rs.Bof Then 'Response.Write(show_head(h)&"暫無子欄目<br>") Else For I = 1 To Rs.recordcount Response.Write " <option>"&Show_Head(Dep)&Rs("SortNameCh")&"</option><br />"&VbCrLf '輸出欄目名稱 Tree(Rs("ID")) Rs.MoveNext Next End If Dep = Dep -1 '退出下一級欄目，返回父級接着遍歷 End Function Function Show_Head(dep) '遍歷級別 For J = 1 To Dep Show_Head = Show_Head&" ├"&VbCrLf Next End Function %> <select><%call Tree(0)%></select>

 

圖片效果：