Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

revoltedpig

como criar tipo um TREE MENU???

Recommended Posts

alguém aqui tem algum código asp qi serve pra fazer um menu, pegando os links de um bd tipo esse abaixo?

 

::LINKCATEG1::

::LINKCATEG2::

::LINKCATEG3::

::LINKCATEG4::

::LINKCATEG5::

 

aí, na hora qi a pessoa clica, por exemplo, no link 3 aí fica assim:

 

::LINKCATEG1::

::LINKCATEG2::

::LINKCATEG3::

aí abrem todos os links do bd aki dessa forma:

LINK1

LINK2

...

::LINKCATEG4::

::LINKCATEG5::

 

onde os LINKCATEG sao retirados de uma tabela chamada "LINK" e o LINK1, LINK2... sao retirados de uma tabela com o mesmo nome (no exemplo acima: LINKCATEG3 é o nome da tabela).... entendeu???

eu estou tentando fazer da forma abaixo mas nao consigo de geeeeeito nem um!!! por favor, se você souber programar asp, arrume o código abaixo pra mim ou entao me arrume algum código qi faça o qi quero, ok? tem + ou - o exemplo lá na SB só qi lá tem em JS e eu preciso em ASP pra mim pegar os dados de um BD....... é tipo esse menu qi eu quero: http://www.scriptbrasil.com/script/dhtml/m...folder_menu.php

 

olha aí a pagina qi eu fiz e nao quer dá certo:

 

 

<!--------------------inicio da menu_selecionar.asp------------------------>

 

<%

Id=Request("Id")

Set Conn = Server.CreateObject("ADODB.Connection")

StrCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("pags.mdb")

Conn.Open StrCon

Set DB = Server.CreateObject("ADODB.Recordset")

StrRS = "SELECT * FROM menu ORDER BY categ ASC"

DB.Open StrRS, Conn

Do While Not DB.Eof

Cat=DB("NomeCat") 'nome da categoria

Categ=DB("Categ") 'nome da tabela dessa categoria no bd

NumRegis=DB.RecordCount 'número de registro da tabela

Response.Write "<A Href=menu_selecionar.asp?id="&DB("ID")&">"&Categ&"</A>"

Count=1

Do While Count < NumRegis

Count=Count+1

Loop

If Count=Id then

%><Hr><%sever.execute "menu_selecionado.asp?id="& ID%><Hr><%

Else

Response.Write "....<Br>"

End If

DB.MoveNext

Loop

%>

 

<!---------------fim da menu_selecionar.asp ------------------->

<!-------------começo da menu_selecionado.asp--->

 

<%

Id=Request.QueryString("Id")

Set Conn = Server.CreateObject("ADODB.Connection")

StrCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Pags.mdb")

Conn.Open StrCon

Set DB = Server.CreateObject("ADODB.Recordset")

StrRS = "SELECT * FROM Menu WHERE id=" & Id

DB.Open StrRS, Conn

Do While Not DB.Eof

Response.Write "> "DB("Id") & " - " & DB("Categ") & " / Nome da Table - "& DB("NomeCat")

DB.MoveNext

Loop

%>

 

<!-------fim da menu_selecionado.asp---->

 

 

 

entendeu?????? por favor, se você tiver entendido minha dúvida, me ajude!!!

aguardo respostas!!!!!!

abraços!!!!!

 

icq-107840105

http://www.nmhp.cjb.net

Compartilhar este post


Link para o post
Compartilhar em outros sites

já sei qi "Existem vários JS para isso" mas algum desses "vários" pegam os "sub-itens"/links de um bd????por favor, envie-o para mim caso ele os capture de um bd...e outra coisa tb sei qi é ruim pelo reload qi faz mas, fazer o q?? nao adianta nada é melhor fazer o reload do q eu usar java e ter qi ditano tuuuudo uuum pooor uuuum............por favor me ajudem!!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.