Eine relativ einfache Seite, ähnlich der linken Liste des CSDN -Forums unter dem NS
beschreiben:
1. 1.
Datenname: Tree.mdb
Tabellenname: Baum
Tabellenstruktur: ID (selbstveredelt) PID (Nummer) Inhalt (Text) Link (Text)
2.
Foto: Endnode.gif collapsed.gif zurück.gif (beide im IMG -Verzeichnis können Sie es selbst ändern)
3 ..
Code:
<!-#include file = "conn.inc"->
<html>
<kopf>
<meta http-äquiv = "content-type" content = "text/html; charset = gb2312">
<Meta name = "allgemeine" content = "Microsoft FrontPage 4.0">
<title> Unbegrenzte Liste </title>
<!-
von Fason (2003-5-12)
->
<Styles>
.Node {
Schriftgröße: 12px;
Polsterung: 0 0 2 0;
Rand-Links: 10;
Höhe: 22px;
}
img {
vertikaler Align: Mitte;
Breite: 11px;
Höhe: 11px;
}
A {Textdekoration: keine;
.deeptree {
Breite: 100%;
Höhe: 100%;
Back-gund-Farben:#F2F2F2;
Überlauf: Auto;
}
</style>
</Head>
<Body Bgcolor =#f2f2f2>
<nobr>
<div>
<%
Newid = Request.queryString ("ID")
Wenn neu = "" oder cint (newid) <0 ist nicht newId = 0
Wenn isnumerisch (Newid) dann ist
Listree (Cint (Newid))
Ende wenn
Funktion Listree (ID)
Dim Rs
Dim imgfolder, Imgfile
Dim Link, href, palthef
Dim Target, Ahref, klicken Sie auf
Target = "main" 'angegebener Framework -Name
Imgfolder = "img/" 'Standardpfad
Setzen Sie rs = conn.execute ("zählen ( *) aus Baum, wobei pid = t.id) als Kinder (Wählen Sie PID aus Baum aus, wobei id =" & id & ") als übergeordnete Baumbaumbaum p id =" & id )
wenn nicht rs.eof dann
SONDREF = Request.Servervariables ("url") & "? ID =" & rs ("Farbe")
Wenn id <> 0 die Antwort.Write "<div class = 'node' nowrap = true> <a href = '" & parenthref & "' onfocus = 'Blur ()'> <img src = '& imgfolder &" zurück .gif 'border = 0> </a> <a href =' "& klammref &" '> Vorheriger Katalog </a> </div> "& vbcrlf
tun, während nicht Rs.Eof
Wenn RS ("Kinder")> 0 dann
img = imgfolder "collapet.gif"
href = request.servervariables ("url") & "? id =" & rs ("id")
klick = "onclight =" "location.href = '" & href & "'" "" "
anders
img = imgfolder "endnode.gif"
href = "JavaScript: void (0)"
Ende wenn
Wenn nicht iSnull (RS ("Link"), dann dann
AHREF = RS ("Link")
anders
AHREF = "JavaScript: void (0)"
target = "_ self" "
Ende wenn
Link = "<a href = '" & aref & "' target = '" & target & "' title = '" & rs ("Inhalt") & "'" & klick & ">" Inhalt ") &" </a> "</a>
Response.write "<div class = 'node' nowrap = true> <a href = '" & href & "' onfocus = 'bblur ()'> <img src = '" & img & "' Border = 0> < /a> "" & link & "</div>" "
Rs.Movenext
Schleife
Rs.close: RS = nichts setzen
Ende wenn
Endfunktion
conn.close: conn = nichts setzen
%>
</div>
</nobr>
</Body>
</Html>
Conn.inc:
<%
Dim Conn
Setzen Sie conn = server.createObject ("adodb.Connection").
conn.open "provider = microsoft.jet.oledb.4.0; data source =" & server.mappath ("baum.mdb") & "; Persist Security Info = False" ""
%>
4. Test: IE6, NS7, Mozilla unter dem Test und durchlaufen