Menerapkan pohon direktori situs web menggunakan ASP
Struktur basis data (dua tabel digunakan secara total)
1. Tblcategory
Jenis Nama Bidang
Root Binary Description Tree Tutup atau Terbuka (Root of Directory)
ID Kata Kunci Penomoran Otomatis
Urutkan Integer mengenali bilangan bulat yang berisi bidang (jika root terbuka, sortir 0) menunjukkan urutan direktori yang ditampilkan.
Teks Nama (255) dapat berisi pengidentifikasi dalam HTML
Teks href (255) memungkinkan kosong
2. Tblpages
ID Penomoran Otomatis
Urutkan kata kunci integer
Nama Teks (255)
Teks href (255)
3.Default.htm
<Html>
<head>
<title> Template Kontrol Pohon JavaScript </iteme>
</head>
<frameset cols = "" 210,*"">
? <frame src = "" tree.asp "" name = "" toc "">
? <frame src = "" main.htm "" name = "" BASEFRM "">
</fameset>
</html>
4.Main.htm
<head> <title> </iteme> </head>
<body>
<H2> Halaman Mulai </h2>
</body>
</html>
5.Tree.asp
Set Conn = Server.CreateObject ("" ADODB.Connection "")
Set RS = Server.CreateObject ("" ADODB.Recordset "")
conn.open "" driver = driver microsoft access (*.mdb); dbq = "" & server.mappath ("" toc.mdb "")
strsql = "" Pilih tblcategory.root, tblcategory. [id], tblcategory.sort sebagai catsort, tblpages.sort sebagai linksort, tblcategory. [name] sebagai catname, tblcategory.href sebagai caturl, tblpage. TBLCategory. [ID] = TBlPages. [ID] Pesan oleh tblcategory.root ASC, tblcategory.sort, tblpages.sort ""
rs.open strsql, conn, 2, 2
Jika tidak rs.eof maka rs.movefirst
currentId = "" "" %>
<Html>
<head>
<tautan rel = "" stylesheet "" href = "" ftie4style.css "">
<!-Kode infrastruktur untuk pohon->
<Script src = "" ftiens4.js ""> </script>
<!-Eksekusi kode yang benar-benar membangun pohon tertentu->
<script>
USETEXTLINKS = 1
<%
Lakukan sementara tidak rs.eof
Jika rs ("" root "") = true maka %>
folderstree = gfld ("" < %= rs ("" "catname" ") %>" "," "< %= rs (" "" CATURL "") %> "")
< % Else %>
aux1 = insfld (folderStree, gfld ("" < %= rs ("" "catname" ") %>" "," "< %= rs (" "" ") %>" ")))
<% currentId = rs ("" id "")
saveDid = rs ("" id "")
Lakukan sementara currentId = savedId dan bukan rs.eof
Jika RS ("" LinkName "") <> "" "" Lalu %>
insdoc (aux1, glnk (0, "" < %= rs ("" linkname "") %> "", "" < %= rs ("" "linkurl" ") %>" ")))