Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Tenho uma pagina de verificacao de dados para que o usuario coloque o seu
LOGIN e SENHA.
Segue o codigo
ASP
[*]
[*]<%
[*]Session("User") = Replace(request("login"),"'","")
[*]Session("Senha") = Replace(request("senha"),"'","")
[*]
[]SQ = "SELECT FROM USUARIOS WHERE USU_LOGIN = '" & Session("User") & "' and USU_SENHA = '" & Session("Senha") & "'"
[*] SET TB = Cnn.Execute(SQ)
[*]
[*]IF TB.EOF THEN
[*] Response.Redirect("default.asp")
[*]ELSE
[*] session("Cod") = TB("USU_CODIGO")
[*] Response.Redirect("manutencao.asp")
[*]End IF
[*]%>
[*]
Gostaria de saber como eu faco para que quando o usuario erre o seu LOGIN e/ou SENHA, seje mostrado para ele uma pagina de ERRO.
eu faço assim, alem de verificar se o login é mauscula ou minuscula!
ASP
[*]<%
[*]Set VarConexao = Server.CreateObject ("ADODB.Connection")
[*]VarConexao.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("BancoDeDados/teste.mdb")
[*]
[*]usuarioResgata = Request.Form("usuario")
[*]senhaResgata = Request.Form("senha")
[*]
[]Sql = "Select From dados where usuario = '"&usuarioResgata&"' and senha ='"&senhaResgata&"'"
[*]Set rs = VarConexao.execute(Sql)
[*]
[*]If rs.EOF Then
[*] Response.write("<div align=center>")
[*] Response.Write "Usuário ou Senha inválido!<br><a href=index.asp><b>Voltar</b></a>"
[*] Response.write("</div>")[*] Response.End
[*]else
[*] if rs("usuario") <> usuarioResgata then
[*] Response.write("<div align=center>")
[*] Response.Write "Usuário ou Senha inválido!<br><a href=index.asp><b>Voltar</b></a>"
[*] Response.write("</div>")[*] Response.End
[*] end if
[*] if rs("senha") <> senhaResgata then
[*] Response.write("<div align=center>")
[*] Response.Write "Usuário ou Senha inválido!<br><a href=index.asp><b>Voltar</b></a>"
[*] Response.write("</div>")[*] Response.End
[*] end if
[*]end if
[*]session("nivel_acesso") = RS("usuario")
[*]Session("tempo") = Session.TimeOut = 10
[*]Response.Redirect "pgRestrita.asp"
[*]%>
No caso você pode mudar só isso no seu:
ASP
[*]<%
[*]Session("User") = Replace(request("login"),"'","")
[*]Session("Senha") = Replace(request("senha"),"'","")
[]SQ = "SELECT FROM USUARIOS WHERE USU_LOGIN = '" & Session("User") & "' and USU_SENHA = '" & Session("Senha") & "'"
[*]
[*] SET TB = Cnn.Execute(SQ)
[*]IF TB.EOF THEN
[*] Response.write("<div align=center>")
[*] Response.Write ("Usuário ou Senha inválido!")
[*] Response.write("</div>")
[*] Response.End
[*]ELSE
[*] session("Cod") = TB("USU_CODIGO")
[*] Response.Redirect("manutencao.asp")
[*]End IF
[*]%>
do mesmo jeito nao aparece a pagina de erro para o user.
Simples:
ASP
-
IF TB.EOF THEN
-
ELSE
-
End IF
Pois e, so que eu ja tentei mudar, e mudei colocando um Redirect para uma pagina de erro, so que não vai de jeito nenhum.
segue como esta o codigo.
ASP
[*]
[*]<!--#include file="conexao/conn.asp" -->
[*]
[*]<%
[*]'** recuperando informacoes do formulario
[*]SESSION("USER") = REPLACE(REQUEST("login"),"'","")
[*]SESSION("SENHA") = REPLACE(REQUEST("senha"),"'","")
[*]
[*]'** criando instrucao SQL de consulta
[]SQL = "SELECT FROM USUARIOS WHERE USU_LOGIN = '"& SESSION("USER")&"' AND USU_SENHA = '"& SESSION("SENHA") &"'"
[*] SET RS = Cnn.execute(SQL)
[*]
[*]'** criando variaveis para cadastrado de entrada
[*]StrIP = Request.ServerVariables("REMOTE_ADDR")
[*]StrNomeUsuario = RS("USU_NOME_USUARIO")
[*]
[*]'** funcao que formata a data em dd/mm/aaaa
[*] data = RIGHT("0" & DAY(DATE()),2) & "/" & RIGHT("0" & MONTH(DATE()),2) & "/" & YEAR(DATE())
[*]
[*]'** criando instrucao SQL para cadastrado de LOG de entrada
[*]SQL2 = "INSERT INTO LOG"
[*]SQL2 = SQL2 & " (IP, DATA, LOGIN, NOME_USUARIO)"
[*]SQL2 = SQL2 & " VALUES "
[*]SQL2 = SQL2 & " ('"&StrIP&"', '"&data&"', '"&SESSION("USER")&"', '"&StrNomeUsuario&"') "
[*]
[*]'** criando condicao que verifica os dados do usuario
[*] IF RS.EOF THEN
[*] RESPONSE.REDIRECT("ERRO.ASP")
[*] ELSE
[*] session("Cod") = RS("USU_CODIGO")
[*] RESPONSE.REDIRECT("MANUTENCAO.ASP")
[*] END IF
[*]%>
[*]
[*]
Faz um arquivo de teste simples, como aquele que você postou lá no início.
deixa um response.end ali e ve se funfa.
ASP
[*]IF RS.EOF THEN
[*]
[*] RESPONSE.REDIRECT("ERRO.ASP")
[*] Response.End
[*] ELSE.......
pois e nao funcionou....e salgado, esse ja e um arquivo simples, se eu tirar o CADASTRO de IP, NÃO funciona do mesmo jeito.
ASP
-
<%
-
SESSION("USER") = REPLACE(REQUEST("login"),"'","''")
-
SET RS = Cnn.execute(SQL)
-
IF RS.EOF THEN
-
Response.Write "Se não existe o Usuário e a Senha eu devo ter aparecido!"
-
ELSE
-
Response.Write "Se eu apareci e o Usuario e/ou senha estão errados então é problema!"
-
END IF
Testa isso ai. Coisa boba mas...
Ah e antes de redirecionar não se esqueça de fechar e destruir os RecordSets, além das conexões heim!.
agora funcionou...nao sei o que estava fazendo de errado, mais deu certo : ) valeu mais uma vez!!
ASP
[*]<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
[*]
[*]<%
[*] {
[*] if(rs("senha")+"" == senha)
[*] {
[*] }
[*] else { Response.Write("Senha Errada ou Em Branco!"); }
[*] }
[*]%>
[*]
****
Meu sistema de login ....