下载地址： http://www.knowsky.com/download/treemenu.rar
关键代码：
<%
设置 conn=server.createobject("ADODB.CONNECTION")
connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Microsoft Access 驱动程序 (*.mdb)};"
conn.打开 connstr
功能菜单(id)
设置 rs=server.CreateObject("adodb.recordset")
sql="从菜单中选择*，其中 id1="&id&" 按 url、id 排序"
rs.open sql,conn,1,1
如果 rs.recordcount=0 那么
rs.close
设置 rs=无
退出功能
结束如果
response.write("<table border='0' cellspacing='0' cellpadding='0'>")
我=1
而不是 rs.eof
如果 len(rs("url"))>0 那么
如果 i=rs.recordcount 那么
菜单类型=“文件1”
别的
菜单类型=“文件”
结束如果
menuname="<a href='"&rs("url")&"' target='_blank'>"&rs("menuname")&"</a>"
鼠标悬停=“”
别的
如果 i=rs.recordcount 那么
菜单类型=“菜单3”
列表类型=“列表1”
onmouseup="with(eval('id"&rs("id")&"'))if(style.display==''){style.display='none';this.className='menu3';}else {style.display='';this.className='menu4';}"
别的
菜单类型=“菜单1”
列表类型=“列表”
onmouseup="with(eval('id"&rs("id")&"'))if(style.display==''){style.display='none';this.className='menu1';}else {style.display='';this.className='menu2';}"
结束如果
菜单名=rs("菜单名")
结束如果
%>
<tr>
<td class="<%= menutype%>" onMouseUp="<%= onmouseup%>"><%= menuname%></td>
</tr>
<%if len(rs("url"))<3 then%>
<tr id="id<%= rs("id")%>" style="display:none">
<td class="<%= listtype%>"><%menu(rs("id"))%></td>
</tr>
<%
结束如果
rs.movenext
我=我+1
文德
响应.write("</table>")
rs.close
设置 rs=无
结束函数
%>
<html>
<头>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>=========无限级目录树=========http://www.downcodes.com</title>
<样式类型=“文本/css”>
<!--
.menu1 {
背景图像：url(folder1.gif);
背景重复：不重复；
高度：17px；
左：32 像素；
左内边距：32px；
光标：手；
}
.menu2 {
背景图像：url(folder2.gif);
背景重复：不重复；
高度：17px；
左：32 像素；
左内边距：32px；
光标：手；
}
.menu3 {
背景图像： url(folder3.gif);
背景重复：不重复；
高度：17px；
左：32 像素；
左内边距：32px；
光标：手；
}
.menu4 {
背景图像：url(folder4.gif);
背景重复：不重复；
高度：17px；
左：32 像素；
左内边距：32px；
光标：手；
}
。列表 {
左内边距：20px；
背景图像： url(list.gif);
背景重复：重复-y；
}
.list1 {
左内边距：20px；
}
。文件 {
背景图像： url(file.gif);
背景重复：不重复；
高度：16px；
光标：手；
左内边距：32px；
}
.file1 {
背景图像： url(file1.gif);
背景重复：不重复；
高度：16px；
光标：手；
左内边距：32px；
}
身体 {
字体大小：9pt；
颜色：#000000；
背景颜色：#FFFFFF；
}
一个：链接{
字体大小：9pt；
颜色：#000000；
文本装饰：无；
}
a：访问过{
字体大小：9pt；
颜色：#000000；
文本装饰：无；
}
一个：悬停{
字体大小：9pt；
颜色：#0000FF；
文本装饰：无；
位置：相对；
右：1px；
底部：1px；
}
一个：活跃{
字体大小：9pt；
颜色：#000000；
文本装饰：无；
}
-->
</风格>
</头>
<正文>
<a href="http://www.downcodes.com/" target="_blank">http://www.knowsky.com/</a>提供最新下载《<a href="menu.asp">管理</a>》<br>
<%
菜单 0
连接关闭
设置 conn=无
%>
</正文>
</html>