Rodrigo Pensky

Membros
  • Content Count

    34
  • Joined

  • Last visited

Community Reputation

0 Neutro

1 Follower

About Rodrigo Pensky

  • Birthday 09/18/1984

Perfil

  • Gender
    Male
  • Location
    São Paulo

Recent Profile Visitors

587 profile views
  1. 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. 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:
  3. 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. 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 %>
  5. Mesmo mudando continua dando 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
  6. 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 %>
  7. Deu esse erro agora :( 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
  8. 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") ------------------------------------------------^
  9. Fiz exatamente o que você disse e deu erro denovo: http://www.photoprintdigital.com.br/profis...l/adm/logar.asp 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
  10. 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
  11. 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 %>
  12. linha 10 Rs.Open sql, usuario, 3, 3
  13. Alterei a linha e agora deu o erro Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito. /profissional/adm/logar.asp, line 10
  14. 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
  15. Ixiiii já não estou entendendo mais nada rsrsrsrs postei o código ai em cima só que da erro que eu especifiquei acima o que eu faço? por favor?