Sumber: http://www.knowsky.com/download/treemenu.rar
关键代码：
<%
setel koneksi=server.buat objek("ADODB.CONNECTION")
connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
koneksi.buka koneksi
menu fungsi (id)
setel rs=server.CreateObject("adodb.recordset")
sql="pilih * dari menu di mana id1="&id&" pesan berdasarkan url,id"
rs.open sql,sambungan,1,1
jika rs.recordcount=0 maka
rs.tutup
atur rs=tidak ada
fungsi keluar
berakhir jika
respon.write("<batas tabel='0' spasi sel='0' cellpadding='0'>")
saya=1
sementara bukan rs.eof
jika len(rs("url"))>0 maka
jika i=rs.recordcount maka
tipe menu="file1"
kalau tidak
tipe menu = "file"
berakhir jika
menuname="<a href='"&rs("url")&"' target='_blank'>"&rs("namamenu")&"</a>"
onmouseup=""
kalau tidak
jika i=rs.recordcount maka
tipe menu="menu3"
tipe daftar="daftar1"
onmouseup="dengan(eval('id"&rs("id")&"'))if(style.display==''){style.display='none';this.className='menu3';}else {style.display='';this.className='menu4';}"
kalau tidak
tipe menu="menu1"
tipe daftar="daftar"
onmouseup="dengan(eval('id"&rs("id")&"'))if(style.display==''){style.display='none';this.className='menu1';}else {style.display='';ini.className='menu2';}"
berakhir jika
namamenu=rs("namamenu")
berakhir jika
%>
<tr>
<td class="<%= menutype%>" onMouseUp="<%= onmouseup%>"><%= nama menu%></td>
</tr>
<%jika len(rs("url"))<3 maka%>
<tr id="id<%= rs("id")%>" style="display:none">
<td class="<%= listtype%>"><%menu(rs("id"))%></td>
</tr>
<%
berakhir jika
rs.movenext
saya=saya+1
pergi ke
respon.tulis("</tabel>")
rs.tutup
atur rs=tidak ada
fungsi akhir
%>
<html>
<kepala>
<meta http-equiv="Jenis Konten" content="teks/html; charset=gb2312">
<title>=========无限级目录树=========http://www.downcodes.com</title>
<gaya tipe="teks/css">
<!--
.menu1 {
gambar latar belakang: url(folder1.gif);
pengulangan latar belakang: tidak ada pengulangan;
tinggi: 17 piksel;
kiri: 32 piksel;
padding-kiri: 32px;
kursor: tangan;
}
.menu2 {
gambar latar belakang: url(folder2.gif);
pengulangan latar belakang: tidak ada pengulangan;
tinggi: 17 piksel;
kiri: 32 piksel;
padding-kiri: 32px;
kursor: tangan;
}
.menu3 {
gambar latar belakang: url(folder3.gif);
pengulangan latar belakang: tidak ada pengulangan;
tinggi: 17 piksel;
kiri: 32 piksel;
padding-kiri: 32px;
kursor: tangan;
}
.menu4 {
gambar latar belakang: url(folder4.gif);
pengulangan latar belakang: tidak ada pengulangan;
tinggi: 17 piksel;
kiri: 32 piksel;
padding-kiri: 32px;
kursor: tangan;
}
.daftar {
padding-kiri: 20px;
gambar latar belakang: url(list.gif);
ulangi latar belakang: ulangi-y;
}
.daftar1 {
padding-kiri: 20px;
}
.file {
gambar latar belakang: url(file.gif);
pengulangan latar belakang: tidak ada pengulangan;
tinggi: 16 piksel;
kursor: tangan;
padding-kiri: 32px;
}
.file1 {
gambar latar belakang: url(file1.gif);
pengulangan latar belakang: tidak ada pengulangan;
tinggi: 16 piksel;
kursor: tangan;
padding-kiri: 32px;
}
tubuh {
ukuran font: 9pt;
warna: #000000;
warna latar belakang: #FFFFFF;
}
a: tautan {
ukuran font: 9pt;
warna: #000000;
dekorasi teks: tidak ada;
}
a: mengunjungi {
ukuran font: 9pt;
warna: #000000;
dekorasi teks: tidak ada;
}
a: arahkan kursor {
ukuran font: 9pt;
warna: #0000FF;
dekorasi teks: tidak ada;
posisi: relatif;
kanan: 1 piksel;
bawah: 1 piksel;
}
a: aktif {
ukuran font: 9pt;
warna: #000000;
dekorasi teks: tidak ada;
}
-->
</gaya>
</kepala>
<tubuh>
<a href="http://www.downcodes.com/" target="_blank">http://www.knowsky.com/</a>提供最新下载《<a href="menu.asp">管理</a>》<br>
<%
menu 0
samb.tutup
setel samb=tidak ada
%>
</tubuh>
</html>