[Resolvido] Menu Estilo Windows XP

[xanburzum 169]

<% 'Cria o objeto que irá gerar o menu 

 

Set oTree = Server.CreateObject("obout_asptreeview_XP.tree")

 

'Diretório onde se encontra os ícones

 

oTree.TreeIcons_Path = "/asptree/tree"

 

'Diretório onde se encontra os Estilos (.css)

 

oTree.TreeStyle_Path = "/asptree/tree"

 

'Título Principal do Menu

 

oTree.Add "root", "xan", " TEste ", True, "xpPanel.gif"

 

'Ajusta os tópicos do menu

 

oTree.Add "bill", "a0", " Teste 1 ", True, "folder.gif"

 

oTree.Add "bill", "a1", " Teste 2 ", True, "folder.gif"

 

oTree.Add "bill", "a2", " Teste 3 ", True, "folder.gif"

 

'Ajusta os subtópicos do primeiro

 

oTree.Add "a0", "a0_0", " Sites ", , "folder.gif"

 

oTree.Add "a0", "a0_1", " E-mails ", , "folder.gif"

 

oTree.Add "a0", "a0_2", " SQL ", , "folder.gif"

 

oTree.Add "a0", "a0_3", " .Net ", , "folder.gif"

 

oTree.Add "a0", "a0_4", " ASP ", , "folder.gif"

 

oTree.Add "a0", "a0_5", " ASP.NET ", , "folder.gif"

 

oTree.Add "a0", "a0_6", " Java, JSP, Servlets ", , "folder.gif"

 

'Ajusta os subtópicos do segundo

 

oTree.Add "a1", "a1_0", " SPAM ", True, "folder.gif"

 

oTree.Add "a1", "a1_1", " Vídeos ", True, "folder.gif"

 

oTree.Add "a1", "a1_2", " Administração ", True, "folder.gif"

 

oTree.Add "a1", "a1_3", " Músicas ", True, "folder.gif"

 

'Cria mais um nível para o primeiro subtópico do segundo tópico

 

oTree.Add "a1_0", "a1_0_0", " Detecção de SPAM por cabeçalho ", , "folder.gif"

 

oTree.Add "a1_0", "a1_0_1", " Lista de Midia ", , "folder.gif"

 

'Ajusta os subtópicos do terceiro

 

oTree.Add "a2", "a2_0", " Programação em VXML ", True, "folder.gif"

 

oTree.Add "a2", "a2_1", " Integração entre Web / Telefonia ", True, "folder.gif"

 

oTree.Add "a2", "a2_2", " Windows ", True, "folder.gif"

 

'Escreve o HTML que vai gerar o menu em sua página

 

Response.Write oTree.HTML

 

'Destrói o objeto que gerou o menu

 

Set oTree = Nothing

 

%>