下载地址: http://www.knowsky.com/download/treemenu.rar
关键代码:
<%
definir conn=server.createobject("ADODB.CONNECTION")
connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Driver Microsoft Access (*.mdb)};"
conn.open connstr
menu de funções (id)
definir rs=server.CreateObject("adodb.recordset")
sql="selecione * no menu onde id1="&id&" ordene por url,id"
rs.open sql,conn,1,1
se rs.recordcount=0 então
rs.fechar
definir rs = nada
função de saída
terminar se
resposta.write("<table border='0' cellpacing='0' cellpadding='0'>")
eu=1
enquanto não rs.eof
se len(rs("url"))>0 então
se i=rs.recordcount então
tipo de menu = "arquivo1"
outro
tipo de menu = "arquivo"
terminar se
menuname="<a href='"&rs("url")&"' target='_blank'>"&rs("menuname")&"</a>"
onmouseup=""
outro
se i=rs.recordcount então
tipo de menu = "menu3"
listtype="lista1"
onmouseup="with(eval('id"&rs("id")&"'))if(style.display==''){style.display='none';this.className='menu3';}else {style.display='';this.className='menu4';}"
outro
tipo de menu = "menu1"
listtype="lista"
onmouseup="with(eval('id"&rs("id")&"'))if(style.display==''){style.display='none';this.className='menu1';}else {style.display='';this.className='menu2';}"
terminar se
nomedomenu=rs("nomedomenu")
terminar se
%>
<tr>
<td class="<%= menutype%>" onMouseUp="<%= onmouseup%>"><%= menuname%></td>
</tr>
<%se len(rs("url"))<3 então%>
<tr id="id<%= rs("id")%>" style="display:none">
<td class="<%= listtype%>"><%menu(rs("id"))%></td>
</tr>
<%
terminar se
rs.movnext
eu=eu+1
vamos
resposta.write("</table>")
rs.fechar
definir rs = nada
função final
%>
<html>
<cabeça>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>========无限级目录树=========http://www.downcodes.com</title>
<style type="texto/css">
<!--
.menu1 {
imagem de fundo: url(pasta1.gif);
repetição em segundo plano: sem repetição;
altura: 17px;
esquerda: 32px;
preenchimento à esquerda: 32px;
cursor: mão;
}
.menu2 {
imagem de fundo: url(pasta2.gif);
repetição em segundo plano: sem repetição;
altura: 17px;
esquerda: 32px;
preenchimento à esquerda: 32px;
cursor: mão;
}
.menu3 {
imagem de fundo: url(folder3.gif);
repetição em segundo plano: sem repetição;
altura: 17px;
esquerda: 32px;
preenchimento à esquerda: 32px;
cursor: mão;
}
.menu4 {
imagem de fundo: url(folder4.gif);
repetição em segundo plano: sem repetição;
altura: 17px;
esquerda: 32px;
preenchimento à esquerda: 32px;
cursor: mão;
}
.lista {
preenchimento à esquerda: 20px;
imagem de fundo: url(list.gif);
repetição em segundo plano: repetição-y;
}
.lista1 {
preenchimento à esquerda: 20px;
}
.arquivo {
imagem de fundo: url(arquivo.gif);
repetição em segundo plano: sem repetição;
altura: 16px;
cursor: mão;
preenchimento à esquerda: 32px;
}
.arquivo1 {
imagem de fundo: url(arquivo1.gif);
repetição em segundo plano: sem repetição;
altura: 16px;
cursor: mão;
preenchimento à esquerda: 32px;
}
corpo {
tamanho da fonte: 9pt;
cor: #000000;
cor de fundo: #FFFFFF;
}
a: link {
tamanho da fonte: 9pt;
cor: #000000;
decoração de texto: nenhuma;
}
a:visitou {
tamanho da fonte: 9pt;
cor: #000000;
decoração de texto: nenhuma;
}
a: passar o mouse {
tamanho da fonte: 9pt;
cor: #0000FF;
decoração de texto: nenhuma;
posição: relativa;
direita: 1px;
inferior: 1px;
}
a:ativo {
tamanho da fonte: 9pt;
cor: #000000;
decoração de texto: nenhuma;
}
-->
</estilo>
</head>
<corpo>
<a href="http://www.downcodes.com/" target="_blank">http://www.knowsky.com/</a>提供最新下载《<a href="menu.asp">管理</a>》<br>
<%
menu 0
conexão.fechar
definir conn = nada
%>
</body>
</html>