Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Tigger

pagina de erro

Por , em ASP Clássico

Recommended Posts

Tigger    0

Tigger
Postado

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.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Guybrush    0

Guybrush
Postado

ASP

[*]<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>

 

[*]

 

[*]<%

 

[*] if(Session("Logado")==true) { Response.Write("<center><b>Você já está Logado!</b></center>"); }

 

[*] var logar = Request.Form("logar");

 

[*] if(logar=="Login")

 

[*] {

 

[*] var db = Server.CreateObject("ADODB.Connection");

 

[*] var rs = Server.CreateObject("ADODB.RecordSet");

 

[*] var usuario = Request.Form("usuario");

 

[*] var senha = Request.Form("senha");

 

[*] db.Open("dns_sistema","user","senha");

 

[*] rs.Open("select id_usuario, nm_usuario, senha, posts from forum_usuario where nm_usuario='"+usuario+"';",db);

 

[*] if(rs("senha")+"" == senha) 

 

[*] {

 

[*] Response.Write("Logado!");

 

[*] Session.Timeout = 2;

 

[*] Session("Logado") = true;

 

[*] Response.Cookies("forum");

 

[*] Response.Cookies("forum")("usuario") = usuario;

 

[*] Response.Cookies("forum")("id") = rs("id_usuario");

 

[*] Response.Redirect("categorias.asp");

 

[*] }

 

[*] else { Response.Write("Senha Errada ou Em Branco!"); }

 

[*] }

 

[*]%>

 

[*]<html>

 

[*]<head>

 

[*]<title>Untitled Document</title>

 

[*]<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

 

[*]<link href="img/estilo.css" rel="stylesheet" type="text/css">

 

[*]</head>

 

[*]

 

[*]<body bgcolor="#003366" text="#FFFFFF" link="#FFFFFF" vlink="f0f0f0">

 

[*]<div align="center"><img src="img/logo.gif" width="142" height="76"> </div>

 

[*]<form name="form1" method="post" action="login.asp">

 

[*] <table width="191" border="0" align="center" cellpadding="0" cellspacing="2">

 

[*] <tr> 

 

[*] <td width="69"><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Login: </strong></font></div></td>

 

[*] <td width="149"><input name="usuario" type="text" id="usuario" style="border:00000;"></td>

 

[*] </tr>

 

[*] <tr> 

 

[*] <td><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Senha: </strong></font></div></td>

 

[*] <td><input name="senha" type="password" id="senha" style="border:00000;"></td>

 

[*] </tr>

 

[*] <tr> 

 

[*] <td> </td>

 

[*] <td><div align="right"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><a href="cadastrar.asp">Cadastrar</a>  </strong></font></div></td>

 

[*] </tr>

 

[*] <tr> 

 

[*] <td colspan="2"><div align="center"> 

 

[*] <input name="logar" type="submit" id="logar" value="Login" style="">

 

[*] </div></td>

 

[*] </tr>

 

[*] </table>

 

[*]</form>

 

[*]</body>

 

[*]</html>

 

Meu sistema de login ....

Compartilhar este post

Link para o post
Compartilhar em outros sites

explore    3

explore
Postado

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

 

[*]%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Simples:

ASP
  1. IF TB.EOF THEN
     
  2. Response.Redirect("SUA_PÁGINA_DE_ERRO.asp") ' Muda aqui!!!!
     
  3. ELSE
     
  4. session("Cod") = TB("USU_CODIGO")
     
  5. Response.Redirect("manutencao.asp")
     
  6. End IF

Compartilhar este post

Link para o post
Compartilhar em outros sites

Tigger    0

Tigger
Postado

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 

 

[*]%>

 

[*]

 

[*]

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Faz um arquivo de teste simples, como aquele que você postou lá no início.

Compartilhar este post

Link para o post
Compartilhar em outros sites

explore    3

explore
Postado

deixa um response.end ali e ve se funfa.

 

ASP

[*]IF RS.EOF THEN

 

[*]

 

[*]  RESPONSE.REDIRECT("ERRO.ASP")

 

[*]  Response.End

 

[*] ELSE.......

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

ASP
  1. <!--#include file="conexao/conn.asp" -->
     
  2. <%
     
  3. '** recuperando informacoes do formulario
     
  4. SESSION("USER") = REPLACE(REQUEST("login"),"'","''")
     
  5. SENHA = REPLACE(REQUEST("senha"),"'","''") ' Não ponha a Senha em Sessions.
     
  6. '** criando instrucao SQL de consulta
     
  7. SQL = "SELECT * FROM USUARIOS WHERE USU_LOGIN = '"& SESSION("USER")&"' AND USU_SENHA = '"& SENHA &"'"
     
  8. SET RS = Cnn.execute(SQL)
     
  9. IF RS.EOF THEN
     
  10. Response.Write "Se não existe o Usuário e a Senha eu devo ter aparecido!"
     
  11. ' RESPONSE.REDIRECT("ERRO.ASP")
     
  12. ELSE
     
  13. Response.Write "Se eu apareci e o Usuario e/ou senha estão errados então é problema!"
     
  14. ' session("Cod") = RS("USU_CODIGO")
     
  15. ' RESPONSE.REDIRECT("MANUTENCAO.ASP")
     
  16. 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!.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito