CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 12 03 04:29:53

ADOBE MAX à MILAN => JOUR -1 par pegase31

SQL SERVER : LE FUTUR DES MOTEURS DE RECHERCHE CHEZ MICROSOFT par christian

TOFINO : LE PLUGIN FLEX POUR VISUAL STUDIO par Nix

FLEX INTéGRé DANS VISUAL STUDIO ! par Nix

SQL SERVER 2008 : ENFIN UN DOCUMENT COMPLET SUR LES MISES à JOUR DE SQL SERVER par christian

RE : TUTORIEL ASPX par olibara

RE : TUTORIEL ASPX par nhervagault

RE : TUTORIEL ASPX par olibara

RE : TUTORIEL ASPX par nhervagault

RE : TUTORIEL ASPX par olibara

+ de logiciels à télécharger

1 302 077 membres
41 nouveaux aujourd'hui
14 554 membres club

Trouver une ressource

Trouvez une ressource parmi 39 074 codes, 1 208 444 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CHANGEMENT DE MOT DE PASSE ASP-ACCESS

Information sur la source

Catégorie :SQL Classé sous : modifier, pass, password, access, update Niveau : Initié Date de création : 13/03/2005 Date de mise à jour : 20/03/2005 00:20:16 Vu : 10 584

Auteur : semetic

Ecrire un message privé

Note :

6,00 / 10

Commentaire sur cette source (3)

Ajouter un commentaire et/ou une note

Description

Supposons qu'on veut permettre aux utilisateurs de changer leurs mots de passe, on réalise un formulaire avec les champs (ancien) ou on tape l'ancien mot de passe, un champ (nouveau1) pour taper le nouveau mot de passe désiré et un autre champ (nouveau2) pour saisir la confirmation du nouveau mot de passe.

Le formulaire sera dans une page par exemple update.htm dont il sera tarité dans la page
updateConfirm.asp comme:

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

Vous trouverez copyright et commentaires dans le code

Source

<%@ LANGUAGE = "VBScript" %>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Changement de mot de passe ASP/ACCESS '
' Auteur: Farid - ALGERIE / Site Web: www.farid.f2o.org '
' E-mail: sidoummoudz@yahoo.fr '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Ce code est gratuit. Ces lignes de commentaires doivent '
' être conservées pour son utilisation légale. '
' Il a été testé sous IIS v.5, Windows XP Professionnel '
' Service Pack 2 et Internet Explorer 6 '
' Bonne utilisation a tous et @ ++ '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ancien=Request.Form("ancien")
nouveau1=Request.Form("nouveau1")
nouveau2=Request.Form("nouveau2")
' Si le premier champ (ancien mot de passe) a été laissé vide
if Request.Form("ancien")="" then
response.write "Champ ancien mot de passe vide"
' Si le deuxieme champ (nouveau mot de passe) a été laissé vide
else if Request.Form("nouveau1")="" then
response.write "Champ nouveau mot de passe vide"
' Si le troisieme champ (confirmation du nouveau mot de passe) a été laissé vide
else if Request.Form("nouveau2")="" then
response.write "Champ confirmation de mot de passe vide"
' Si le nouveau mot de passe n'est pas confirmé d'une facon valide
else if Request.Form("nouveau1")<> Request.Form("nouveau2") then
response.write "Veuillez ressaisir le même nouveau mot de passe"
else 'sinon
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
connpath = "DBQ=" & Server.MapPath("bd1.mdb")
OBJdbConnection.Open "Driver={Microsoft Access Driver (*.mdb)}; " & connpath
SQLQuery = "SELECT password FROM administration where password='"&ancien&"'"
Set RS = OBJdbConnection.Execute(SQLQuery)
'si rien n'a été trouvé
If rs.eof Then 'Le mot de passe n'éxiste pas
response.write " Ce mot de passe semble invalide "
else ' Sinon (si tout va bien) changement du mot de passe
SQLstmt = "UPDATE administration SET password='" & nouveau1 & "' WHERE password='" & ancien & "'"
Set requete = OBJdbConnection.Execute(SQLStmt)
' generation des messages d'erreurs
If err.number>0 then
response.write "VBScript Errors Occured:" & ""
response.write "Error Number=" & err.number & ""
response.write "Error Descr.=" & err.description & ""
response.write "Help Context=" & err.helpcontext & ""
response.write "Help Path=" & err.helppath & ""
response.write "Native Error=" & err.nativeerror & ""
response.write "Source=" & err.source & ""
response.write "SQLState=" & err.sqlstate & ""
end if
IF OBJdbConnection.errors.count> 0 then
response.write "Database Errors Occured" & ""
response.write SQLstmt & ""
for counter= 0 to OBJdbConnection.errors.count
response.write "Error #" & OBJdbConnection.errors(counter).number & ""
response.write "Error desc. -> " & OBJdbConnection.errors(counter).description & ""
next
requete.close
set requete=nothing
else ' Sinon (si changement effectué) un message comme bravo
response.write "Everything Went Fine. Record is updated now!"
response.write " " & SQLstmt 'vous pouvez ignorez cette ligne puisque elle affiche le changement, ce qu'il est peut-être indésirable pour vous
end if
End if
RS.close
set RS=nothing
OBJdbConnection.close
Set OBJdbConnection = nothing
'fin de toutes les ifs
End if
End if
End if
End if
%>
<html>
<head>
<title>Sans titre</title>
<meta name="generator" content="Namo WebEditor v5.0">
</head>
<body bgcolor="white" text="black" link="blue" vlink="purple" alink="red">
<a href="javascript:history.back(-1)">< Retour au formulaire</a>
</body>
</html>

<%@ LANGUAGE = "VBScript" %>
<%

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'            Changement de mot de passe ASP/ACCESS          '
'  Auteur: Farid - ALGERIE  /  Site Web: www.farid.f2o.org  '
'  E-mail: sidoummoudz@yahoo.fr                             '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'  Ce code est gratuit. Ces lignes de commentaires doivent  '
'  être conservées pour son utilisation légale.             '
'  Il a été testé sous IIS v.5, Windows XP Professionnel    '
'  Service Pack 2 et Internet Explorer 6                    '
'  Bonne utilisation a tous et @ ++                         '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


  ancien=Request.Form("ancien") 
  nouveau1=Request.Form("nouveau1")
  nouveau2=Request.Form("nouveau2")
  
' Si le premier champ (ancien mot de passe) a été laissé vide
if Request.Form("ancien")="" then
response.write "<p align='center'><font face='Arial' color='red'><span style='font-size:10pt;'><b>Champ ancien mot de passe vide" 

' Si le deuxieme champ (nouveau mot de passe) a été laissé vide
else if Request.Form("nouveau1")="" then
response.write "<p align='center'><font face='Arial' color='red'><span style='font-size:10pt;'><b>Champ nouveau mot de passe vide"

' Si le troisieme champ (confirmation du nouveau mot de passe) a été laissé vide
else if Request.Form("nouveau2")="" then
response.write "<p align='center'><font face='Arial' color='red'><span style='font-size:10pt;'><b>Champ confirmation de mot de passe vide"

' Si le nouveau mot de passe n'est pas confirmé d'une facon valide
else if Request.Form("nouveau1")<> Request.Form("nouveau2") then
response.write "<p align='center'><font face='Arial' color='red'><span style='font-size:10pt;'><b>Veuillez ressaisir le même nouveau mot de passe"

else 'sinon
  
   Set OBJdbConnection = Server.CreateObject("ADODB.Connection")  
   connpath = "DBQ=" & Server.MapPath("bd1.mdb")  
   OBJdbConnection.Open "Driver={Microsoft Access Driver (*.mdb)}; " & connpath 
   SQLQuery = "SELECT password FROM administration where password='"&ancien&"'" 
   Set RS = OBJdbConnection.Execute(SQLQuery) 
 
 'si rien n'a été trouvé
  If rs.eof Then       'Le mot de passe n'éxiste pas
  response.write "<br><p align=center><font face=Verdana color=red><b>Ce mot de passe semble invalide<br><br>"
  else ' Sinon (si tout va bien) changement du mot de passe 
  
 SQLstmt = "UPDATE administration SET password='" & nouveau1 & "' WHERE password='" & ancien & "'"
 Set requete = OBJdbConnection.Execute(SQLStmt)

' generation des messages d'erreurs
If  err.number>0 then
      response.write "VBScript Errors Occured:" & "<P>"
      response.write "Error Number=" & err.number & "<P>"
      response.write "Error Descr.=" & err.description & "<P>"
      response.write "Help Context=" & err.helpcontext & "<P>" 
      response.write "Help Path=" & err.helppath & "<P>"
      response.write "Native Error=" & err.nativeerror & "<P>"
      response.write "Source=" & err.source & "<P>"
      response.write "SQLState=" & err.sqlstate & "<P>"
end if
IF  OBJdbConnection.errors.count> 0 then
      response.write "Database Errors Occured" & "<P>"
      response.write SQLstmt & "<P>"
for counter= 0 to OBJdbConnection.errors.count
      response.write "Error #" & OBJdbConnection.errors(counter).number & "<P>"
      response.write "Error desc. -> " & OBJdbConnection.errors(counter).description & "<P>"
next
requete.close
set requete=nothing
else ' Sinon (si changement effectué) un message comme bravo
      response.write "<p align='center'><font face='Arial' color='navy'><span style='font-size:10pt;'><B>Everything Went Fine. Record is updated now!</b>"
      response.write "<br>" & SQLstmt 'vous pouvez ignorez cette ligne puisque elle affiche le changement, ce qu'il est peut-être indésirable pour vous
end if
End if   


RS.close 
set RS=nothing
OBJdbConnection.close
Set OBJdbConnection = nothing 

'fin de toutes les ifs
End if
End if
End if
End if
%>
<html>
<head>
<title>Sans titre</title>
<meta name="generator" content="Namo WebEditor v5.0">
</head>
<body bgcolor="white" text="black" link="blue" vlink="purple" alink="red">
<p align="center"><font face="Verdana"><span style="font-size:10pt;"><b><a href="javascript:history.back(-1)">&lt; Retour au formulaire</a></b></span></font></p>
</body>
</html>

Historique

20 mars 2005 00:20:17 :: Correction de bug - Bon, ce code a été corrigé - il fonctionne parfaitement - c sûr

Sources du même auteur

PAGINATION HORIZONTALE ASP(JSCRIPT)-ACCESS COMPLÈTE

UN MESSAGE POUR LES VISITEURS SELON LE TEMPS.

Toutes les sources de semetic

Sources de la même categorie

CONNEXION SQL SERVEUR + LISTBOX par zeb13

SQL - QUELQUES REQUETTES SQL INTÉRESSANTES par fabrice69

PETITES FONCTIONS ENTRE AMIS par LleWellA

QUAND METTRE UNE CLAUSE WHERE? par Black_Pit

AUTOMATISATION DES CONNECTION ET RECORDSET par pi0up51

Toutes les sources de la catégorie SQL

Sources en rapport avec celle ci

IMPORTER UN FICHIER EXCEL DEPUIS UN POSTE ET L'AJOUTER SUR L... par jseblavoie

ZONE MEMBRE EN ASP "E-MEMBRES1.0" par cmaelc

GÉNÉRATION D'UN XML À PARTIR D'UNE BDD ACCESS par fabienfs

MOT DE PASSE ET LOGIN SIMPLE TOUT PRET, SANS MDB par GillesWebmaster

MISE À JOUR DATABASE ACCESS SUR UN WEB SERVEUR par inthecorner

Commentaires et avis

Commentaire de ThunderPsycho le 14/03/2005 11:21:21

Tout ça pour ça ???
Bon ton code est propre et commenté heureusement avec un joli détail d'erreur pour la connection on en voie pas assez je trouve :o))).....

Mais je pense que ça mérite d'être un peu plus exploité, avec un petit <SELECT> pour lister les utilisateurs par exemple (qui apparement seraient listés dans la table 'users' ?!?) et puis je sais pas la gestion de quelques options.....Je suis peut-être trop exigeant... :o)

Commentaire de saadzizou le 01/11/2006 21:52:47

très très bonne source,Mercii bcp,tu me sauves la peau (k)

Commentaire de OPSIO le 13/07/2007 12:11:20

Hélas, si l'on considère que plusieurs personnes peuvent avoir le même mot de passe, je vous laisse imaginer les conséquences de l'update !

Il faut donc associer le mot de passe à un accès (unique : email, pseudo, identifiant fourni par le serveur), et il n'y a plus qu'à modifier le mot de passe correspondant à l'accès et à l'ancien mot de passe. Update administration set password=nouveau where id_acces=xxx and password=ancien. Si rien n'est modifié, avec un id_acces valide, c'est que l'ancien password n'est pas le bon.

l'id_acces étant récupéré et stocké en variable de session au moment de l'authentification, puis nettoyé en fin se session. Cela permet aussi en testant cette variable de session de savoir si l'authentification a eu lieu ou pas.

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

UPDATE dans ACCESS [ par Titrax ] Voila mon programme :SQL="UPDATE Personne SET Connect='1' WHERE Nom='" & Pseudo & "';"Set RS=Server.CreateObject("ADODB.RECORDSET")RS.Open SQL,Baseet ERREUR AVEC ASP ET UPDATE DANS BD ACCESS [ par FLASH ] Je me connecte à ma bd (access 97) et après avoir fait soit un update, un delete ou un insert, j'ai un message d'erreur ADOBD.Recordset erreur '800a0e ERREUR AVEC ASP ET UPDATE DANS BD ACCESS [ par FLASH ] Je me connecte à ma bd (access 97) et après avoir fait soit un update, un delete ou un insert, j'ai un message d'erreur ADOBD.Recordset erreur '800a0e ERREUR AVEC ASP ET UPDATE DANS BD ACCESS [ par FLASH ] Je me connecte à ma bd (access 97) et après avoir fait soit un update, un delete ou un insert, j'ai un message d'erreur ADOBD.Recordset erreur '800a0e UPDATE+ACCESS+IIS5+WIN xp pro [ par seblo ] Bonjour à tous ,un tit prob : deconnexion = request.querystring("deconnexion") SQL2="UPDATE connecte SET connect_now = 0 where connect_pse impossible de modifier la base acess [ par ykane ] j'ai visual studio.net et access 2000 données et comme langage(asp.net et vb.net).J'ai le message d'erreur "[Microsoft][Pilote ODBC Microsoft Access] mise à jour champ date sur access par update (SQL) [ par caussieu ] Bonjour,Voici le code utilisé pour mettre à jour la base de données Access sous ASP / SQL : sql = "Update animations Set animation='"&animation&"', li Comment Modifier une Base (acccess) via formulaire ASP [ par battleduck91 ] Bonjour à tous,Je viens ici poster ce message car je recherche déséspérément une solution. Voilà, je vais essayer de poser mon problème clairement :- connexion a une base access en asp. [ par Dyr3e ] bonjour,je suis debutant en asp, et je cherhce a realiser une connexion a un BD access. Je voulias savoir si il etait possible d'acitver la connection password dreamweaver [ par poseric ] voici le code inscrits<cfif IsDefined("FORM.nom")>  <cfset MM_redirectLoginSuccess="gagner.htm">  <cfset MM_redirectLoginFail