Soyez le premier à donner votre avis sur cette source.
Snippet vu 20 087 fois - Téléchargée 28 fois
<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <html> <head> <meta http-equiv="Content-Language" content="fr"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Nouvelle page 1</title> </head> <body> <p align="center"> </p> <p> </p> <p> </p> <table border="1" width="48%" height="96"> <tr> <td width="100%" align="left" height="90" bgcolor="#C0C0C0"> <p align="center"><b>Veuillez introduire votre Nom d'utilisateur et votre Mot de passe</b></p> <form method="POST" action="index3.asp"> <p align="center"> <b>Nom utilisateur :</b> <input type="text" name="user" size="20"></p> <p align="center"><b>Mot de passe</b> : <input type="text" name="pass" size="20"></p> <p align="center"><input type="submit" value="Envoyer" name="Submit"> <input type="reset" value="Rétablir" name="B2"></p> </form> <%boutonclick=request.form("Submit") if boutonclick="Envoyer" then%> <%Server.ScriptTimeout=120 user=request.form("user") pass=request.form("pass") Set MonADODB=Server.CreateObject("ADODB.Connection") definition_base="Driver={Microsoft Access driver (*.mdb)}; "&"DBQ="& Server.MapPath(".")&"/db/Users.mdb" MonADODB.Open definition_base SQL = "Select * from user where pass='"&pass&"' and user='"&user&"';" set mon_resultat=MonADODB.execute(SQL) if mon_resultat.eof then%> <center> il n'existe aucun utilisateur ayant ce login</center> <center> <%=user%>Veuillez envoyer un mail a barhoumichokri@yahoo.fr pour avoir un mot de passe et un login</center> <%else response.redirect "index1.asp" end if end if %> <p> </td> </tr> </table> </body> </html>
27 août 2006 à 15:35
22 juin 2006 à 21:29
7 janv. 2006 à 02:07
24 nov. 2005 à 22:05
Maintenant je suis devant un problème qui est le suivant:
Tous les programme que j'utilise sont en connection en local sans dsn, mon hebergeur ne peut pas heberger une bd en MaPath, je dois alors convertir le MAPAth en connexion en DSN sous la forme: conn.open"mabase","","" fin de script quel est le rôle des cotes et des gueillemets ,"",""
Merci de me répondre par email akkour@gmail.com
21 janv. 2004 à 08:13
Que se passe t'il si je vais directement sur index1.asp ? Dans le cas présent rien, il n'y a aucun stockage du fait que tu ais été identifié ou non.
Cet exemple est seulement pour un premier pas dans les requêtes SQL sur Access. De plus si un espace est ajouté par inadvertance a la fin du login ou du mot de passe, ton code plante aussi.
Enfin tu as des exercices ici pour justement l'identification avec un principe de progression :
- http://www.asp-php.net/scripts/asp-php/mot_de_passe.php
F___
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.