การใช้แผนผังไดเรกทอรีของเว็บไซต์โดยใช้ ASP
โครงสร้างฐานข้อมูล (ใช้สองตารางทั้งหมด)
1. tblcategory
ประเภทชื่อฟิลด์
รูทคำอธิบายทรีปิดหรือเปิด (รูทของไดเรกทอรี)
คำหลักการกำหนดหมายเลขอัตโนมัติ ID
Sort Integer รับรู้จำนวนเต็มที่มีฟิลด์ (ถ้ารูทเปิดอยู่ให้เรียงลำดับ 0) หมายถึงลำดับของไดเรกทอรีที่แสดง
ชื่อข้อความ (255) สามารถมีตัวระบุใน HTML
ข้อความ href (255) อนุญาตให้ว่างเปล่า
2. tblpages
การกำหนดหมายเลขอัตโนมัติ ID
เรียงลำดับคำหลักจำนวนเต็ม
ชื่อข้อความ (255)
ข้อความ href (255)
3.Default.htm
<html>
<head>
<title> เทมเพลตการควบคุมต้นไม้ JavaScript </title>
</head>
<frameset cols = "" 210,*"">
? <frame src = "" tree.asp "" name = "" toc "">
? <frame src = "" main.htm "" name = "" basefrm "">>
</frameset>
</html>
4.Main.htm
<head> <title> </title> </head>
<body>
<H2> หน้าเริ่มต้น </h2>
</body>
</html>
5.tree.asp
ตั้งค่า conn = server.createObject ("" adoDB.Connection "")
ตั้งค่า rs = server.createObject ("" adodb.recordset "")
conn.open "" ไดร์เวอร์ = ไดรเวอร์ Microsoft Access (*.mdb); dbq = "" & server.mappath ("" toc.mdb "")
strsql = "" เลือก tblcategory.root, tblcategory. [id], tblcategory.sort เป็น catsort, tblpages.sort เป็น linksort, tblcategory. [ชื่อ] เป็น catname, tblcategory tblCategory. [id] = tblpages. [id] คำสั่งซื้อโดย tblcategory.root asc, tblcategory.sort, tblpages.sort ""
Rs.Open strsql, Conn, 2, 2
ถ้าไม่ใช่ rs.eof แล้ว Rs.movefirst
currentId = "" "" %>
<html>
<head>
<link rel = "" stylesheet "" href = "" ftie4style.css "">>>
<!-รหัสโครงสร้างพื้นฐานสำหรับต้นไม้->
<script src = "" ftiens4.js ""> </script>
<!-การดำเนินการของรหัสที่สร้างต้นไม้เฉพาะ->
<script>
usetextLinks = 1
-
ทำในขณะที่ไม่ใช่ RS.EOF
ถ้า rs ("" root "") = true แล้ว %>
foldersstree = gfld ("" < %= rs ("" "catname" ") %>" "," "< %= rs (" "" caturl "") %> "")
< % อื่น %>
aux1 = insfld (foldersstree, gfld ("" < %= rs ("" "catname" ") %>" "," "" < %= rs ("" "") %> ""
<% currentId = rs ("" id "")
savedid = rs ("" id "")
ทำในขณะที่ currentId = savedid และไม่ใช่ rs.eof
ถ้า rs ("" linkname "") <> "" "แล้ว %>
insdoc (aux1, glnk (0, "" "< %= rs (" "linkname" ") %>" "," "" < %= rs ("" linkurl "") %> ""))