Uma página relativamente simples, semelhante à lista de esquerda do fórum CSDN sob o NS
descrever:
1. 1.
Nome dos dados: árvore.mdb
Nome da tabela: Árvore
Estrutura da tabela: ID (auto -editado) PID (número) de conteúdo (texto) Link (texto)
2.
Foto: endnode.gif colapsed.gif Back.gif (ambos no diretório IMG, você pode modificá -lo sozinho)
3 ..
Código:
<!-#incluir file = "Conn.inc"->
<html>
<head>
<meta http-equiv = "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 {
tamanho de fonte: 12px;
preenchimento: 0 0 2 0;
margem-esquerda: 10;
Altura: 22px;
}
img {
Alinhamento vertical: meio;
Largura: 11px;
Altura: 11px;
}
A {Decoração de texto: Nenhum;
.deeptree {
largura: 100%;
Altura: 100%;
Backgound-Color:#f2f2f2;
Overflow: Auto;
}
</style>
</head>
<Corpo bgcolor =#f2f2f2>
<BoBr>
<div>
<%
newid = request.QueryString ("ID")
se newid = "" ou cint (newid) <0 que não newid = 0
Se fornumérico (newid), então
Listtree (Cint (Newid))
final se
Função listree (id)
Dim Rs
Dim imgfolder, imgfile
Dim Link, Href, Palthref
Dim Target, Ahref, clique
Target = "Main" 'Nome da estrutura especificada
imgfolder = "img/" 'caminho padrão
Definir rs = Conn.Execute ("Selecione a contagem ( *) da árvore onde pid = t.id) como crianças (selecione PID da árvore onde id =" & id & ") como pai da árvore da árvore P id =" & id )
se não Rs.eof então
PARESEF = request.Servervariables ("url") e "? Id =" & rs ("tinta")
se id <> 0 a resposta.Write "<div class = 'node' nowrap = true> <a href = '" & pare -paref & "' onfocus = 'bluur ()'> <img src = '& imgfolder &" back .gif 'borda = 0> </a> <a href =' "& pare -parefref &" '> catálogo anterior </a> </div> "& vbcrlf
Faça enquanto não é Rs.eof
Se rs ("crianças")> 0 então
img = imgfolder "colapset.gif"
href = request.Servervariables ("url") e "? id =" & rs ("id")
clique = "onclight =" "location.href = '" & href & "'" ""
outro
img = imgfolder "endnode.gif"
href = "JavaScript: void (0)"
final se
se não é isnull (rs ("link") então
Ahref = rs ("link")
outro
AHREF = "JavaScript: void (0)"
Target = "_ self"
final se
Link = "<a href = '" & Ahref & "Target ='" & Target & "Title = '" & Rs ("Content") & " </a> "</a>
Response.Write "<div class = 'node' nowrap = true> <a href = '" & href & "' onfocus = 'bluur ()'> <img src = '" & img & "Border = 0> < /a> "" & link & "</div>" "
rs.movenext
laço
Rs.close: defina rs = nada
final se
Função final
Conn.Close: Set Conn = Nada
%>
</div>
</borr>
</Body>
</html>
Conn.inc:
<%
Dim Conn
Definir Conn = Server.CreateObject ("Adodb.Connection")
Conn.Open "Provider = Microsoft.Jet.oledb.4.0; Data Source =" & Server.mappath ("Tree.mdb") & "; Persist Security Info = False" "
%>
4. Teste: IE6, NS7, Mozilla sob o teste e passou por