Jump to content


Photo

Menu "+"


  • Faça o login para participar
2 replies to this topic

#1 Qwert133

Qwert133

    Normal

  • Usuários
  • 89 posts
  • Sexo:Não informado

Posted 03/06/2004, 18:39

Ola pessoal,

como eu faço para num sistema de listagem de categorias, colocar um menu com um "+", assim, exemplo:

______________
menu fechado

+ Carro
+ Moto
______________

se a pessoa clicar na categoria Carro aparece as subcategorias do carro
______________
- Carro
Importado
Nacional
+ Moto
______________

e se a categoria não tiver subcategoria não aparecer o "+".

VLW<> (y)

#2 amgnatureza

amgnatureza

    |O.o|

  • Usuários
  • 269 posts
  • Sexo:Não informado
  • Localidade:SP - interior
  • Interesses:ASP

Posted 03/06/2004, 22:10

Olha esse

http://www.tecnocodi...nus&articulo=16

Na categoria "menus" tem uns outros bem legais


T+

#3 Qwert133

Qwert133

    Normal

  • Usuários
  • 89 posts
  • Sexo:Não informado

Posted 04/06/2004, 18:13

oh pessoal o menu com o "+" um colega me ajudou e ficou assim>

<%
Subcarro=request.querystring("Subcarro")
if Subcarro = "sim" then
%>
<a href="arquivo.asp?Subcarro=sim" >+Carros</a>
<a href="arquivo.asp?Subcarro=sim" >-Conversiveis</a>
<a href="arquivo.asp?Subcarro=sim" >-Antigos</a>
<a href="arquivo.asp?Subcarro=sim" >-Corrida</a>
<%end if%>

<%
Submoto=request.querystring("Submoto")
if Submoto = "sim" then
%>
<a href="arquivo.asp?Submoto=sim" >+Motos</a>
<a href="arquivo.asp?Submoto=sim" >-Enduro</a>
<a href="arquivo.asp?Submoto=sim" >-Trash</a>
<a href="arquivo.asp?Submoto=sim" >-Corrida</a>
<%end if%>



Mais só que ai está como se fosse html, os dados estão prontos, mais eu quero fazer em asp, ai na verdade eu quero juntar esses dois codigos, ode cima com o de baixo, para ficar o menu do "+" com os dados vindo do asp.
Quem puder ajudar, posta ai, VLW







está ai o código, quem fez ele foi o Leonardo, LeoB:
codigo em asp sem menu
<%

Dim Conexao

Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Banco.mdb")

Listar 0, ""

Sub Listar(ByVal Relac, ByVal Espacos)
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "SELECT * FROM Categorias WHERE Relac=" & Relac, Conexao, 1, 3
If Not Rs.EOF Then
While Not Rs.EOF%>
<style type="text/css">
<!--
.style1 {font-size: 9px}
-->
</style>

<span class="style1"></span>
<% Response.Write Espacos & Rs("Categoria") & "<br>"
Listar Rs("Id"), (Espacos & "&nbsp; ")
Rs.MoveNext
Wend
End If
Rs.Close
Set Rs = Nothing
End Sub

Conexao.Close
Set Conexao = Nothing

%>




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq