Download: http://www.knowsky.com/download/treemenu.rar
关键代码:
<%
set conn=server.createobject("ADODB.CONNECTION")
connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open connstr
Funktionsmenü(id)
set rs=server.CreateObject("adodb.recordset")
sql="select * from menu where id1="&id&" order by url,id"
rs.open sql,conn,1,1
wenn rs.recordcount=0 dann
rs.close
setze rs=nichts
Exit-Funktion
Ende wenn
Response.write("<table border='0' cellpacing='0' cellpadding='0'>")
i=1
während nicht rs.eof
wenn len(rs("url"))>0 dann
wenn i=rs.recordcount dann
menutype="file1"
anders
menutype="Datei"
Ende wenn
menuname="<a href='"&rs("url")&"' target='_blank'>"&rs("menuname")&"</a>"
onmouseup=""
anders
wenn i=rs.recordcount dann
menutype="menu3"
listtype="list1"
onmouseup="with(eval('id"&rs("id")&"'))if(style.display==''){style.display='none';this.className='menu3';}else {style.display='';this.className='menu4';}"
anders
menutype="menu1"
listtype="list"
onmouseup="with(eval('id"&rs("id")&"'))if(style.display==''){style.display='none';this.className='menu1';}else {style.display='';this.className='menu2';}"
Ende wenn
menuname=rs("menuname")
Ende wenn
%>
<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>
<%
Ende wenn
rs.movenext
i=i+1
wenden
Response.write("</table>")
rs.close
setze rs=nichts
Endfunktion
%>
<html>
<Kopf>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>=========无限级目录树=========http://www.downcodes.com</title>
<style type="text/css">
<!--
.menu1 {
Hintergrundbild: url(folder1.gif);
Hintergrundwiederholung: keine Wiederholung;
Höhe: 17px;
links: 32px;
Polsterung links: 32px;
Cursor: Hand;
}
.menu2 {
Hintergrundbild: url(folder2.gif);
Hintergrundwiederholung: keine Wiederholung;
Höhe: 17px;
links: 32px;
Polsterung links: 32px;
Cursor: Hand;
}
.menu3 {
Hintergrundbild: url(folder3.gif);
Hintergrundwiederholung: keine Wiederholung;
Höhe: 17px;
links: 32px;
Polsterung links: 32px;
Cursor: Hand;
}
.menu4 {
Hintergrundbild: url(folder4.gif);
Hintergrundwiederholung: keine Wiederholung;
Höhe: 17px;
links: 32px;
Polsterung links: 32px;
Cursor: Hand;
}
.list {
padding-left: 20px;
Hintergrundbild: url(list.gif);
Hintergrundwiederholung: Wiederholung-y;
}
.list1 {
padding-left: 20px;
}
.Datei {
Hintergrundbild: url(file.gif);
Hintergrundwiederholung: keine Wiederholung;
Höhe: 16px;
Cursor: Hand;
Polsterung links: 32px;
}
.file1 {
Hintergrundbild: url(file1.gif);
Hintergrundwiederholung: keine Wiederholung;
Höhe: 16px;
Cursor: Hand;
Polsterung links: 32px;
}
Körper {
Schriftgröße: 9pt;
Farbe: #000000;
Hintergrundfarbe: #FFFFFF;
}
a:link {
Schriftgröße: 9pt;
Farbe: #000000;
Textdekoration: keine;
}
a:besucht {
Schriftgröße: 9pt;
Farbe: #000000;
Textdekoration: keine;
}
a:hover {
Schriftgröße: 9pt;
Farbe: #0000FF;
Textdekoration: keine;
Position: relativ;
rechts: 1px;
unten: 1px;
}
a:aktiv {
Schriftgröße: 9pt;
Farbe: #000000;
Textdekoration: keine;
}
->
</style>
</head>
<Körper>
<a href="http://www.downcodes.com/" target="_blank">http://www.knowsky.com/</a>提供最新下载《<a href="menu.asp">管理</a>》<br>
<%
Menü 0
Verbindung schließen
setze conn=nichts
%>
</body>
</html>