none
Request.Form RRS feed

  • Pergunta

  • Olá a todos! Desde já agradeço a colaboração.

    Estou consertando uma página em asp 3.0 mas como não tenho muito conhecimento em asp, tranquei em uma tela de acesso a uma área restrita.

    na index tenho dois input: "usuario" e "senha"

    O botão de acesso vai para um asp (confera.asp) que contém o código abaixo para validar o usuário e direcionar para a tela pessoal.asp:

    confera.asp
    -------------

    aviso = "<br><br>ACESSO NEGADO<br>Os dados informados não conferem!"

    email = Lcase(request("usuario"))
    pass = Lcase(request("senha"))

    'SELECIONA USUARIO E SENHA PARA CONFERIR
    Set oConn = Server.CreateObject("ADODB.Connection")
    oConn.Open = "Provider=SQLOLEDB;SERVER=xxxx;DATABASE=xxxx;UID=xxxx;PWD=xxxx;"
    set tabela=oconn.execute("select * from cadastrados where email like '"& email &"' and pass like '"& pass &"'")
    do while not tabela.eof
    if email = tabela("email") and pass = tabela("pass") then
    email = tabela("email")
    pass = tabela("pass")
    id = tabela("id")

    response.redirect("pessoal.asp?id=" & id)

    else
    end if
    tabela.movenext
    loop
    if tabela.bof then
    response.redirect ("area_restrita.asp?aviso=" & aviso)
    end if

    -------------

    O meu problema vem agora. Na tela pessoal.asp o sistema faz um select pelo id apenas. Gostaria de fazer esse select com os inputs da tela index, mas como ele passa antes por essa confera.asp não consigo pegar os valores pelo request.form. Acredito que é isso o que está acontecendo! O que posso fazer?

    pessoal.asp abaixo

    ----------------------

    id = request ("id")
    aviso = request.Form ("aviso")
    aviso1 = request.Form ("aviso1")
    erro = "<br><br>ACESSO NEGADO<br>Os dados informados não conferem!"
    usuario = request.Form ("usuario")
    senha = request.Form ("senha")

    Set oConn = Server.CreateObject("ADODB.Connection")
    oConn.Open "Provider=SQLOLEDB;Data Source=xxxxx;User ID=xxxxx;Password=xxxxx"
    'ANTIGA
    'set tabela=oconn.execute("select * from cadastrados where id like '"& id &"'")
    'NOVA CONSULTA QUE QUERO FAZER MAS NÃO CONSIGO TRAZER OS VALORES PARA USUARIO E SENHA
    set tabela=oconn.execute("select * from cadastrados where email like '"& usuario &"' and pass like '"& senha &"'")

    if tabela.eof = true then

       response.write "<title>" & senha & "</title>"

    end if  
    do while not tabela.eof

    ....

    terça-feira, 8 de setembro de 2009 17:43

Respostas

  • Você pode adicionar as demais variáveis que vc quer na página pessoal.asp via GET, concatenando na url do redirect.
    Ou o que eu acho muito melhor, guardar esses valores em variáveis de sessão...
    tipo na confera.asp, antes do redirect vc atribui:

     Session("variavel") = seuValor

    Já na página pessoal.asp você terá essa informação disponível pela variável de sessão.
    Desenvolvedor .Net
    MCP - MCTS Web Applications

    Ps.: Se a minha resposta foi conclusiva ou últil, por favor marque-a como tal. Obrigado.
    • Marcado como Resposta Felipe GS segunda-feira, 21 de setembro de 2009 12:46
    terça-feira, 15 de setembro de 2009 22:11

Todas as Respostas

  • Você pode adicionar as demais variáveis que vc quer na página pessoal.asp via GET, concatenando na url do redirect.
    Ou o que eu acho muito melhor, guardar esses valores em variáveis de sessão...
    tipo na confera.asp, antes do redirect vc atribui:

     Session("variavel") = seuValor

    Já na página pessoal.asp você terá essa informação disponível pela variável de sessão.
    Desenvolvedor .Net
    MCP - MCTS Web Applications

    Ps.: Se a minha resposta foi conclusiva ou últil, por favor marque-a como tal. Obrigado.
    • Marcado como Resposta Felipe GS segunda-feira, 21 de setembro de 2009 12:46
    terça-feira, 15 de setembro de 2009 22:11
  • Valeu pela dica Leandro!

    Ficou ótimo com as variáveis de sessão.

    Obrigado.
    segunda-feira, 21 de setembro de 2009 12:46