Une page relativement simple, similaire à la liste de gauche du forum CSDN sous le NS
décrire:
1. 1.
Nom des données: arbre.mdb
Nom de la table: arbre
Structure du tableau: ID (auto-édité) PID (numéro) Contenu (texte) Lien (texte)
2
Photo: endnode.gif effondré.gif back.gif (les deux dans le répertoire IMG, vous pouvez le modifier par vous-même)
3 ..
Code:
<! - # Inclure file = "conn.inc" ->
<html>
<adal>
<meta http-equiv = "content-type" content = "text / html; charset = gb2312">
<Meta name = "General" content = "Microsoft FrontPage 4.0">
<Title> Liste illimitée </TITME>
<! -
par Fason (2003-5-12)
->
<Style>
.Node {
taille de police: 12px;
rembourrage: 0 0 2 0;
marge-gauche: 10;
Hauteur: 22px;
}
img {
Adigne vertical: milieu;
Largeur: 11px;
hauteur: 11px;
}
A {Text-Decoration: Aucun;
.deeptree {
Largeur: 100%;
hauteur: 100%;
Color de backgound: # f2f2f2;
débordement: auto;
}
</ style>
</ Head>
<Corps bgcolor = # f2f2f2>
<nobr>
<div>
<%
newId = request.QueryString ("id")
Si newid = "" ou cint (newid) <0 thatn newid = 0
Si ISNUMERIC (NewId) alors
ListTree (Cint (NewID))
terminer si
Fonction Listree (ID)
Rs sombre
Dim imgfolder, imgfile
Dim Link, Href, Painthref
Target Dim, Ahref, cliquez
Target = "Main" 'Nom du cadre spécifié
imgfolder = "iMg /" 'chemin par défaut
Définissez rs = conn.execute ("Sélectionner le nombre (*) dans l'arborescence où pid = t.id) comme enfants, (sélectionnez pid dans l'arbores )
Si ce n'est pas Rs.Eof alors
ParentHref = request.servervariables ("url") & "? Id =" & rs ("peinture")
Si id <> 0 la réponse.write "<div class = 'node' nowrap = true> <a href = '" & parentHref & "' onfocus = 'blur ()'> <img src = '& imgfolder &" back .gif 'border = 0> </a> <a href =' "& parentHref &" '> catalogue précédent </a> </div> "& vbcrlf
faire tout en pas Rs.Eof
Si rs ("enfants")> 0 alors
img = imgfolder "collapset.gif"
href = request.servervariables ("url") & "? id =" & rs ("id")
click = "onclight =" "location.href = '" & href & "'" ""
autre
img = imgfolder "endnode.gif"
href = "javascript: void (0)"
terminer si
Sinon ISNULL (RS ("Lien") alors
Ahref = rs ("lien")
autre
ahref = "javascript: void (0)"
Target = "_ self"
terminer si
Link = "<a href = '" & ahref & "' cible = '" & cible & "' title = '" & rs ("contenu") & "'" & cliquez ">" "contenu") & " </a> "</a>
Réponse.write "<div class = 'node' nowrap = true> <a href = '" & href & "' onfocus = 'blur ()'> <img src = '" & img & "' border = 0> < / a> "" & link & "</div>" "
Rs.MovEnext
boucle
Rs.Close: Set rs = rien
terminer si
fonction finale
Conn.Close: Définissez Conn = Rien
%>
</div>
</ nobr>
</docy>
</html>
Conn.inc:
<%
tabar
Définir Conn = Server.CreateObject ("Adodb.Connection")
Conn.open "Provider = Microsoft.Jet.Oledb.4.0; Data Source =" & Server.Mappath ("Tree.MDB") & "; Persist Security Info = False" "
%>
4. Test: IE6, NS7, Mozilla sous le test et a traversé