IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

ASP Discussion :

Modifier mot passe et login


Sujet :

ASP

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    90
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2008
    Messages : 90
    Par défaut Modifier mot passe et login
    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

  2. #2
    Modérateur
    Avatar de roro06
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    1 480
    Détails du profil
    Informations personnelles :
    Âge : 56
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 1 480
    Par défaut
    Bonjour

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


    N'oubliez pas de consulter les FAQ ASP et les cours et tutoriels ASP

    " La vie c'est quelque chose de très fort et de très beau.... La vie appartient a tous les vivants. It's both a dream and a feeling. C'est être ce que nous ne sommes pas sans le rester. La vie c'est mourir aussi....Et mourir c'est vraiment strong...c'est rester en vie au delà de la mort...Tous ceux qui sont morts n'ignorent pas de le savoir."
    (J.C. VanDamme, humoriste et philosophe belge . A moins que ce ne soit l'inverse ...)

    Chuck Norris comprend JC Van Damme.

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    90
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2008
    Messages : 90
    Par défaut
    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.

  4. #4
    Membre Expert
    Avatar de pc75
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    3 662
    Détails du profil
    Informations personnelles :
    Âge : 70
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Septembre 2004
    Messages : 3 662
    Par défaut
    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

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    90
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2008
    Messages : 90
    Par défaut
    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.

  6. #6
    Membre confirmé
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    90
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2008
    Messages : 90
    Par défaut
    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.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 4
    Dernier message: 04/12/2009, 11h34
  2. [Forum] Saisie de mot de passe pour login
    Par Alexlesilex dans le forum EDI, CMS, Outils, Scripts et API
    Réponses: 12
    Dernier message: 24/04/2006, 16h39
  3. modifier mot de passe de la base de donnée
    Par zut94 dans le forum Access
    Réponses: 9
    Dernier message: 28/02/2006, 11h36
  4. [SQL SERVER]Création table de Login avec création mot pass
    Par MatthieuQ dans le forum Langage SQL
    Réponses: 2
    Dernier message: 13/01/2006, 12h07

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo