Una página relativamente simple, similar a la lista izquierda del foro CSDN en el NS
describir:
1. 1.
Nombre de datos: Tree.mdb
Nombre de la tabla: árbol
Estructura de la tabla: ID (autoeditado) PID (número) Contenido (texto) Enlace (texto)
2.
Foto: endnode.gif colapsed.gif back.gif (ambos en el directorio IMG, puede modificarlo usted mismo)
3 ..
Código:
<!-#include file = "conn.inc"->
<html>
<Evista>
<meta http-oquiv = "content-type" content = "text/html; charset = gb2312">
<Meta name = "general" content = "Microsoft FrontPage 4.0">
<title> Lista ilimitada </title>
<!-
por Fason (2003-5-12)
->
<Estilo>
.Node {
tamaño de fuente: 12px;
relleno: 0 0 2 0;
margen-izquierda: 10;
Altura: 22px;
}
img {
Align vertical: medio;
Ancho: 11px;
Altura: 11px;
}
A {Decoración de texto: Ninguno;
.deeptree {
Ancho: 100%;
Altura: 100%;
color retroceso:#f2f2f2;
desbordamiento: auto;
}
</style>
</ablo>
<Body bgcolor =#f2f2f2>
<Nobr>
<div>
<%
newid = request.queryString ("ID")
if newid = "" o cint (newid) <0 thatn newid = 0
if isnumérico (newid) entonces
Listtree (Cint (NewID))
final si
Función listree (id)
Dim RS
Dim imgfolder, imgfile
Dim Link, Href, PainThref
Dim Target, Ahref, haga clic
Target = "Main" 'Nombre del marco especificado
imgfolder = "img/" 'ruta predeterminada
Establecer rs = conn.execute ("Seleccione contar ( *) desde el árbol donde pid = t.id) como hijos, (seleccione PID desde el árbol donde id =" & id & ") como padre del árbol del árbol p id =" & id )
Si no es RS.EOF entonces
Parentref = request.ServerVariAbles ("url") & "? Id =" & rs ("pintar")
Si id <> 0 la respuesta.write "<div class = 'node' nowrap = true> <a href = '" & parenthRef & "' onfocus = 'blur ()'> <img src = '& imgfolder &" back .gif 'border = 0> </a> <a href =' "& parenthref &" '> Catálogo anterior </a> </div> "& vbcrlf
haz mientras no rs.eof
Si rs ("niños")> 0 entonces
img = imgfolder "colapset.gif"
href = request.ServerVariables ("url") & "? id =" & rs ("id")
hacer clic = "onclight =" "ubicación.href = '" & href & "'" ""
demás
img = imgfolder "endnode.gif"
href = "javascript: void (0)"
final si
Si no es isnull (rs ("enlace") entonces
Ahref = rs ("enlace")
demás
ahref = "javascript: void (0)"
Target = "_ Self"
final si
Link = "<a href = '" & ahref & "' target = '" & target & "' title = '" & rs ("contenido") & "'" & click & ">" "contenido") & " </a> "</a>
Response.Write "<div class = 'node' nowrap = true> <a href = '" & href & "' onfocus = 'blur ()'> <img src = '" & img & "' border = 0> << /a> "" & link & "</div>" "
Rs.Movenext
bucle
Rs.close: establecer rs = nada
final si
función final
conn.close: establecer conn = nada
%>
</div>
</lobr>
</body>
</Html>
Conn.inc:
<%
Dim CONN
establecer conn = server.createObject ("ADODB.Connection")
Conn.open "Provider = Microsoft.Jet.Oledb.4.0; Data Source =" & Server.mappath ("Tree.mdb") & "; Persist Security Info = False" "
%>
4. Prueba: IE6, NS7, Mozilla bajo la prueba y pasó