Ir para conteúdo
Fórum Script Brasil
  • 0

Link No Bd

Mateustg

Perguntado por Mateustg,

 Share

Pergunta

Mateustg

Mateustg

Postado
Postado

Olá, é o seguinte:

tenho um sistema onde tenho uma categoria cadastrada e dentro dela posso cadastrar vários albuns. Dentro dos albuns posso colocar várias fotos.

então, quando crio um album, ele fica possivel ser acessado através deste link:

""default.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & rsAlbum("id")& "&album=" & rsAlbum("nome") & """><img width=""60"" height=""60"" border=0 src="""&imagem&"""

Aqui ele pega o id e o nome da categoria, o id e nome do album, sendo que o id e nome da categoria, sempre serão os mesmo, somente o id e nome do album que mudaram...tipo..idalbum=5&album= Lote 2 (este vai para o lote 2), caso seja idalbum=6&album= Lote 3 (este vai para o lote 3), o que mudou foi o id e o nome...pois bem, gostaria de saber como faço para gravar isto no Banco de Dados?

É que vou fazer uma área de administração, para cadastro de usuários, então quero que no cadastro tenha, o login, a senha e o lote que o cara vai escolher..se ele escolher o lote 2...então será gravado no BD o login e a senha q ele digitou e se foi lote 2, será gerado no campo correspondente do BD o link que vai para o lote 2...como faço isso?

Link para o comentário
Compartilhar em outros sites

28 respostass a esta questão

Posts Recomendados

  • 0
dark0

dark0

Postado
Postado

Olá

Olha só..

Na minha opinião, seu código está se perdendo nele mesmo.

Pois, é muito if seguido.. provavelmente ele ta entrando em algum que não deveria entrar

Minha sugestão, é que você abra um if, faça a condição dele e feche ele depois

Depois, abra outro, faça a condição dele, e depois feche

Assim, não vai ficar um if aberto dentro de outro if, que tem outro if, que tem else, que tem else, que tem end if

Não vou dizer que a lógica está errada, porque provavelmente está certa

A unica coisa que percebo, é que tem muito if dentro de outro.

Acho que nesses ifs todos, você colocou um if dentro de um else que não devia, e por isso o codigo não funciona como o desejado.

Recomendo à vc, antes de mais nada, rever seus ifs e elses

Pois, tem lugares que você coloca IF, depois faz Else, e depois abre IF denovo, fazendo uma comparação quase igual ào primeiro IF.

Isso tudo, quando é executado, pode deixar o codigo confuso, e não funcionar direito

É isso que acho.

Abraço

<%

'A primeira coisa a ser feita é verificar se o usuário está logado

If session("nivel_acesso") = "" Then

Response.Write "Você não está logado!"

Response.End

End If

'Vamos então, verificar o nivel de acesso do usuário e inserirmos o conteúdo correspondente

If session("nivel_acesso") = 1 Then 'gerentes

%>

<!--#include file="conectar.asp"-->

<html>

<head>

<title>Album de Fotos</title>

</head>

<body bgcolor="#045979" text="#FFFFFF" link="#73BCF2" vlink="#73BCF2" alink="#73BCF2">

<font face="Verdana" size="1">

<BR><HR size="1"><BR>

<%

AbreConexao

idcat=request.querystring("idcat")

idalbum=request.querystring("idalbum")

cat=request.querystring("cat")

album=request.querystring("album")

login2 = Request.Form("txt_login")

senha2 = Request.Form("txt_senha")

'/////COMECA AS CATEGORIAS

If idcat = "" Then

Set rsCats = Conexao.Execute("SELECT * FROM categorias ORDER BY nome")

If rsCats.EOF Then

  Response.Write "Nenhuma categoria encontrada!"

Else

  While not rsCats.EOF

  Response.Write "<a href=""default2.asp?idcat="&rsCats("id")&"&cat="&rsCats("nome")&""">"&rsCats("nome")&"</a><br>"

  rsCats.Movenext

  Wend

End If

'/////COMECA OS ALBUNS

Else

If idalbum = "" Then

  Response.Write "<font size=2><B>"&cat&"</font></B>"

  Set rsAlbum = Conexao.Execute("SELECT * FROM album WHERE idcat="&idcat&" ORDER BY nome")

  If rsAlbum.EOF Then

  Response.Write "Nenhum lote encontrado!"

  Else

  Response.Write "<div align=""center""><table border=0 cellpadding=5 cellspacing=0 width=""70%"">"

  contar = 0

  Do while not rsAlbum.eof

    If contar <> 5 Then

    Response.Write "<TR>"

    End If

    imagem=rsAlbum("imagem")

    If RsAlbum.eof then exit do

    Response.Write "<td><a href=""login.html""><img width=""60"" height=""60"" border=0 src="""&imagem&"""></td><BR>"

    contar = contar +1

    rsAlbum.Movenext

  Loop

  Response.Write "</tr></table></div>"

  End if

'/////COMECA AS FOTOS

Else

  Response.Write "<font size=2><B>"& cat &" > "& album & "</font></b><BR><BR>"

  Set rsFotos = Conexao.Execute("SELECT * FROM fotos WHERE idalbum="&idalbum&"")

  If rsFotos.EOF Then

  Response.Write "Nenhuma foto encontrada!"

  Else

  Response.Write "<div align=""center""><table border=0 cellpadding=15 cellspacing=0 width=""80%"">"

  contar = 0

  Do while not rsFotos.eof

    If contar = 5 Then

    Response.Write "<tr>"

    End If

    If contar <> 5 Then

    Response.Write "<TR>"

    End If

    imagem=rsFotos("imagem")

    If RsFotos.eof then exit do

    Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60"" border=0 src="""&imagem&"""></a></td>"

    contar = contar +1

    rsFotos.MoveNext

    If RsFotos.eof then exit do

    imagem=rsFotos("imagem")

    Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60""  border=0 src="""&imagem&"""></a></td>"

    contar = contar + 1

    rsFotos.MoveNext

    If RsFotos.eof then exit do

    imagem=rsFotos("imagem")

    Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60""  border=0 src="""&imagem&"""></a></td>"

    contar = contar + 1

    rsFotos.MoveNext

    If RsFotos.eof then exit do

    imagem=rsFotos("imagem")

    Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60""  border=0 src="""&imagem&"""></a></td>"

    contar = contar + 1

    rsFotos.MoveNext

    If RsFotos.eof then exit do

    imagem=rsFotos("imagem")

    Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60""  border=0 src="""&imagem&"""></a></td>"

    contar = contar + 1

    rsFotos.MoveNext

  Loop

  Response.Write "</tr></table></div>"

  End if

End If

End If

End If

'/////COMECA LOGIN

sessao = request.querystring("sessao")

Select case sessao

Case "log"

  Set rsCadastro = Conexao.Execute("SELECT * FROM cadastro WHERE login = '"&login2&"' and senha = '"&senha2&"'")

  If rsCadastro.EOF Then

  Response.Write "usuário ou senha inválido(s)!"

  Response.End

  End If

  'Se chegou até aqui, é porque o login e senha estão corretos.

  'Vamos então verificar o nível de acesso do usuário.

  session("nivel_acesso") = RSCadastro("nivel")

  'Colocamos numa session pois iremos utiliza-las em outras páginas

  Response.Redirect "default2.asp?idcat=" & 1 & "&cat=" & Lotes & "&idalbum=" & rsCadastro("idalbum")& "&album=" & rsCadastro("nome") & "" 'página restrita

End Select

%></font>

<p><HR size="1">

</body>

</html>

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

bom

eu não sei mais como te ajudar, então

Pois, provavelmente algum de seus Ifs está fazendo com que o código não funcione corretamente.

E, como você colocou tudo em uma pagina só, não tenho mais como te ajudar.

Ficam aí minhas sugestões.

Quem sabe alguém consiga lhe ajudar.

Boa sorte

Dark.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...