下載網址： 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>