下载地址: http://www.knowsky.com/download/treemenu.rar
关键代码:
<%
set conn=server.createobject("ADODB.CONNECTION")
connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Драйвер Microsoft Access (*.mdb)};"
conn.open connstr
Меню функций (id)
set rs=server.CreateObject("adodb.recordset")
sql="выберите * из меню, где id1="&id&" упорядочить по URL,id"
rs.open sql,conn,1,1
если rs.recordcount=0, то
RS.закрыть
установить rs=ничего
функция выхода
конец, если
response.write("<table border='0' cellpacing='0' cellpadding='0'>")
я = 1
пока не rs.eof
если len(rs("url"))>0, то
если я = rs.recordcount, тогда
тип меню="файл1"
еще
тип меню="файл"
конец, если
menuname="<a href=""&rs("url")&"' target='_blank'>"&rs("menuname")&"</a>"
onmouseup=""
еще
если я = 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("имя_меню")
конец, если
%>
<тр>
<td class="<%= тип меню%>" onMouseUp="<%= onmouseup%>"><%= имя меню%></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.закрыть
установить rs=ничего
конечная функция
%>
<html>
<голова>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>=========无限级目录树=========http://www.downcodes.com</title>
<style type="text/css">
<!--
.menu1 {
фоновое изображение: URL (folder1.gif);
фоновый повтор: без повтора;
высота: 17 пикселей;
слева: 32 пикселя;
отступ слева: 32 пикселя;
курсор: рука;
}
.menu2 {
фоновое изображение: URL (folder2.gif);
фоновый повтор: без повтора;
высота: 17 пикселей;
слева: 32 пикселя;
отступ слева: 32 пикселя;
курсор: рука;
}
.menu3 {
фоновое изображение: URL (folder3.gif);
фоновый повтор: без повтора;
высота: 17 пикселей;
слева: 32 пикселя;
отступ слева: 32 пикселя;
курсор: рука;
}
.menu4 {
фоновое изображение: URL (folder4.gif);
фоновый повтор: без повтора;
высота: 17 пикселей;
слева: 32 пикселя;
отступ слева: 32 пикселя;
курсор: рука;
}
.список {
отступ слева: 20 пикселей;
фоновое изображение: URL (list.gif);
фоновое повторение: повторение-y;
}
.list1 {
отступ слева: 20 пикселей;
}
.файл {
фоновое изображение: URL(file.gif);
фоновый повтор: без повтора;
высота: 16 пикселей;
курсор: рука;
отступ слева: 32 пикселя;
}
.file1 {
фоновое изображение: URL(file1.gif);
фоновый повтор: без повтора;
высота: 16 пикселей;
курсор: рука;
отступ слева: 32 пикселя;
}
тело {
размер шрифта: 9pt;
цвет: #000000;
цвет фона: #FFFFFF;
}
а: ссылка {
размер шрифта: 9pt;
цвет: #000000;
текстовое оформление: нет;
}
а: посетил {
размер шрифта: 9pt;
цвет: #000000;
текстовое оформление: нет;
}
а: наведите {
размер шрифта: 9pt;
цвет: #0000FF;
текстовое оформление: нет;
положение: относительное;
справа: 1 пиксель;
внизу: 1 пиксель;
}
а: активный {
размер шрифта: 9pt;
цвет: #000000;
текстовое оформление: нет;
}
-->
</стиль>
</голова>
<тело>
<a href="http://www.downcodes.com/" target="_blank">http://www.knowsky.com/</a>提供最新下载《<a href="menu.asp">管理</a>》<br>
<%
меню 0
конн.закрыть
установить соединение = ничего
%>
</тело>
</html>