Ir para conteúdo

POWERED BY:

Arquivado

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

xanburzum

[Resolvido] Alteração de senha de usuário

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

este arquivo que permite ao usuário a alterar sua senha, para isso é preciso fornecer a senha atual , a nova senha e redigitar a nova senha para confirmação.

 

Alterasenha_form_treina.asp

 

<!--#include file="CheckLogin.asp"-->
<html>
<head>
<title>Administradores</title>
</head>
<body bgcolor="#9999FF">
<table width="56%" border="1" cellspacing="0" cellpadding="0" align="center">
  <tr bgcolor="#FFFFFF"> 
	<td> 
	  <div align="center"><font color="#FF6633" face="Arial, Helvetica, sans-serif"><b>Alteração 
		de senha do Login: <%=UCase(Session("Login"))%></b></font></div>
	</td>
  </tr>
  <tr bgcolor="#CCCCCC"> 
	<td> 
	  <form method="post" action="Alterasenha_action_treina.asp">
		<table width="85%" border="0" align="center">
		  <tr> 
			<td height="20" width="48%"> </td>
			<td height="20" width="52%"> </td>
		  </tr>
		  <tr> 
			<td height="39" width="48%"> 
			  <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Senha 
				atual :</font></div>
			</td>
			<td height="39" width="52%"> 
			  <input type="password" name="senhaAtual" maxlength="10" size="10">
			</td>
		  </tr>
		  <tr> 
			<td height="39" width="48%"> 
			  <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Nova 
				senha:</font></div>
			</td>
			<td height="39" width="52%"> 
			  <input type="password" name="senhaNova" maxlength="10" size="10">
			</td>
		  </tr>
		  <tr> 
			<td height="39" width="48%"> 
			  <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Confirma 
				senha:</font></div>
			</td>
			<td height="39" width="52%"> 
			  <input type="password" name="senhaConfirma" maxlength="10" size="10">
			</td>
		  </tr>
		  <tr> 
			<td height="39" colspan="2"> 
			  <div align="center"> 
				<input type="submit" name="Entrar" value="Alterar">
			  </div>
			</td>
		  </tr>
		</table>
	  </form>
	</td>
  </tr>
</table>
</body>
</html>

 

Alterasenha_action_treina.asp

 

 

<%
Option Explicit
'Admin - alteração de senhas
%>
<!--#include file="CheckLogin.asp"-->
<!--#include file="../Asp/bib_conexao.asp"-->
<%
Dim strSQL, Conexao, rs, varSenha, varSenhaAtual, varSenhaNova, varSenhaConfirma, varLinha
varSenhaAtual = Trim(Request.Form("SenhaAtual"))
varSenhaNova = Trim(Request.Form("SenhaNova"))
varSenhaConfirma = Trim(Request.Form("SenhaConfirma"))
varSenha = Session("Senha")
varSenha = Replace(varSenha, "'", "")
varSenhaNova = Replace(varSenhaNova, "'", "")
varSenhaConfirma = Replace(varSenhaConfirma, "'", "")

IF varSenha = varSenhaAtual AND varSenhaNova = varSenhaConfirma then
   strSQL = "UPDATE Login SET TXT_Senha = '" & varSenhaNova & "' "
   strSQL = strSQL & "WHERE TXT_Nome = '" & Session("Login") & "'"
   'abre a conexao
   Call abre_conexao

   'executa a instrução SQL
   Set rs = Conexao.Execute(strSQL)

   'fecha a conexao
   Call fecha_conexao
   Set rs = Nothing
   varLinha = 1
Else
   varLinha = 2
End IF
%>
<HTML>
<BODY bgcolor="#FFFFFF">
<DIV align="left"> 
  <table width="75%" border="0">
  <%
  IF varlinha = 1 then
  %>
	<tr> 
	  <td> 
		<div align="center"><font color="#FF6633" face="verdana"><b><font color="#FF6633" face="verdana"><b><font color="#663399" face="verdana"><b><font size="4">Senha 
		  alterada com</font></b></font><font size="4"><br>
		  <font color="#663399" face="verdana"><b><font size="4"><font color="#818181" size="6">S 
		  U C E S S O ! ! !</font> </font></b></font><font color="#FFFFFF" size="6">
		  !</font></font></b></font></b></font></div>
	  </td>
	</tr>
  <%
  Else
  %> 
	<tr> 
	  <td> 
		<div align="center"><font color="#663399" face="verdana" size="4"><b>Senhas 
		  nova e confirma estão</b></font><br>
		  <font color="#818181" face="verdana" size="6"><b>I N C O R R E T A S 
		  ! ! ! </b></font></div>
	  </td>
	</tr>
  <%
  End If
  %> 
  </table>
</DIV>
</BODY>
</HTML>

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