[xanburzum]

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:

'declare objects
			Dim objTV1, objTV2
			
			'create instances of your treeviews
			Set objTV1 = New TreeView
			Set objTV2 = New TreeView
			
			'set treeview ID's
			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:

http://sintchospir.com.br/dbfields.gif http://sintchospir.com.br/dbstructure.gif

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:\InetPub\wwwroot")

'limpar memória
Set objTV = Nothing


%>