Modifier mot passe et login

**cedric/copy** · 24/03/2009, 09h49

Bonjour,

J'ai une page identification avec un login et un mot de passe.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
<%
	Select Case Request("Action")
	Case "","Erreur"
%>
<%
	If Request("Action")="Erreur" Then
		Response.Write("<font color='red'><b>DONNÉES D'IDENTIFICATION INCONNUES !!!</b></font>")
	End If	
%>	
 
	<form action="Identification.asp" method="post">
		Identifiant
	<br>
		(Ex : guide.congres@copyright.fr) 
	<br>
	<br>
			<input type="text" name="login" size="20"  style="border-style: solid; border-width: 1">
	<p>
		Code personnel
	<br>
		(il s'agit de votre code client CL****)
	<br>
	<br>
			<input type="password" name="password" size="20" style="border-style: solid; border-width: 1">
	<p>
			<input type="submit" value="Me Connecter" name="Action" style="border-style:solid; border-width:1; background-color: #64FEFD; border-color: #FFFFFF">    										
	<p>
			> Code personnel oublié
  </form>
 
    <%
	Case "Me Connecter"
		strRequete="SELECT * FROM Tbl_MonCompte WHERE identifiant='" & Request("login") & "' AND CodePersonnel='" & Request("password") & "'"
		Set RsMonCompte=Server.CreateObject("ADODB.Recordset")
		RsMonCompte.Open strRequete,ConnexAdmin
 
		If RsMonCompte.Eof Then
			Response.Redirect "Identification.asp?Action=Erreur&login=" & Request("login") & "&password=" & Request("password")
		Else
			Session("user")=RsMonCompte("identifiant")
			Response.Redirect "MesDonnees.asp"
		End If
end Select
%>
 
<%
' après que identification ok'
session("identOk")=true
session("login")=Request.form("login")
%>

Je veux que l'identifiant puisse modifier son login et mot passe comme bon lui semble.
Comment faire...

Merci d'avance,

Cédric

**roro06** · 24/03/2009, 10h00

Bonjour

Ben tu fais un formulaire, et une requete update derriere.

**cedric/copy** · 24/03/2009, 12h03

Bonjour roro06,

Mon code ne marche pas. J'ai jamais utilisé de requete Update et je pense qu'elle est totalement fausse.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
<form action="MesDonnees.asp" method="post">
		Nouveau code personnel
	<br>
	<br>
			<input type="password" name="CodePersonnel" size="20" style="border-style: solid; border-width: 1">
	<p>
	<p>
			<input type="submit" value="Valider" name="Action" style="border-style:solid; border-width:1; background-color: #64FEFD; border-color: #FFFFFF">    										
	<p>
  </form>
 
 
 <%
	Case "Valider"
 
		strRequete="UPDATE FROM Tbl_MonCompte Set CodePersonnel='"
		Set RsMonCompte=Server.CreateObject("ADODB.Recordset")
		RsMonCompte.Open strRequete,ConnexAdmin
	End Select	
%>

Cédric.

**pc75** · 24/03/2009, 12h34

Bonjour,

Pour la syntaxe, c'est plutot du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
update MaTable
set Login = NewLogin
where Login = OldLogin
and Pwd = OldPwd

**cedric/copy** · 24/03/2009, 14h33

Bonjour pc75,

Je suis désolé, mais je suis complètement à la ramasse avec la requete update.
Car mon code ne fonctionne pas et ne me renvoi aucun message d'erreur...

Cédric.

**cedric/copy** · 27/03/2009, 12h39

Voilà ma page avec mon formulaire afin de modifier mon code personnel.

Lorsque je clique sur valider, les modif. ne sont pas prises en compte et je n'ai aucun message d'erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
<body> 
 
<%
		Str_identifiant = Request.QueryString("identifiant")
 
		strRequete="SELECT * FROM Tbl_MonCompte WHERE identifiant='" & Session("user") & "'"
		Set RsMonCompte=Server.CreateObject("ADODB.Recordset")
		RsMonCompte.Open strRequete,ConnexAdmin
 
 
%>
 
 
 
 
<%
	Select Case Request("Action")
 
	Case ""
%>
 
 
          <td class="storyRight"> 
	<form action="MesDonnees.asp" method="post">
		Nouveau code personnel
	<br>
	<br>
			<input name="NewCodePersonnel" type="password">
	<p>
	<p>
			<input type="submit" value="Valider" name="Action">    										
	<p>
  </form>
 
*
*
 <%
        Case "Valider"
 
 
	 	Str_NewCodePersonnel = Request.QueryString("CodePersonnel")
 
 
 
			StrSQL = "UPDATE Tbl_MonCompte SET CodePersonnel = '" & Str_NewCodePersonnel & "'"
			StrSQL = StrSQL & "WHERE identifiant='" & Session("user") & "'" 
 
		Set RsMonCompte=Server.CreateObject("ADODB.Recordset")
		RsMonCompte.Open strRequete,ConnexAdmin
 
 
        End Select      
%>
 
 
<%
RsMonCompte.MoveNext
Set RsMonCompte=Nothing
 
%>
 
 
</body>

Merci d'avance,

Cédric.

**pc75** · 27/03/2009, 13h02

Re,

Tu construis ta requête dans la variable StrSQL.

Je ne vois dans ton code, à quel moment tu l'exécutes.

**vva** · 27/03/2009, 13h28

je suppose que cette ligne est censée récupérer le nouveau mot de passe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Str_NewCodePersonnel = Request.QueryString("CodePersonnel")

1 - stop immédiatement car passer le mot de passe en url c'est pas top
2 - pour récupérer cette valeur encore faut il qu'elle soit transmise à la page comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
<form action="MesDonnees.asp?CodePersonnel=valeurdu nouveau motdepasse" method="post">

3 - si tu utilises la méthode POST autant s'en servir jusqu'au bout

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
StrSQL = "UPDATE Tbl_MonCompte SET CodePersonnel = '" request.form("NewCodePersonnel") & "' WHERE identifiant='" & Session("user") & "'"

**cedric/copy** · 27/03/2009, 14h07

Re,

Peux-tu m'aider sur la façon d'executer ma requete SQL UPDATE.

Cédric

**vva** · 27/03/2009, 14h17

ok je te donnes un exemple

il te faut une page de formulaire pour saisir le nouveau mot de passe et une seconde page de traitement SQL pour le chagement effectif dans la BD

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
<body> 
Str_identifiant = Request.QueryString("identifiant")
strRequete="SELECT * FROM Tbl_MonCompte WHERE identifiant='" & Session("user") & "'"
Set RsMonCompte=Server.CreateObject("ADODB.Recordset")
RsMonCompte.Open strRequete,ConnexAdmin
%> 
<div class="storyRight"> 
<form action="Val.asp" method="post">
Nouveau code personnel <input name="NewCodePersonnel" type="password">
<br>
<input type="submit" value="Valider" name="Action">
</form>
</div>
</body>

la page val.asp

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
<%
StrSQL = "UPDATE Tbl_MonCompte SET CodePersonnel = '" request.form("NewCodePersonnel") Str_NewCodePersonnel & "' WHERE identifiant='" & Session("user") & "'" 
Set RsMonCompte=Server.CreateObject("ADODB.Recordset")
RsMonCompte.Open StrSQL,ConnexAdmin
Set RsMonCompte=Nothing
%>

**cedric/copy** · 27/03/2009, 14h34

Merci vva,

Ca marche.

Il faut modifier la ligne suivante

StrSQL = "UPDATE Tbl_MonCompte SET CodePersonnel = '" Request.Form("NewCodePersonnel") & "' WHERE identifiant='" & Session("user") & "'"

avant le Request.Form il faut ajouter &.

Est-il possible de tout rassembler sur une même page ?

Merci à tous pour votre aide.

Cédric

**vva** · 27/03/2009, 14h38

tu peux mais je dissocie toujours les pages de formulaire et de traitement, je trouve que c'est plsu pratique. il faut voir avec quelqu'un qui maitrise mieux cette manière de faire

**pc75** · 27/03/2009, 15h45

Envoyé par vva

tu peux mais je dissocie toujours les pages de formulaire et de traitement, je trouve que c'est plsu pratique. il faut voir avec quelqu'un qui maitrise mieux cette manière de faire

Si tu ne précises pas d'action dans la balise <form>, la page s'appelle elle même.

Modifier mot passe et login

ASP

Discussions similaires

Partager

Partager