Implementierung des Verzeichnisbaums einer Website mit ASP
Datenbankstruktur (zwei Tabellen werden insgesamt verwendet)
1. TblCategory
Feldnamestyp
Wurzel Binärbeschreibung Baum schließen oder offen (Wurzel des Verzeichnisses)
ID Automatische Nummernschlüsselwörter
Sortieren Sie Integer erkennt die Ganzzahl, die das Feld enthält (wenn die Stammeinheit geöffnet ist, Sortieren Sie 0), gibt die Reihenfolge des angezeigten Verzeichnisses an.
Name Text (255) kann Kennungen in HTML enthalten
Href text (255) leer zulassen
2. Tblpages
ID Automatische Nummerierung
Sortieren Sie ganzzahlige Schlüsselwörter
Nennen Sie Text (255)
Href text (255)
3.Default.htm
<html>
<kopf>
<title> JavaScript -Baumsteuervorlage </title>
</head>
<Frameset cols = "" 210,*"">
? <Frame Src = "" Tree.asp "" name = "" toc ""
?
</Frameset>
</html>
4. Main.htm
<Head> <titels> </title> </head>
<body>
<h2> Startseite </h2>
</body>
</html>
5.Tree.asp
Setzen Sie conn = server.createObject ("" adodb.Connection "").
Setzen Sie rs = server.createObject ("" adodb.recordset "").
Conn.open "" Treiber = Microsoft Access Treiber (*.mdb); dbq = "" & server.mappath ("" toc.mdb "")
Strsql = "" Wählen Sie tBlcategory.root, tBlcategory. [ID], tBlcategory.sort als catSort, tBlpages.sort als Linksort, tBlcategory. tBlcategory. [id] = tBlpages. [ID] Reihenfolge nach tBlcategory.root ASC, tBlcategory.sort, tBlpages.sort "" "
Rs.open Strsql, Conn, 2, 2
wenn nicht rs.eof dann rs.movefirst
currentId = "" "" %>
<html>
<kopf>
<link rel = "" Stylesheet "" href = "" ftie4Style.css "">
<!-Infrastrukturcode für den Baum->
<script src = "" ftiens4.js ""> </script>
<!-Ausführung des Codes, der tatsächlich den spezifischen Baum erstellt->
<Script>
UseTextLinks = 1
<%
Tun, während nicht Rs.Eof
Wenn rs ("" root "") = true dann %>
Ordnerstree = GFLD ("" < %= rs ("" "Catname") %> "", "< %= Rs (" "Caturl" ") %>" ")
< % Sonst %>
AUX1 = INSFLD (Ordnerstree, GFLD ("" < %= rs ("" "Catname") %> "", "< %= Rs (" "" ") %>" "))
<% currentId = rs ("" id "")
SAVEDID = RS ("" ID "")
Tun, während currentId = savedId und nicht rs.eof
Wenn RS ("" "linkName" ") <>" "" "dann %>
INSDOC (AUX1, Glnk (0, "< %= rs (" "linkName" ") %>" "," < %= rs ("" "linkurl" ") %>" "))