树形菜单和下拉条？？？

susu051 2004-08-18 11:17:30

例如本网站左边的树形菜单，还有就是网页上面的下拉条，我说的不是用
<select name="class">
<option value="" selected>任何类别</option>
</select>做的
请帮忙了

...全文

149 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

cynthia8 2004-08-18

打赏
举报

我现在用的是treeMaker制作树型网页菜单，你可在网上搜一下，下载下来

davyyan 2004-08-18

打赏
举报

给个提示你：
<%@ Language=VBScript %>
<%Option Explicit%>
<%
Dim items(10,2), maxItems
maxItems = 9
items(0,0) = "节点 1"
items(1,0) = "节点 1"
items(2,0) = "节点 1"
items(3,0) = "节点 2"
items(4,0) = "节点 2"
items(5,0) = "节点 2"
items(6,0) = "节点 3"
items(7,0) = "节点 3"
items(8,0) = "节点 3"
items(9,0) = "节点 3"

items(0,1) = "子节点 1.1"
items(1,1) = "子节点 1.2"
items(2,1) = "子节点 1.3"
items(3,1) = "子节点 2.1"
items(4,1) = "子节点 2.2"
items(5,1) = "子节点 2.3"
items(6,1) = "子节点 3.1"
items(7,1) = "子节点 3.2"
items(8,1) = "子节点 3.3"
items(9,1) = "子节点 3.4"
%>

<%
Dim index,currentItem, openItem
openItem = Request.QueryString("open")
%>
<HTML>
<HEAD>
<TITLE>ASP提纲</TITLE>
</HEAD>
<BODY>
<h2>ASP提纲</h2>
<UL>

<%
index = 0
Do while index <= maxItems
if items(index,0) <> currentItem then
If items(index,0) <> openItem then _
Response.Write("<a href='outline.asp?open=" & _
Server.URLEncode( items(index,0) ) & "'>" )
Response.Write( "<LI>" & items(index,0) & "</a>" )
End If

currentItem = items(index,0)
If items(index,0) = openItem then
Response.Write("<UL>")
Do While index <= maxItems AND items(index,0) = openItem
Response.Write( "<LI>" & items(index,1) )
index = index + 1
Loop
Response.Write("</UL>")
End If
index = index + 1
Loop
%>
</UL>
</BODY>
</HTML>