Implementación del árbol de directorio de un sitio web utilizando ASP
Estructura de la base de datos (se usan dos tablas en total)
1. TBLCategory
Tipo de nombre de campo
REO ROOT Binary Descripción Cerrar o abierto (Raíz del Directorio)
ID Numeración automática Palabras clave
Sort Integer reconoce el entero que contiene el campo (si la raíz está abierta, el sort es 0) indica el orden del directorio mostrado.
El texto del nombre (255) puede contener identificadores en HTML
Texto href (255) Permitir vacío
2. TBLPages
Numeración automática de ID
Ordenar palabras clave enteras
Texto de nombre (255)
Texto href (255)
3.default.htm
<html>
<Evista>
<title> JavaScript Tree Control Template </title>
</ablo>
<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> Página de inicio </h2>
</body>
</html>
5.tree.asp
Establecer conn = server.createObject ("" ADODB.Connection "")
Establecer rs = server.createObject ("" ADODB.RecordSet "")
Conn.open "" Driver = Microsoft Access Driver (*.mdb); dbq = "" & server.mappath ("" tc.mdb "")
strsql = "" Seleccione tblCategory.root, tblCategory. [id], tblcategory.sort como catsort, tblpages.sort como linksort, tblcategory. [name] como catname, tblcategory.href como caturl, tblpages. [Nombre] como LinkName, tblpages.hrref como Linkurl de Tblaturat TblCategory. [id] = tblPages. [id] orden por tblcategory.root asc, tblcategory.sort, tblpages.sort ""
Rs.Preen Strsql, Conn, 2, 2
Si no es RS.EOF, entonces Rs.MoveFirst
currentId = "" "" %>
<html>
<Evista>
<link rel = "" Stylesheet "" href = "" ftie4style.css "">
<!-Código de infraestructura para el árbol->
<script src = "" ftiens4.js ""> </script>
<!-Ejecución del código que realmente construye el árbol específico->
<script>
UseTextLinks = 1
<%
Haz mientras no rs.eof
If rs ("" raíz "") = true entonces %>
carpetastree = gfld ("" < %= rs ("" "Catname" ") %>" "," "< %= rs (" "caturl" ") %>" ")
< % Else %>
aux1 = insfld (carpetae, gfld ("" < %= rs ("" "Catname" ") %>", "" < %= rs ("" "") %> ")))
<% cotentId = rs ("" id "")
saveDID = rs ("" id "")
Do whithindId = savedid y no rs.EOF
if rs ("" linkname "") <> "" "entonces %>
INSDOC (Aux1, GLNK (0, "" < %= RS ("" LinkName "") %> "", "" < %= RS ("" "Linkurl" ") %>")))