Implémentation de l'arborescence d'annuaire d'un site Web à l'aide d'ASP
Structure de la base de données (deux tables sont utilisées au total)
1. Tblcategory
Type de nom de champ
Root Binary Description Arbre Close ou Open (racine du répertoire)
Mots clés de numérotation automatique ID
Tri Integer reconnaît l'entier qui contient le champ (si la racine est ouverte, le tri est 0) indique l'ordre du répertoire affiché.
Le texte du nom (255) peut contenir des identifiants en HTML
Le texte HREF (255) Autoriser vide
2. Tblpages
ID Numérotation automatique
Trier les mots clés entiers
Nom Texte (255)
Texte HREF (255)
3.Default.htm
<html>
<adal>
<Title> Template de contrôle de l'arborescence JavaScript </Title>
</ head>
<frameset cols = "" 210, * "">
? <frame src = "" arbre.asp "" name = "" toc "">
? <frame src = "" main.htm "" name = "" BaseFrm "">
</ FrameSet>
</html>
4.Main.htm
<A-Head> <Title> </ Title> </Ead>
<body>
<h2> Page de démarrage </h2>
</docy>
</html>
5.Tree.asp
Définir Conn = Server.CreateObject ("" Adodb.Connection "")
Set rs = server.createObject ("" adodb.recordSet "")
Conn.open "" Driver = Microsoft Access Driver (* .mdb); dbq = "" & server.mappath ("" toc.mdb "")
strSql = "" select tblcategory.root, tblcategory. [id], tblcategory.sort as Catsort, tblPages.sort as linksort, tblcategory. [name] as catname, tblcategory.href as Caturl, tblpages. tblcategory. [id] = tblPages. [id] Ordre par tblcategory.root asc, tblcategory.sort, tblpages.sort ""
Rs.Open StrSql, Conn, 2, 2
Si ce n'est pas Rs.Eof, Rs.MoveFirst
currentID = "" "" "%>
<html>
<adal>
<link rel = "" Stylesheet "" href = "" ftie4style.css "">
<! - Code d'infrastructure pour l'arbre ->
<script src = "" ftiens4.js ""> </ script>
<! - Exécution du code qui construit réellement l'arborescence spécifique ->
<cript>
USETextLinks = 1
<%
Faire tout en pas Rs.Eof
Si rs ("" root "") = true alors%>
FolderTree = gfld ("" <% = rs ("" "catname" ")%>" "," "<% = rs (" "" caturl "")%> "")
<% Else%>
AUX1 = INSFLD (FolderStree, GFLD ("" <% = RS ("" "Catname" ")%>" "," "<% = rs (" "" ")%>" "))
<% currentId = rs ("" id "")
SAVEDID = RS ("" ID "")
Faire tandis que currentId = SAVEDID et non Rs.Eof
Si rs ("" linkName "") <> "" "" alors%>
INSDOC (AUX1, GLNK (0, "" <% = RS ("" LinkName "")%> "", "" <% = RS ("" "LinkUrl" ")%>" "))