下载地址: http://www.knowsky.com/download/treemenu.rar
关键代码:
<%
establecer conexión=server.createobject("ADODB.CONNECTION")
connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Controlador de Microsoft Access (*.mdb)};"
conn.open connstr
menú de funciones (id)
establecer rs=server.CreateObject("adodb.recordset")
sql="seleccione * del menú donde id1="&id&" ordene por url,id"
rs.open sql, conexión, 1,1
si rs.recordcount=0 entonces
rs.cerrar
establecer rs = nada
función de salida
terminar si
respuesta.write("<table border='0' cellpacing='0' cellpadding='0'>")
yo=1
mientras no rs.eof
si len(rs("url"))>0 entonces
si i=rs.recordcount entonces
tipo de menú="archivo1"
demás
tipo de menú="archivo"
terminar si
menuname="<a href='"&rs("url")&"' target='_blank'>"&rs("menuname")&"</a>"
onmouseup=""
demás
si i=rs.recordcount entonces
tipo de menú="menú3"
tipo de lista="lista1"
onmouseup="with(eval('id"&rs("id")&"'))if(style.display==''){style.display='none';this.className='menu3';}else {style.display='';this.className='menu4';}"
demás
tipo de menú="menú1"
tipo de lista="lista"
onmouseup="with(eval('id"&rs("id")&"'))if(style.display==''){style.display='none';this.className='menu1';}else {style.display='';this.className='menu2';}"
terminar si
nombremenu=rs("nombremenu")
terminar si
%>
<tr>
<td class="<%= tipo de menú%>" onMouseUp="<%= onmouseup%>"><%= nombre de menú%></td>
</tr>
<%si len(rs("url"))<3 entonces%>
<tr id="id<%= rs("id")%>" estilo="display:none">
<td class="<%= tipo de lista%>"><%menu(rs("id"))%></td>
</tr>
<%
terminar si
rs.movenext
yo=yo+1
encaminarse a
respuesta.write("</table>")
rs.cerrar
establecer rs = nada
función final
%>
<html>
<cabeza>
<meta http-equiv="Tipo de contenido" content="text/html; charset=gb2312">
<título>=========无限级目录树=========http://www.downcodes.com</título>
<tipo de estilo="texto/css">
<!--
.menú1 {
imagen de fondo: url(carpeta1.gif);
repetición de fondo: no repetición;
altura: 17px;
izquierda: 32px;
relleno-izquierda: 32px;
cursor: mano;
}
.menú2 {
imagen de fondo: url(carpeta2.gif);
repetición de fondo: no repetición;
altura: 17px;
izquierda: 32px;
relleno-izquierda: 32px;
cursor: mano;
}
.menú3 {
imagen de fondo: url(carpeta3.gif);
repetición de fondo: no repetición;
altura: 17px;
izquierda: 32px;
relleno-izquierda: 32px;
cursor: mano;
}
.menú4 {
imagen de fondo: url(carpeta4.gif);
repetición de fondo: no repetición;
altura: 17px;
izquierda: 32px;
relleno-izquierda: 32px;
cursor: mano;
}
.lista {
relleno-izquierda: 20px;
imagen de fondo: url(lista.gif);
repetición de fondo: repetición-y;
}
.lista1 {
relleno-izquierda: 20px;
}
.archivo {
imagen de fondo: url(archivo.gif);
repetición de fondo: no repetición;
altura: 16px;
cursor: mano;
relleno-izquierda: 32px;
}
.archivo1 {
imagen de fondo: url(archivo1.gif);
repetición de fondo: no repetición;
altura: 16px;
cursor: mano;
relleno-izquierda: 32px;
}
cuerpo {
tamaño de fuente: 9 puntos;
color: #000000;
color de fondo: #FFFFFF;
}
a: enlace {
tamaño de fuente: 9 puntos;
color: #000000;
decoración de texto: ninguna;
}
a: visitado {
tamaño de fuente: 9 puntos;
color: #000000;
decoración de texto: ninguna;
}
a: flotar {
tamaño de fuente: 9 puntos;
color: #0000FF;
decoración de texto: ninguna;
posición: relativa;
derecha: 1px;
abajo: 1px;
}
a: activo {
tamaño de fuente: 9 puntos;
color: #000000;
decoración de texto: ninguna;
}
-->
</estilo>
</cabeza>
<cuerpo>
<a href="http://www.downcodes.com/" target="_blank">http://www.knowsky.com/</a>提供最新下载《<a href="menu.asp">管理</a>》<br>
<%
menú 0
con.cerrar
establecer conexión = nada
%>
</cuerpo>
</html>