菜单问题

[jilinwj]

菜单形式：
一级菜单1
二级菜单11
三级菜单11
三级菜单12
三级菜单13
二级菜单12
三级菜单11
三级菜单12
三级菜单13
二级菜单13
三级菜单11
三级菜单12
三级菜单13
一级菜单2
二级菜单21
二级菜单22
二级菜单23
一级菜单3
二级菜单31
二级菜单32
二级菜单33

如何实现？

[poonzsp]

给个例子给你看吧~

<%
Set rs1=Server.CreateObject("Adodb.RecordSet")
sql = "SELECT ID,sortname FROM product_sort where parentid=ID"
rs1.Open sql,conn
do until rs1.EOF
Response.Write "<option value='" & rs1("ID") & "' " & isSelected("",cstr(rs1("ID"))) & ">" & rs1("sortname") & "</option>"
Set rs2=Server.CreateObject("Adodb.RecordSet")
sql = "SELECT ID,sortname FROM product_sort where parentid<>ID and parentid=" & rs1("ID")
rs2.Open sql,conn
do until rs2.eof
Response.Write "<option value='" & rs2("ID") & "' " & isSelected("",cstr(rs2("ID"))) & ">┖" & rs2("sortname") & "</option>"
Set rs3=Server.CreateObject("Adodb.RecordSet")
sql = "SELECT ID,sortname FROM product_sort where parentid<>ID and parentid=" & rs2("ID")
rs3.Open sql,conn
do until rs3.eof
Response.Write "<option value='" & rs3("ID") & "' " & isSelected("",cstr(rs3("ID"))) & "> ┕" & rs3("sortname") & "</option>"
rs3.MoveNext
loop
rs3.Close
rs2.MoveNext
loop
rs2.Close
rs1.MoveNext
loop
rs1.Close
set rs1=nothing
set rs2=nothing
set rs3=nothing
%>

[jilinwj]

不懂？？
这个能够实现点击一级菜单显示/隐藏二级菜单和三级菜单，点击二级菜单显示/隐藏三级菜单得功能。

[bin323018]

up

[damuge2013]

下载这个现成的，简单易用：
http://www.gdclub.cn/demo/menutree/menutree.rar