ASPTreeview

[Miasato 0]

Olá Pessoal...

Estive montando um treeview e durante minhas pesquisas pela internet, GOOGLE, verifiquei que existe vários artigos de treeview.

Aqui vou postar um sobre o ASPTreeView bastante funcional e presente em algumas hospedagens de sites.

 

 

 

<%
				Dim oTree, html 'Cria a variável
	Set oTree = Server.CreateObject("obout_asptreeview_XP.tree") 'Cria o objeto 

	oTree.Add "root", "a0", "Nome do Menu", True 'Cria o menu ABERTO (TRUE)
	   oTree.Add "a0", "a1", "<a href=link_aa.asp' target='corpo' class=ob_a2>Nome do Link Aa</a>"
	   oTree.Add "a0", "a2", "<a href='link_ab.asp' target='corpo' class=ob_a2>Nome do Link Ab</a>"

	oTree.Add "root", "b0", "Nome do Menu", False 'Cria o menu FECHADO (FALSE)
	   oTree.Add "b0", "b1", "<a href=link_ba.asp' target='corpo' class=ob_a2>Nome do Link Ba</a>"
	   oTree.Add "b0", "b2", "<a href='link_bb.asp' target='corpo' class=ob_a2>Nome do Link Bb</a>"

	'oTree.TreeIcons_Path = "menu/explorer/"	 'Pasta onde contém as imagens e icones para ilustrar o treeview
	oTree.ShowIcons = False	 'Oculta oas imagens e icones (FALSE)

				oTree.TreeStyle_Path = "menu/explorer"	  'Pasta onde contém as imagens e icones para ilustrar o treeview	
	oTree.Width = "151px"	 'Largura do espaço do treeview

	Response.Write oTree.HTML()	'Imprime o treeview na tela
	Set oTree = Nothing	'Destroi o componente
	%>

 

Este está de forma fácil e objetivo, porém depende do servidor de hospedagem possuir este componente publicado. Pode haver casos de alguma regra de utilização ser diferente da acima....

 

Espero ter ajudado....

 

 

Abs

 

Miasato

www.bluemantle.com.br

[xanburzum 169]

Por gentileza, utilize o sub-fórum -> Laboratório de script, para postar códigos.

 

Att.

 

X@nBuRzUm