Jump to content


Photo

Endereco No Bd


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

#1 Morphman

Morphman

    << Leits FoReVeR ! >>

  • Usuários
  • 125 posts
  • Sexo:Não informado
  • Localidade:São Bernardo do Campo / SP
  • Interesses:Se quiser falar comigo, entra no MSN....Falow !

Posted 22/04/2004, 12:49

Um BD "login.mbd" com os campos id, login, senha, pasta
Ao efetuar o login, a pagina "valida.asp" verifica a combinação login/senha correta e redireciona para a pasta correspondente...

Como eu coloco isso ??

Isso é o que eu ja tenho:

<%
Dim login, senha
login = request.Form("login")
senha = request.Form("senha")

set conn = server.CreateObject("ADODB.Connection")
conn.open " provider=microsoft.jet.oledb.4.0; data source=" & server.MapPath("login.mdb") & ";"

Dim sql
sql = "Select * from vip where login='"&login&"' and senha='"&senha&"'"

Dim rs, usuario_logado
set rs = conn.execute(sql)
if rs.eof then
usuario_logado = false
else
usuario_logado = true  
end if

if usuario_logado = true then
session("usuario_logado") = true
response.Redirect("default.asp")
else
response.Redirect("erro.asp")
end if
%>

- Aki, o usuario é redirecionado a uma pagina Default.asp -

O que eu quero é +- isso :

Login: a Senha: b Pasta: restrito/001/default.asp
Login: c Senha: d Pasta : restrito/002/default.asp


Se puderem me ajudar...
Valew !
Valew!!


Viva o Tarkan !

#2 Info_Tec

Info_Tec

    Servo do DEUS VIVO!

  • Usuários
  • 398 posts
  • Sexo:Não informado
  • Localidade:Entre a cadeira e o teclado
  • Interesses:Jesus, minha esposa e filha.<br>ASP, Lógica de programação, Projeto de Estradas, $$$ que tô precisando!

Posted 22/04/2004, 13:39

No lugar de:

response.Redirect("default.asp")

Use:
response.Redirect(RS("Pasta"))

A cada minuto está mais perto.
Aceite JESUS como seu único e suficiente salvador!
_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
Fórum HOSANAS, venha conversar e se engrandecer com a palavra de DEUS.
Host: ASPECTO, Hospedagem ASP com qualidade e bom preço.

#3 .:Matrix:.

.:Matrix:.

    12 Horas

  • Usuários
  • 123 posts
  • Sexo:Não informado
  • Localidade:Sampa
  • Interesses:Muitos menos Delphi, PHP e Adjacentes hauahaua

Posted 22/04/2004, 14:30

O que você pode fazer tmb eh colocar mais um campo no seu banco de dados tipo

login
Senha
nivel

Depois é soh vc verificar o nivel do usuario

vNivel = RS("Nivel")

Depois eh soh comparar

If vNivel = 1 Then

Response.Redirect("PAGINA1.ASP")

ELSE

Response.Redirect("Pagina2.asp")

End If

Claro que voce ainda pode usar um case para o caso de ter diversas opções.

Espero ter ajudado.

Att,
Este post é dedicado a Yasmin minha linda filhinha hauhauahau
-----------------------------------------------------------------------
Visite ::: www.destroyers.com.br (onde sou o Fundador hauahua)
-----------------------------------------------------------------------
Se puder ajudar fico grato se naum puder, fico do mesmo jeito, pelo menos leu neh :-D

#4 Morphman

Morphman

    << Leits FoReVeR ! >>

  • Usuários
  • 125 posts
  • Sexo:Não informado
  • Localidade:São Bernardo do Campo / SP
  • Interesses:Se quiser falar comigo, entra no MSN....Falow !

Posted 23/04/2004, 00:16

vlw !! :D
Valew!!


Viva o Tarkan !




0 user(s) are reading this topic

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

IPB Skin By Virteq