Ir para conteúdo

POWERED BY:

Arquivado

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

ClauberStipkovic

Verificar Senha !!!

Por , em ASP Clássico

Recommended Posts

ClauberStipkovic    0

ClauberStipkovic
Postado

Olá Pessoal ...Boa tarde

 

Eu estou querendo fazer um validador de senha ....com tela de erro quando a senha esta errada.

 

O códio dele esta abaixo:

 

ASP [/tr][tr]<%

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=D:\WebSites\arinso\intranet\data_base\controle_chamados.mdb"

 

Session("senha") = Request.Form("senha_usuario")

 

Set RS = Server.CreateObject("ADODB.RecordSet")

Set RS = Conn.Execute("SELECT * FROM usuarios_edit_chamados WHERE nome_usuario = '"& Request.Form("login_usuario") &"' and senha_usuario = '"& Session("senha") &"'")

 

if RS.RecordCount > 0 then

%>

<HTML>

<HEAD>

<TITLE>Controle de Chamados Técnicos - CCT</TITLE>

</HEAD>

 

<LINK REL=StyleSheet HREF="../../intranet.css" TYPE="text/css">

<style type="text/css">

<!--

A#menu:link{color:white;text-decoration:none}

A#menu:visited{color:white;text-decoration:none}

A#menu:active{color:white;text-decoration:none}

A#menu:hover{color:white;text-decoration:underline;}

A:link{color:blue;text-decoration:none}

A:visited{color:blue;text-decoration:none}

A:active{color:blue;text-decoration:none}

A:hover{color:blue;text-decoration:underline;}

-->

</style>

<body>

<form action="login_controle_chamados.asp" method=post>

<center><h4>Controle de Chamados Técnicos - v. 0.1 BETA</h4></center>

<br>

<p id="borda">

<img src="../../image_intranet/icon_error.gif"><br>

<b><font color=red>Preenchimento incorreto.</font></b><br>

<br>

Senha Incorreta.

<br>

<br>

</form>

</body>

</html>

<%

else

Response.Redirect("edit_chamados.asp")

end if

 

Set RS = nothing

Conn.close

Set Conn = nothing

%>

[/tr]

 

Ele não esta indo pra tela de erro ...e nem valiadando o usuario e senha ... :(

 

Muito Obrigado :)

Compartilhar este post

Link para o post
Compartilhar em outros sites

ClauberStipkovic    0

ClauberStipkovic
Postado

Cara .....MUITO OBRIGADO ....eu consegui fazer com essa rotina:

 

ASP [/tr][tr]Set Conn = Server.CreateObject("ADODB.Connection")

Conn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=D:\WebSites\arinso\intranet\data_base\controle_chamados.mdb"

 

login = Request.Form("login_usuario")

senha = Request.Form("senha_usuario")

 

SQL = "SELECT nome_usuario, senha_usuario FROM usuarios_edit_chamados "

Set RS = Server.CreateObject("ADODB.RecordSet")

RS.Open SQL, Conn, 3, 3

 

do while not RS.EOF

login_adm = RS("nome_usuario")

senha_adm = RS("senha_usuario")

 

if login_adm = login and senha_adm = senha then

Response.Redirect("edit_chamados.asp")

end if

RS.MoveNext

loop

 

RS.Close

Set RS = Nothing

'Abaixo bem a tela de Erro

 

[/tr]

 

Mais uma vez fico muito agradecido e que você tenha uma boa tarde e um otimo final de semana.

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

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