Implementando a árvore de diretório de um site usando ASP
Estrutura do banco de dados (duas tabelas são usadas no total)
1. Tblcategory
Nome do campo Tipo
Árvore de descrição binária da raiz Fechar ou abrir (raiz do diretório)
Identificar palavras -chave de numeração automática
O número inteiro de classificação reconhece o número inteiro que contém o campo (se a raiz estiver aberta, a classificação é 0) indica a ordem do diretório exibido.
Nome Texto (255) pode conter identificadores em HTML
Texto href (255) permita vazio
2. TblPages
Id numeração automática
Classificar palavras -chave inteiras
Nome Texto (255)
Texto de Href (255)
3.Default.htm
<html>
<head>
<title> Javascript Tree Control Modelo </ititle>
</head>
<FrameSet cols = "" 210,*"">
? <quadro src = "" árvore.asp "" name = "" toc "">
? <quadro src = "" main.htm "" name = "" basefrm "">
</frameSet>
</html>
4.Main.htm
<Head> <title> </title> </head>
<Body>
<H2> Iniciar página </h2>
</body>
</html>
5.Tree.asp
Definir Conn = Server.CreateObject ("" Adodb.Connection "")
Set rs = server.createObject ("" adodb.recordset "")
Conn.open "" Driver = Microsoft Access Driver (*.mdb); dbq = "" & Server.mappath ("" Toc.mdb "")
strsql = "" Selecione tblcategory.root, tblcategory. [id], tblcategory.sort como catsort, tblpages.sort como linksort, tblcategory. [nome] como linkname, tblpages, tblpages.href como caturl, tblpages. tblcategory. [id] = tblpages.
Rs.pen strsql, Conn, 2, 2
se não for rs.eof, então rs.movefirst
currentId = "" "" %>
<html>
<head>
<link rel = "" STILEET "" href = "" ftie4style.css "">
<!-Código de infraestrutura para a árvore->
<script src = "" ftiens4.js ""> </script>
<!-Execução do código que realmente constrói a árvore específica->
<Cript>
UseTextLinks = 1
<%
Faça enquanto não é Rs.eof
Se rs ("" root "") = true então %>
pasterStree = gfld ("" < %= rs ("" "catname" ") %>", "" < %= rs ("" "caturl") %> "")
< % Else %>
Aux1 = Insfld (Federstree, GFLD ("" "< %= RS (" "" CatName "") %> "", "" < %= rs ("" "") %"")))
<% currentId = rs ("" id "")
savedId = rs ("" id "")
Faça enquanto currentID = savedId e não rs.eof
Se rs ("" linkName "") <> "" "então %>
INSDOC (aux1, glnk (0, "" < %= rs ("" linkName "") %> "", "" < %= rs ("" "linkurl") %> "")))