ดาวน์โหลดจาก http://www.knowsky.com/download/treemenu.rar
关键代码：
-
ตั้งค่า conn=server.createobject("ADODB.CONNECTION")
connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={ไดรเวอร์ Microsoft Access (*.mdb)};"
conn.open constr
เมนูฟังก์ชั่น(id)
ตั้งค่า rs=server.CreateObject("adodb.recordset")
sql="select * จากเมนูโดยที่ id1="&id&" เรียงลำดับตาม url,id"
rs.open sql,conn,1,1
ถ้า rs.recordcount=0 แล้ว
฿.ปิด
ตั้งค่า rs=nothing
ฟังก์ชั่นทางออก
สิ้นสุดถ้า
response.write("<table border='0' cellspacing='0' cellpadding='0'>")
ผม=1
ในขณะที่ไม่ใช่ rs.eof
ถ้า len(rs("url"))>0 แล้ว
ถ้า i=rs.recordcount แล้ว
ประเภทเมนู = "file1"
อื่น
ประเภทเมนู = "ไฟล์"
สิ้นสุดถ้า
menuname="<a href='"&rs("url")&"' target='_blank'>"&rs("เมนู")&"</a>"
onmouseup = ""
อื่น
ถ้า i=rs.recordcount แล้ว
ประเภทเมนู = "เมนู 3"
รายการประเภท = "รายการ 1"
onmouseup="with(eval('id"&rs("id")&"'))if(style.display==''){style.display='none';this.className='menu3';}else {style.display='';this.className='menu4';}"
อื่น
ประเภทเมนู = "เมนู 1"
รายการประเภท = "รายการ"
onmouseup="with(eval('id"&rs("id")&"'))if(style.display==''){style.display='none';this.className='menu1';}else {style.display='';this.className='menu2';}"
สิ้นสุดถ้า
menuname=rs("เมนูชื่อ")
สิ้นสุดถ้า
-
<tr>
<td class="<%= ประเภทเมนู%>" onMouseUp="<%= onmouseup%>"><%= ชื่อเมนู%></td>
</tr>
<%if len(rs("url"))<3 แล้วก็%>
<tr id="id<%= rs("id")%>" style="display:none">
<td class="<%= listtype%>"><%menu(rs("id"))%></td>
</tr>
-
สิ้นสุดถ้า
rs.movenext
ฉัน=ฉัน+1
เวน
response.write("</ table>")
฿.ปิด
ตั้งค่า rs=nothing
ฟังก์ชั่นสิ้นสุด
-
<html>
<หัว>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>=========无限级目录树=========http://www.downcodes.com</title>
<style type="text/css">
-
.เมนู1 {
ภาพพื้นหลัง: url (folder1.gif);
พื้นหลังซ้ำ: ไม่ซ้ำ;
ส่วนสูง: 17px;
ซ้าย: 32px;
ช่องว่างภายในซ้าย: 32px;
เคอร์เซอร์: มือ;
-
.เมนู2 {
ภาพพื้นหลัง: url (folder2.gif);
พื้นหลังซ้ำ: ไม่ซ้ำ;
ส่วนสูง: 17px;
ซ้าย: 32px;
ช่องว่างภายในซ้าย: 32px;
เคอร์เซอร์: มือ;
-
.เมนู3 {
ภาพพื้นหลัง: url (folder3.gif);
พื้นหลังซ้ำ: ไม่ซ้ำ;
ส่วนสูง: 17px;
ซ้าย: 32px;
ช่องว่างภายในซ้าย: 32px;
เคอร์เซอร์: มือ;
-
.เมนู4 {
ภาพพื้นหลัง: url (folder4.gif);
พื้นหลังซ้ำ: ไม่ซ้ำ;
ส่วนสูง: 17px;
ซ้าย: 32px;
ช่องว่างภายในซ้าย: 32px;
เคอร์เซอร์: มือ;
-
.รายการ {
ช่องว่างภายในซ้าย: 20px;
ภาพพื้นหลัง: url (list.gif);
พื้นหลังซ้ำ: ซ้ำ-y;
-
.รายการ1 {
ช่องว่างภายในซ้าย: 20px;
-
.ไฟล์ {
ภาพพื้นหลัง: url (file.gif);
พื้นหลังซ้ำ: ไม่ซ้ำ;
ความสูง: 16px;
เคอร์เซอร์: มือ;
ช่องว่างภายในซ้าย: 32px;
-
.file1 {
ภาพพื้นหลัง: url (file1.gif);
พื้นหลังซ้ำ: ไม่ซ้ำ;
ความสูง: 16px;
เคอร์เซอร์: มือ;
ช่องว่างภายในซ้าย: 32px;
-
ร่างกาย {
ขนาดตัวอักษร: 9pt;
สี: #000000;
สีพื้นหลัง: #FFFFFF;
-
เป็น: ลิงค์ {
ขนาดตัวอักษร: 9pt;
สี: #000000;
การตกแต่งข้อความ: ไม่มี;
-
เป็น: เยี่ยมชม {
ขนาดตัวอักษร: 9pt;
สี: #000000;
การตกแต่งข้อความ: ไม่มี;
-
เป็น:โฮเวอร์ {
ขนาดตัวอักษร: 9pt;
สี: #0000FF;
การตกแต่งข้อความ: ไม่มี;
ตำแหน่ง: ญาติ;
ขวา: 1px;
ด้านล่าง: 1px;
-
เป็น:ใช้งานอยู่ {
ขนาดตัวอักษร: 9pt;
สี: #000000;
การตกแต่งข้อความ: ไม่มี;
-
-
</สไตล์>
</หัว>
<ร่างกาย>
<a href="http://www.downcodes.com/" target="_blank">http://www.knowsky.com/</a>提供最新下载《<a href="menu.asp">管理</a>》<br>
-
เมนู 0
เชื่อมต่อปิด
ตั้งค่า conn=ไม่มีอะไร
-
</ร่างกาย>
</html>