none
Duvida! RRS feed

  • Pergunta

  • Boa tarde .

    Galera tenho uma duvida !!

    O que eu quero fazer e o seguinte quando o usuario digitar o endereço abaixo ele não pode entrar na tele e sim mandar ele para tela de login para 1º fazer o login e depois mandar ele novamante para a tela que ele escolheu!

    Exemplo:

    Quando ele digita este caminho  o sistema deixa ele entrar direto na telasem fazer o login : http://beta/Chamado/funcionario1.asp 

    que fazer que ele digite o login em qualquer tela.

     

    Fiz assim olha o codigo porém ainda não to conseguindo :

     

    DIM SENHA


     Session("SENHA") = "login.asp"
     
     IF session("SENHA")<>"" THEN
     RESPONSE.Redirect(SESSION("SENHA"))
     ELSE
     RESPONSE.Redirect("login.asp")
     END IF

     

    Este cod esta na tela funcionario1.asp.

     

    Abraço.

     

    Emerson Sobral

    sexta-feira, 30 de novembro de 2007 17:08

Todas as Respostas

  • Este código voce colocou na pagina de login ou na pagina que ele esta procurar?
     
     
    Abraços
     
    Estevam
    sexta-feira, 30 de novembro de 2007 17:26
  •  

    kra este codigo eu coloquei em todas as minhas paginas .

     

    Mas e assim mesmo ou só preciso colocar na pagina login ?

     

    Como q podemos fazer isso !

     

    Abraço.

     

     

    Emerson Sobral

    sexta-feira, 30 de novembro de 2007 17:34
  • Emerson,

     

    Nas páginas que voce NAO quer que tenha acesso direto, ou seja, que nao acessem pela url antes de se fazer o login voce pode o código abaixo: O código pela a url que ele esta tentando acessar e pega osomente a pagina, ou seja, se ele estiver tentando acessar http://www.seusite.com.br/cadastro.asp ele ira pegar somente "cadastro.asp" e guarda dentro de uma Session, ok? Nas 3 ultimas linhas ele verifica se a session que guarda a senha (ou usuario como preferir) esta em branco ou é nula, se for redireciona para a pagina de login.

     

    Pagina Teste3.asp

    <%
    Dim urlcomp, tamurl, pagina, pos_barra

    urlcomp = request.ServerVariables("URL")
    tamurl = len(urlcomp) - 1
    urlcomp = right(urlcomp,tamurl - 1)
    pos_barra = InStr(urlcomp,"/") + 1
    pagina = mid(urlcomp,pos_barra,tamurl)

    Session("url") = pagina
    if IsNull(Session("senha")) Or Session("senha") = "" then
     Response.Redirect("login.asp")
    end if
    %>

     

     

    Na pagina de login ele vai digitar o usuario e senha dele certo e clicar em enviar, no qual vai ser submetido a uma outra pagina que ira fazer a verificação de usuario e senha, nesta página que verifica o login voce devera garantir que a senha ou o usuario estejam gravadas dentro da Session que é verificada nas paginas, neste caso de teste seria a senha que deveria ficar armazenda em Session("senha") ok? Outra coisa na na página de login deve-se verificar se a Session("url") esta preenchida ou nao se estiver então teremos que redirecionar para a Session("url") e nao para pagina padrão.

    Estou colocando abaixo paginas de teste que fiz!

     

    Lembrando voce deve modifica-las de acordo com seu projeto ai.

     

    Pagina Login.html

    <HTML

    <!--
    <html
    <head><title>TesteLogin</title></head>
    <body>
    <form action="verificalogin.asp" method="post">
     <input type="text" name="usuario" value="" /><br/>
     <input type="text" name="senha" value="" /><br/>
     <input type="submit" name="enivar" value="Enviar" />
    </form>
    </body>
    </html>
    -->

     

     

    Pagina VerificaLogin.asp

    <%

    Session("usuario") = Request.Form("usuario")
    Session("senha") = Request.Form("senha")

    if Session("usuario") <> "lestevam" then
     Response.Redirect ("login.asp")
    elseif Session("senha") <> "123" then
     Response.redirect ("login.asp")
    elseif Session("url") <> "" then
     Response.Redirect (Session("url"))
    else
     Response.Redirect ("teste2.asp")
    end if

    %>

     

     

     

    Bom tenta alterar o necessário ai e qualquer coisa posta novamente.

     

    Abraços

     

    Estevam

    sexta-feira, 30 de novembro de 2007 20:22