Ir para conteúdo

POWERED BY:

Arquivado

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

hayder

caixa de alerta

Por , em ASP Clássico

Recommended Posts

hayder    0

hayder
Postado

pessoal,

 

eu tenho um telinha de login, composta por txt_email, txt_senha, bt_enviar, bt_limpar, gostaria que caso o usuário informa-se seus dados errados que ao clicar no botão ao inves de abrir um outra janela informando que os dados estão errados gostaria que fosse emitida uma mensagem de alerta, sem sair da janela de login, pois assim o usuário clic na msg de alrta e ja esta na tela de casdastro, porem estou me quebrando pra fazer isto pq não manjo muita coisa de ASP E JS, se alguem puder me explicar como proceder, eu ate tentei fazer mas a lógica que usei não deu certo. EStou mando o cod junto

obrigada

abraços

<html><head><body><!--CODIGO JAVASCRIPT PARA VALIDACAO DE CAMPOS--><script language="JavaScript">function valida_Campo(){//validar nomedoc = document.pag_Login;if (doc.txt_Email.value == ""){alert("O campo e-mail deve ser preenchido!");doc.txt_Email.focus();return false;}//validar email(verificao de endereco eletronico)arroba = doc.txt_Email.value.indexOf("@");ponto = doc.txt_Email.value.indexOf(".");tamanho = doc.txt_Email.value.length;if (!(arroba >= 1 && ponto >= 1 && tamanho >= 1)) {alert("O campo e-mail deve ser conter um endereço eletrônico!");doc.txt_Email.focus();return false;}//validar senhaif (doc.txt_Senha.value == ""){alert("O campo Senha deve ser preenchido!");doc.txt_Senha.focus();return false;}//validar senha(verificacao se contem apenas numeros)if (isNaN(doc.txt_Senha.value)){alert("O campo Senha deve conter apenas números!");doc.txt_Senha.focus();return false;}return true;}</script></head><body><form name="pag_Login" action="pag_Login1.asp" method="post" onSubmit="return valida_Campo()"><%set conexao = Server.CreateObject("ADODB.Connection")conexao.Open "Banco"%><table border="0" width="100%" height="223" align=center><tr><td valign=top height="42" width="784"><br><table cellspacing=2 cellpadding=2 align=center style="border-bottom: 1px solid #cccccc;border-left: 1px solid #cccccc;border-top: 1px solid #cccccc;border-right: 1px solid #cccccc" height="126"><tr><!--<input name=acao type=hidden value=valida><input name=url type=hidden value=""" & Request.ServerVariables("query_string") & """>--><td colspan=2 height="13"><FONT face=tahoma style=font-size:11px;font-family:tahoma><b>Login do Cliente</td></tr><tr><td colspan=2 height="12"><FONT face=tahoma style=font-size:10px;font-family:tahoma;color:000000>Esta é uma área de acesso restrito</td></tr><tr><td height="21"><FONT face=tahoma style=font-size:11px;font-family:tahoma>e-mail:</td><td height="21"><input name=txt_Email type=text style=font-size:11px;font-family:tahoma size="20"></td></tr><tr><td height="21"><FONT face=tahoma style=font-size:11px;font-family:tahoma>Senha:</td><td height="21"><input name=txt_Senha type=password style=font-size:11px;font-family:tahoma size="20"></td><tr><td align=left height="11" rowspan="2"><img src="imagens/img_Sistema/cadeado.jpg"imagens/img_Sistema/cadeado.jpg"" width="48"45"" height="49"45"" hspace=""1"" vspace=""1"" border=""0"" align=""left""></td><td align=center height="0"><input type=submit value="Entrar" style=font-size:11px;font-family:tahoma name="bt_Entrar"<%email = request.form("txt_Email")senha = request.form("txt_senha")set conexao_bd = Server.CreateObject("ADODB.Connection")conexao_bd.open "Banco"set tabela = conexao_bd.execute("select * from CLIENTE where CliEml ='"+email+"' and CliSenAcs='"+senha+"'")if tabela.eof then%><script>alert("Para ter acesso ao catálogo on-line é necessário ser cliente cadastrado")</script><%elsesession("logado")="sim"response.redirect ("teste.asp")end if%>> <input type=reset value=Limpar style=font-size:11px;font-family:tahoma name="bt_Limpar"></td></tr><tr><td align=center height="0"><FONT face=tahoma style=font-size:10px;font-family:tahoma;color:000000><b><a href="#" onClick="window.open('esquecisenha.asp','Janela','toolbar=no,location=no,directories=no,status=yes,menubar=no,scrollbars=no,resizable=no,width=600,height=415,left=100,top=50'); return false;">Esqueci minha senha</a></td></tr></tr></table></td></tr></table></form></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcelo Barcellos    0

Marcelo Barcellos
Postado

Cara tenta separar os arquivos em que o usuário inputa os dados e outro que autentica o usuário e a senha...Tipo assim:Login.asp --> Post --> AutenticaUsuario.aspse não autentica, você dá um redirect para Longin.asp novamente, e passa um parâmetro informando que não deu certo, tipo um "Login=False".Então você faz um jScript na página "Login.asp" que no evento "Window_onLoad()" verifica a variavel "Login", se for igual a false você dá a mensagem "Usuário ou senha incorretos!"

Compartilhar este post

Link para o post
Compartilhar em outros sites

Generation    0

Generation
Postado

É o bom é seprar os dados ou criar uma Sub na msm pagina, envie do jeito que esta por QueryString os Parametros..

 

ASP

[*]<%

 

[*]if tabela.eof then

 

[*]  Response.Write "<script>alert('USUARIO NAO CADASTRADO')</script>"

 

[*]  Response.Write "<meta http-equiv='refresh' content='0;URL=login.asp?Login=False'>"

 

[*]else

 

[*]  session("logado")="sim"

 

[*]  response.redirect ("teste.asp")

 

[*]end if

 

[*]%>

 

T+

Compartilhar este post

Link para o post
Compartilhar em outros sites

hayder    0

hayder
Postado

primeiramente gostaria de agradecer aos colegas pela ajudae aproveitando o ensejo para esclarecer mais uma duvida Generation, como assim, eu não entendi se é para mim colocar o código que passou na mesma pagina ou em outra e chamar por querystring.brigadãoabraços

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