Ir para conteúdo
Fórum Script Brasil

Rodrigo Pensky

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    34

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Rodrigo Pensky

  1. response.redirect

    em ASP

    Postado

    Nossa que dificuldade estou tendo nesse projeto rsrsrs quero agradecer a todos que

    estão tentando me ajudar!

    Então deixa eu explicar melhor, tem mesmo como fazer o login e redirecionar puxando o link do banco de dados?

    Vou postar os arquivos aqui zipado para vocês darem uma olhada:

    Arquivos.zip

    Não sei se neste forum é permitido postar arquivos caso seja me avisem que eu removo!

  2. response.redirect

    em ASP

    Postado

    Esta tudo certo vou postar os arquivos abaixo:

    entrar.asp

    <html>
<head>

<title>Painel de controle</title>

</head>

<body topmargin="0" leftmargin="0">

    <div align="center">
    <table border="0" width="779" cellspacing="0" cellpadding="0" height="360">
    <tr>
    <td valign="top">
    <p align="center">
    <font color="#262721" size="2" face="Verdana">
                 Para entrar, preencha os campos abaixo com seus dados de acesso:</font></p>
    </p>
    
    <center>
    <form action="logar.asp" method="post" name="form" id="form">
    
    <div id="logar">
    <div id="campos"><font size="2">LOGIN:</font><input name="usuario" type="text" id="usuario" size="15" /></div>
    <div id="campos"><font size="2">SENHA:</font> <input name="senha" type="password" id="senha" size="15" /></div>
    <div id="campos" align="right">
    <p align="center"><input name="Entrar" type="submit" value="Entrar" />
    
    </div>
    </div>
    </form>
    </div>
    </td>
    </tr>
    </table>
    </div>
    <br>
    </body>
    </html>
    Logar.asp 
    <!--#include file="_conexao.asp" -->
<%
'Criando variáveis
Dim localbd, bd, usuario, Sql

    Set Rs = Server.CreateObject("ADODB.RecordSet")
    Sql = "Select * from usuario Where usuario = '" & Request.Form("usuario") & "'"

    'inicio do debug
    response.write "Sql = "& Sql & "<BR>"
    response.end
    'fim do debug    
    
    Rs.Open Sql, conexao, 3, 3

    Link = Rs.Fields("Link")
    'Response.Write(Link)


    If Rs("usuario").EOF Then
    response.write "&lt;script>history.back(1);alert('Login incorreto. Tente novamente.')</script>"
    else

    'Caso tenha achado o usuário, o sistema irá verificar a senha
    If Rs("Senha") = Request.Form("Senha") Then

    'Se a senha for válida, ele irá gravar um cookie com o codigo do usuario
    response.cookies("access")("usuario")=usuario("cod")

       'Irá fazer um UPDATE para indicar o último acesso
    bd.execute "UPDATE usuario SET ultimoacesso='"&now()&"' WHERE cod="&request.cookies("access")("usuario")&""

   'Redirecionaremos para a página principal
    Response.Redirect(Link)
    else
   
     'Caso não valide a senha, será dada uma mensagem de senha incorreta e voltará
     response.write "&lt;script>history.back(1);alert('Senha incorreta. Tente novamente.')</script>"
    end if
    end if
    %>

    Banco.mdb:

    banco.jpg

  3. response.redirect

    em ASP

    Postado

    Quando eu tiro o 

    response.write "Sql = "& Sql & "<BR>"
response.end

    da esse erro:

    ADODB.Recordset erro '800a0bb9'

    Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

    /profissional/adm/logar.asp, line 9

  4. response.redirect

    em ASP

    Postado

    AEEE CARAMBA ACHO QUE FALTA POUCO PARA DAR CERTO, TEM ALGO ERRADO porque

    AGORA ESTA DANDO ISSO:

    Sql = Select * from usuario Where usuario = 'Walter'

    ELE CONSEGUIU PEGAR O NOME DO USUARIO AGORA OQUE SERÁ QUE ESTA DANDO ERRADO???

    O CÓDIGO ESTA ASSIM:

    <!--#include file="_conexao.asp" -->
<%
'Criando variáveis
Dim localbd, bd, usuario, Sql

   Set Rs = Server.CreateObject("ADODB.RecordSet")
    Sql = "Select * from usuario Where usuario = '" & Request.Form("usuario") & "'"
'inicio do debug
response.write "Sql = "& Sql & "<BR>"
response.end
'fim do debug    Rs.Open Sql, conexao, 3, 3

    Link = Rs.Fields("Link")
    'Response.Write(Link)


If Rs("usuario").EOF Then
    response.write "&lt;script>history.back(1);alert('Login incorreto. Tente novamente.')</script>"
else
    'Caso tenha achado o usuário, o sistema irá verificar a senha
    If Rs("Senha") = Request.Form("Senha") Then
        'Se a senha for válida, ele irá gravar um cookie com o codigo do usuario
        response.cookies("access")("usuario")=usuario("cod")
        'Irá fazer um UPDATE para indicar o último acesso
        bd.execute "UPDATE usuario SET ultimoacesso='"&now()&"' WHERE cod="&request.cookies("access")("usuario")&""
        'Redirecionaremos para a página principal
        Response.Redirect(Link)
    else
    'Caso não valide a senha, será dada uma mensagem de senha incorreta e voltará
        response.write "&lt;script>history.back(1);alert('Senha incorreta. Tente novamente.')</script>"
    end if
end if
%>

  6. response.redirect

    em ASP

    Postado

    Olá galera então eu alterei o ultimo código que o Rafael Spilki passou e nnão deu certo

    Sql = "Select * from usuario Where usuario = '" & Request.Form("usuario")&"' "
    Deu esse erro: ADODB.Recordset erro '800a0bb9' Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito. /profissional/adm/logar.asp, line 8 Logar.asp http://www.photoprintdigital.com.br/profis...l/adm/logar.asp O Arquivo esta assim: 
    <!--#include file="_conexao.asp" -->
<%
'Criando variáveis
Dim localbd, bd, usuario, Sql

   Set Rs = Server.CreateObject("ADODB.RecordSet")
   Sql = "Select Link, * usuario Where usuario = " & Request.Form("usuario")
   Rs.Open Sql, conexao, 3, 3
   
   Rs("Link")
   Link = Rs.Fields("Link")
   'Response.Write(Link)


If Rs("usuario").EOF Then
    response.write "&lt;script>history.back(1);alert('Login incorreto. Tente novamente.')</script>"
else
    'Caso tenha achado o usuário, o sistema irá verificar a senha
    If Rs("Senha") = Request.Form("Senha") Then
        'Se a senha for válida, ele irá gravar um cookie com o codigo do usuario
        response.cookies("access")("usuario")=usuario("cod")
        'Irá fazer um UPDATE para indicar o último acesso
        bd.execute "UPDATE usuario SET ultimoacesso='"&now()&"' WHERE cod="&request.cookies("access")("usuario")&""
        'Redirecionaremos para a página principal
        Response.Redirect(Link)
    else
    'Caso não valide a senha, será dada uma mensagem de senha incorreta e voltará
        response.write "&lt;script>history.back(1);alert('Senha incorreta. Tente novamente.')</script>"
    end if
end if
%>

  8. response.redirect

    em ASP

    Postado

    Ixiii deu erro denovo

    Erro de compilação do Microsoft VBScript erro '800a0401'

    Fim da instrução esperado

    /profissional/adm/logar.asp, line 7

    Sql = "Select Link, * usuario Where usuario = " Request.Form("usuario")

    ------------------------------------------------^

  10. response.redirect

    em ASP

    Postado

    Bom dia galera, quero agradecer a força que vocês estão me dando, então ainda não funcionou, eu coloquei esse código acima mas deu erro denovo.

    Olha o link para vocês verem Logar.asp

    Bom eu uso 5 arquivos

    _conexao.asp

    _cookie.asp

    entrar.asp

    logar.asp

    dados/banco.mdb

    No momento eles estão assim:

    _conexao.asp

    <%
'Criaremos uma SUB para a conexão para conectarmos com o banco de dados do AccessAdmin
'Detalhe: Não é o banco que será administrado
sub abrir_conexao    
    localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("dados/banco.mdb")
    set bd=Server.CreateObject("ADODB.Connection")
    bd.open localbd
end sub

'SUB que fechará a conexão
sub fechar_conexao
    bd.close
    Set bd = nothing
end sub
%>
    _cookie.asp 
    <%
'Criando variáveis
Dim localbd, bd, verificar_usuario, varCookie

'Se o cookie for vazio iremos dar um valor ZERO para não dar erro
'Se não irá setar o valor da variável com o valor do cookie
if request.cookies("access")("usuario")="" then
    varCookie=0
else
    varCookie=request.cookies("access")("usuario")
end if

'Abrir conexão
call abrir_conexao

'Criaremos um Recordset para verificar se o Codigo do Cookie existe no banco de dados
set verificar_usuario=Server.CreateObject("ADODB.Recordset")

'Selecionar o usuário
verificar_usuario.Open "SELECT cod from usuario where cod="&varCookie&"", bd

'Se o usuário não existir, fecharemos a conexão e redirecionaremos para a página de logar
if verificar_usuario.EOF then
    call fechar_conexao
    response.redirect "entrar.asp"
end if

call fechar_conexao
%>
    entrar.asp 
    <html>
<head>

<title>Entrar</title>

</head>
<body topmargin="0" leftmargin="0">
<div align="center">
<table border="0" width="779" cellspacing="0" cellpadding="0" height="360">
<tr>
<td valign="top">

<font color="#262721" size="2" face="Verdana">Para entrar, preencha os campos 
abaixo com seus dados de acesso:</font></p>
<center>
<form action="logar.asp" method="post" name="form" id="form">
<div id="logar">
<div id="campos">
<p style="margin-top: 0; margin-bottom: 0">LOGIN:  <input name="usuario" type="text" id="usuario" size="15" /></div>
<div id="campos">SENHA: <input name="senha" type="password" id="senha" size="15" /></div>
<div id="campos" align="right">
<p align="center"><input name="Entrar" type="submit" value="Entrar" />
</div>
</div>
</form>
</div>

</td>
</tr>
</table>
</div>
<br>
</body>
</html>
    logar.asp 
    <!--#include file="_conexao.asp" -->
<%
'Criando variáveis
Dim localbd, bd, usuario, Sql

   Set Rs = Server.CreateObject("ADODB.RecordSet")
   Sql = "Select Link, * usuario Where usuario = " & "'" & Request.Form("usuario") & "'"
   Rs.Open Sql, conexao, 3, 3
   
   Rs("Link")
   Link = Rs.Fields("Link")
   'Response.Write(Link)

'Criaremos um Recordset para selecionar os usuários cadastrados
Set usuario=Server.CreateObject("ADODB.Recordset")

'Selecionar de acordo com o Login digitado no campo
usuario.Open "SELECT * from usuario where usuario='"& request.form("usuario") &"'", bd

'Se o usuário não for encontrado, iremos fechar a conexão, dar um alert e voltar 
if usuario.EOF then
    response.write "&lt;script>history.back(1);alert('Login incorreto. Tente novamente.')</script>"
else
    'Caso tenha achado o usuário, o sistema irá verificar a senha
    if usuario("senha")=request.form("senha") then
        'Se a senha for válida, ele irá gravar um cookie com o codigo do usuario
        response.cookies("access")("usuario")=usuario("cod")
        'Irá fazer um UPDATE para indicar o último acesso
        bd.execute "UPDATE usuario SET ultimoacesso='"&now()&"' WHERE cod="&request.cookies("access")("usuario")&""
        'Redirecionaremos para a página principal
        Response.Redirect(Link)
    else
    'Caso não valide a senha, será dada uma mensagem de senha incorreta e voltará
        response.write "&lt;script>history.back(1);alert('Senha incorreta. Tente novamente.')</script>"
    end if
end if
%>

    Banco.mdb

    banco.jpg

  11. response.redirect

    em ASP

    Postado

    Logar.asp

    <% Option Explicit %>
<!--#include file="_conexao.asp" -->
<%
'Criando variáveis
Dim localbd, bd, usuario

Dim sql, Rs
sql = "select Link, * usuario Where usuario = " & "'" & Request.Form("usuario") & "'"
set Rs = server.createobject("ADODB.RecordSet")
Rs.Open sql, usuario, 3, 3

'declara ele numa variavel
Link = Rs("Link")

'Abriremos a conexão criada do include _conexao.asp
call abrir_conexao

'Criaremos um Recordset para selecionar os usuários cadastrados
set usuario=Server.CreateObject("ADODB.Recordset")

'Selecionar de acordo com o Login digitado no campo
usuario.Open "SELECT * from usuario where usuario='"& request.form("usuario") &"'", bd

'Se o usuário não for encontrado, iremos fechar a conexão, dar um alert e voltar 
if usuario.EOF then
    call fechar_conexao
    response.write "&lt;script>history.back(1);alert('Login incorreto. Tente novamente.')</script>"
else
    'Caso tenha achado o usuário, o sistema irá verificar a senha
    if usuario("senha")=request.form("senha") then
        'Se a senha for válida, ele irá gravar um cookie com o codigo do usuario
        response.cookies("access")("usuario")=usuario("cod")
        'Irá fazer um UPDATE para indicar o último acesso
        bd.execute "UPDATE usuario SET ultimoacesso='"&now()&"' WHERE cod="&request.cookies("access")("usuario")&""
        'Fecharemos a conexão
        call fechar_conexao    
        'Redirecionaremos para a página principal
        Response.Redirect(Rs.Fields("Link"))
    else
    'Caso não valide a senha, será dada uma mensagem de senha incorreta e voltará
        call fechar_conexao
        response.write "&lt;script>history.back(1);alert('Senha incorreta. Tente novamente.')</script>"
    end if
end if
%>

  14. response.redirect

    em ASP

    Postado

    Agora deu o erro assim:

    Erro de tempo de execução do Microsoft VBScript erro '800a01f4'

    Variável não definida: 'conexao'

    /profissional/adm/logar.asp, line 10

    A Linha 10 é essa:

    Rs.Open sql, conexao, 3, 3

  16. response.redirect

    em ASP

    Postado

    Coloquei esse script

    Dim sql, Rs
sql = "select Link, * usuario Where usuario = " & "'" & Request.Form("usuario") & "'"
set Rs = server.createobject("ADODB.RecordSet")
Rs.Open sql, conexao, 3, 3

'Pega o campo LINK Abaixo
Rs("Link")
'declara ele numa variavel
Link = Rs("Link")
    E deu esse erro ADODB.Recordset erro '800a0bb9' Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito. /profissional/adm/logar.asp, line 9 SEGUE O CÓDIGO ABAIXO 
    <% Option Explicit %>
<!--#include file="_conexao.asp" -->
<%
'Criando variáveis
Dim localbd, bd, usuario

Dim sql, Rs
sql = "select Link, * usuario Where usuario = " & "'" & Request.Form("usuario") & "'"
set Rs = server.createobject("ADODB.RecordSet")
Rs.Open sql, conexao, 3, 3

'Pega o campo LINK Abaixo
Rs("Link")
'declara ele numa variavel
Link = Rs("Link")

'Abriremos a conexão criada do include _conexao.asp
call abrir_conexao

'Criaremos um Recordset para selecionar os usuários cadastrados
set usuario=Server.CreateObject("ADODB.Recordset")

'Selecionar de acordo com o Login digitado no campo
usuario.Open "SELECT * from usuario where usuario='"& request.form("usuario") &"'", bd

'Se o usuário não for encontrado, iremos fechar a conexão, dar um alert e voltar 
if usuario.EOF then
    call fechar_conexao
    response.write "&lt;script>history.back(1);alert('Login incorreto. Tente novamente.')</script>"
else
    'Caso tenha achado o usuário, o sistema irá verificar a senha
    if usuario("senha")=request.form("senha") then
        'Se a senha for válida, ele irá gravar um cookie com o codigo do usuario
        response.cookies("access")("usuario")=usuario("cod")
        'Irá fazer um UPDATE para indicar o último acesso
        bd.execute "UPDATE usuario SET ultimoacesso='"&now()&"' WHERE cod="&request.cookies("access")("usuario")&""
        'Fecharemos a conexão
        call fechar_conexao    
        'Redirecionaremos para a página principal
        Response.Redirect(Rs.Fields("Link"))
    else
    'Caso não valide a senha, será dada uma mensagem de senha incorreta e voltará
        call fechar_conexao
        response.write "&lt;script>history.back(1);alert('Senha incorreta. Tente novamente.')</script>"
    end if
end if
%>

  17. response.redirect

    em ASP

    Postado · Editado por Jonathan Queiroz

    eu coloquei esse código Response.Redirect(Rs.Fields("Link"))

    E deu esse erro:

    Erro de tempo de execução do Microsoft VBScript erro '800a01f4'

    Variável não definida: 'Rs'

    /profissional/adm/logar.asp, line 9

    Não esta dando erro por causa desse script q esta em sql e o banco de dados esta em mdb?

    Dim sql
   sql = "select Link, * usuario Where usuario = " & "'" & Request.Form("usuario") & "'"
   set Rs = server.createobject("ADODB.RecordSet")
   Rs.Open sql, conexao, 3, 3

   'Pega o campo LINK Abaixo
   Rs("Link")
   'declara ele numa variavel
   Link = Rs("Link")

  18. response.redirect

    em ASP

    Postado · Editado por Rodrigo Pensky
    Adcionar tag's (Jonathan)

    O arquivo de conexão esta certo:

    _conexao.asp

    <%
'Criaremos uma SUB para a conexão para conectarmos com o banco de dados do AccessAdmin
'Detalhe: Não é o banco que será administrado
sub abrir_conexao    
    localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("dados/banco.mdb")
    set bd=Server.CreateObject("ADODB.Connection")
    bd.open localbd
end sub

'SUB que fechará a conexão
sub fechar_conexao
    bd.close
    Set bd = nothing
end sub
%>
    O erro esta dando no arquivo: Logar.asp 
    <% Option Explicit %>
<!--#include file="_conexao.asp" -->
<%
'Criando variáveis
Dim localbd, bd, usuario

Dim sql
   sql = "select Link, * usuario Where usuario = " & "'" & Request.Form("usuario") & "'"
   set Rs = server.createobject("ADODB.RecordSet")
   Rs.Open sql, conexao, 3, 3

   'Pega o campo LINK Abaixo
   Rs("Link")
   'declara ele numa variavel
   Link = Rs("Link")

'Abriremos a conexão criada do include _conexao.asp
call abrir_conexao

'Criaremos um Recordset para selecionar os usuários cadastrados
set usuario=Server.CreateObject("ADODB.Recordset")

'Selecionar de acordo com o Login digitado no campo
usuario.Open "SELECT * from usuario where usuario='"& request.form("usuario") &"'", bd

'Se o usuário não for encontrado, iremos fechar a conexão, dar um alert e voltar 
if usuario.EOF then
    call fechar_conexao
    response.write "&lt;script>history.back(1);alert('Login incorreto. Tente novamente.')</script>"
else
    'Caso tenha achado o usuário, o sistema irá verificar a senha
    if usuario("senha")=request.form("senha") then
        'Se a senha for válida, ele irá gravar um cookie com o codigo do usuario
        response.cookies("access")("usuario")=usuario("cod")
        'Irá fazer um UPDATE para indicar o último acesso
        bd.execute "UPDATE usuario SET ultimoacesso='"&now()&"' WHERE cod="&request.cookies("access")("usuario")&""
        'Fecharemos a conexão
        call fechar_conexao    
        'Redirecionaremos para a página principal
        Response.Redirect("Rs.Fields("campo_link_bd"))
    else
    'Caso não valide a senha, será dada uma mensagem de senha incorreta e voltará
        call fechar_conexao
        response.write "&lt;script>history.back(1);alert('Senha incorreta. Tente novamente.')</script>"
    end if
end if
%>

  19. response.redirect

    em ASP

    Postado · Editado por Jonathan Queiroz
    Adcionar tag's (Jonathan)

    O erro que dá é "A página não pode ser exibida" - "HTTP 500 - erro interno do servidor"

    Andei analizando aqui, quando eu tiro esse código abaixo

    Dim sql
   sql = "select Link, * usuario Where usuario = " & "'" & Request.Form("usuario") & "'"
   set Rs = server.createobject("ADODB.RecordSet")
   Rs.Open sql, conexao, 3, 3

   'Pega o campo LINK Abaixo
   Rs("Link")
   'declara ele numa variavel
   Link = Rs("Link")

    e mudo o Response.Redirect("Rs.Fields("campo_link_bd") para response.redirect("http://site.com.br/index.asp")

    ele funciona, então deve ter um erro ai!

    Séra porque eu fiz o banco de bados em mdb?

    É porque eu preciso que ele busque o link no banco de dados!

  24. response.redirect

    em ASP

    Postado

    Olá galera um bom dia a todos, eu gostaria de saber se alguém sabe se tem como eu puxar um link do banco de dados e colocar no response.redirect ("puxar link no banco de dados") ???

    Vou explicar melhor:

    Meu Banco de dados é esse:

    banco.jpg

    eu estou ultilizando este código:

    <!--#include file="_conexao.asp" -->
<%
'Criando variáveis
Dim localbd, bd, usuario

'Abriremos a conexão criada do include _conexao.asp
call abrir_conexao

'Criaremos um Recordset para selecionar os usuários cadastrados
set usuario=Server.CreateObject("ADODB.Recordset")

'Selecionar de acordo com o Login digitado no campo
usuario.Open "SELECT * from usuario where usuario='"& request.form("usuario") &"'", bd

'Se o usuário não for encontrado, iremos fechar a conexão, dar um alert e voltar 
if usuario.EOF then
    call fechar_conexao
    response.write "<script>history.back(1);alert('Login incorreto. Tente novamente.')</script>"
else
    'Caso tenha achado o usuário, o sistema irá verificar a senha
    if usuario("senha")=request.form("senha") then
        'Se a senha for válida, ele irá gravar um cookie com o codigo do usuario
        response.cookies("access")("usuario")=usuario("cod")
        'Irá fazer um UPDATE para indicar o último acesso
        bd.execute "UPDATE usuario SET ultimoacesso='"&now()&"' WHERE cod="&request.cookies("access")("usuario")&""
        'Fecharemos a conexão
        call fechar_conexao    
        'Redirecionaremos para a página principal
        response.redirect ("puxar do banco de dados (link)")
    else
    'Caso não valide a senha, será dada uma mensagem de senha incorreta e voltará
        call fechar_conexao
        response.write "&lt;script>history.back(1);alert('Senha incorreta. Tente novamente.')</script>"
    end if
end if
%>

×
×
  • Criar Novo...