ASP – Controle TreeView

Um controle TreeView é extremamente simples fazer em ASP. Este código mostra como criar uma classe simples treeview usando ASP e estilo em cascata. Excelente para programadores que desejam aprender como criar simples controles ASP. Vamos começar adicionando o TreeNodes manualmente
Para criar um treeview devemos incluir o seu arquivo de classe treeview (clsTreeView.asp) código mostrado abaixo:

<!–#include file=”clsTreeView.asp”–>
<%
‘declarar seu objeto treeview
Dim objTV

‘criar uma instância de seu treeview
Set objTV = New TreeView

‘adicionar 2 nós para o seu treeview
objTV.AddNode(“Node1″) 
objTV.AddNode(“Node2″)

‘adicionar 2 folhas ao seu primeiro nó 
objTV.Nodes(0).Add(objTV.CreateNode(“Node 1:1″,”page1.htm”,”Tool                  tip text”)) 
objTV.Nodes(0).Add(objTV.CreateNode(“Node 1:2″,”page2.htm”,”Tool                  tip text”))

‘adicionar um nó childNode para o seu segundo nó
objTV.Nodes(1).Add(objTV.CreateSimpleNode(“Node 2:1″))

‘adicionar folhas para o seu primeiro filho segundo nó 
With objTV.Nodes(1).ChildNodes(0) 
.Add(objTV.CreateNode(“Msn Brasil “,”http://br.msn.com”,”Msn Brasil(2:1:1)”)) 
.Add(objTV.CreateNode(“Burzum “,”http://Burzum.com”,”Burzum(2:1:2)”))

‘adicionar uma imagem diferente para o link Msn Brasil
.ChildNodes(0).ImageUrl=”http://www.msn.com/favicon.ico” 
End With

‘mostrar o seu treeview
objTV.Display

‘limpa a memória
Set objTV = Nothing

%>

Usando Múltiplas TreeViews
Se você quiser usar mais de uma treeview na mesma página, adicione um valor de identificação para cada árvore como segue:

‘declarar objetos
Dim objTV1, objTV2

‘criar instâncias de sua treeviews
Set objTV1 = New TreeView
Set objTV2 = New TreeView

‘ID do set treeview
objTV1.ID = “TV1″
objTV2.ID = “TV2″

Carregamento de um banco de dados
Se você quiser carregar o treeview de uma tabela de banco de dados, verifique se você tem uma tabela em seu banco de dados com a seguinte estrutura:

Onde o campo ParentID é o primeiro ancestral do nó de árvore.O ParentID de zero indica um nó raiz na árvore. Os campos URL e ToolTip pode ser deixado vazio para nós não-folha. Você pode então carregar o treeview, chamando o método LoadFromDB da seguinte forma:

TreeView.LoadFromDB (Connection String, Nome da tabela Menu)

O código de exemplo abaixo mostra como carregar o treeview de uma tabela de banco de dados chamado de menu:

<!–#include file=”clsTreeView.asp”–>
<%

‘declare objetos
Dim objTV, strConn

‘definir a sua seqüência de conexão
strConn = “DRIVER={Microsoft Access Driver (*.mdb)};” _
& “DBQ=” & Server.MapPath(“site.mdb”)

‘criar instâncias de seu treeview
Set objTV = New TreeView

‘carregar a treeview da tabela de banco ‘Menu’
Call objTV.LoadFromDB(strConn,”Menu”)

‘exibie o treeview 
objTV.Display

‘limpar a memória 
Set objTV = Nothing

%>

Você sempre pode modificar o banco de dados e da Classe TreeView (arquivo clsTreeView.asp) para atender às suas necessidades como a adição de um campo ImageURL ou mesmo otimizar o procedimento LoadFromDB.

Exibindo um diretório windows / pasta

Se você quiser exibir o conteúdo de uma pasta como o Windows Explorer, tudo que você tem a fazer é chamar o DisplayFolderContents com o caminho da pasta como mostrado abaixo:

<!–#include file=”clsTreeView.asp”–>
<%

‘declarar os objetos
Dim objTV

‘criar uma instância de seu treeview
Set objTV = New TreeView
Call objTV.DisplayFolderContents(“C:InetPubwwwroot”)

‘limpar memória
Set objTV = Nothing

%>

Fonte: http://www.mxstudio.com.br/desenvolvimento/dreamweaver/controle-treeview/