Lire la suite : http://www.knowsky.com/download/treemenu.rar
关键代码:
<%
set conn=server.createobject("ADODB.CONNECTION")
connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Pilote Microsoft Access (*.mdb)};"
conn.open connstr
menu de fonctions (identifiant)
set rs=server.CreateObject("adodb.recordset")
sql="sélectionner * dans le menu où id1="&id&" trier par url,id"
rs.open sql, conn, 1,1
si rs.recordcount=0 alors
rs.fermer
définir rs = rien
fonction de sortie
finir si
réponse.write("<table border='0' Cellpacing='0' cellpadding='0'>")
je = 1
bien que ce ne soit pas rs.eof
si len(rs("url"))>0 alors
si je = rs.recordcount alors
type de menu = "fichier1"
autre
menutype="fichier"
finir si
menuname="<a href=""&rs("url")&"' target='_blank'>"&rs("menuname")&"</a>"
onmouseup=""
autre
si je = rs.recordcount alors
type de menu = "menu3"
type de liste = "liste1"
onmouseup="with(eval('id"&rs("id")&"'))if(style.display==''){style.display='none';this.className='menu3';}else {style.display='';this.className='menu4';}"
autre
type de menu = "menu1"
listtype="liste"
onmouseup="with(eval('id"&rs("id")&"'))if(style.display==''){style.display='none';this.className='menu1';}else {style.display='';this.className='menu2';}"
finir si
nom du menu=rs("nom du menu")
finir si
%>
<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>
<%
finir si
rs.movenext
je=je+1
wend
réponse.write("</table>")
rs.fermer
définir rs = rien
fonction de fin
%>
<html>
<tête>
<méta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>=========无限级目录树=========http://www.downcodes.com</title>
<style type="text/css">
<!--
.menu1 {
image d'arrière-plan : url (dossier1.gif);
répétition d'arrière-plan : pas de répétition ;
hauteur : 17px ;
gauche : 32px ;
remplissage à gauche : 32 px ;
curseur : main ;
}
.menu2 {
image d'arrière-plan : url (dossier2.gif);
répétition d'arrière-plan : pas de répétition ;
hauteur : 17px ;
gauche : 32px ;
remplissage à gauche : 32 px ;
curseur : main ;
}
.menu3 {
image d'arrière-plan : url (dossier3.gif);
répétition d'arrière-plan : pas de répétition ;
hauteur : 17px ;
gauche : 32px ;
remplissage à gauche : 32 px ;
curseur : main ;
}
.menu4 {
image d'arrière-plan : url (dossier4.gif);
répétition d'arrière-plan : pas de répétition ;
hauteur : 17px ;
gauche : 32px ;
remplissage à gauche : 32 px ;
curseur : main ;
}
.liste {
remplissage à gauche : 20 px ;
image d'arrière-plan : url (liste.gif);
répétition d'arrière-plan : répétition-y ;
}
.list1 {
remplissage à gauche : 20 px ;
}
.déposer {
image d'arrière-plan : url (fichier.gif);
répétition d'arrière-plan : pas de répétition ;
hauteur : 16px ;
curseur : main ;
remplissage à gauche : 32 px ;
}
.fichier1 {
image d'arrière-plan : url (fichier1.gif);
répétition d'arrière-plan : pas de répétition ;
hauteur : 16px ;
curseur : main ;
remplissage à gauche : 32 px ;
}
corps {
taille de police : 9 pt ;
couleur : #000000 ;
couleur d'arrière-plan : #FFFFFF ;
}
a:lien {
taille de police : 9 pt ;
couleur : #000000 ;
décoration de texte : aucune ;
}
a: visité {
taille de police : 9 pt ;
couleur : #000000 ;
décoration de texte : aucune ;
}
a: survolez {
taille de police : 9 pt ;
couleur : #0000FF ;
décoration de texte : aucune ;
position : relative ;
à droite : 1px ;
en bas : 1px ;
}
a:actif {
taille de police : 9 pt ;
couleur : #000000 ;
décoration de texte : aucune ;
}
-->
</style>
</tête>
<corps>
<a href="http://www.downcodes.com/" target="_blank">http://www.knowsky.com/</a>提供最新下载《<a href="menu.asp">管理</a>》<br>
<%
menu 0
connexion.fermer
définir conn = rien
%>
</corps>
</html>