Authentification de l'utilisateur sur une base de donnée access par login et password

Soyez le premier à donner votre avis sur cette source.

Snippet vu 19 896 fois - Téléchargée 27 fois

Contenu du snippet

grace a ce code vous pouvez directement acceder a la base de donnée access et verifier par le login et le mot de passe si cet utilisateur existe dans la base de donnée ou pas .en cas de non existance un message apparait pour l'utilisateur vous pouvez le modifier ce message comme vous le voulez .
le formilaire contenant le login et le mot de passe est inclut dans la page asp et ce formulaire contient le login et le mot de passe.
il suffut uniquement d'ajouter une base de donnée access contenant une table qui a pour nom des colonnes id, user, pass, email ...
vous devez faire une autre page que vous appeler inex1.asp dans lequel vous allez mettre ce que vous voulez

Source / Exemple :


<% @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">&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</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> :&nbsp;&nbsp;&nbsp; <input type="text" name="pass" size="20"></p>
  <p align="center"><input type="submit" value="Envoyer" name="Submit">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<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> &nbsp; <%=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>&nbsp;</td>
  </tr>
</table>
</body>

</html>

Conclusion :


si vous avez un problème veuillez mienvoyer un mail : barhoumichokri@yahoo.fr

A voir également

Ajouter un commentaire Commentaires
Messages postés
20
Date d'inscription
mardi 4 avril 2006
Statut
Membre
Dernière intervention
21 avril 2008

est ce qu'on peut utiliser mysql au lieu de sql pour visual web developper
Messages postés
1
Date d'inscription
dimanche 16 avril 2006
Statut
Membre
Dernière intervention
22 juin 2006

thanks!
Messages postés
2
Date d'inscription
jeudi 15 avril 2004
Statut
Membre
Dernière intervention
7 janvier 2006

pas mal, mais c pas ce ke je cherche parce ke ici dans ce code y a encore des failes, si par exemple on connais le chemin de la page à sécurisé alors on px y accédé facilement.
Messages postés
1
Date d'inscription
mardi 22 juin 2010
Statut
Membre
Dernière intervention
24 novembre 2005

chez vous je trouve une mine d'information relative à l'utilisation des codes et script ASP, c'est vraiment géniale, moi je suis débutant en asp je travaille en copier coller, mais parfois ça ne marche pas, je sais pourquoi et par mes erreurs j'apprend beaucoups de choses.
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
Messages postés
1765
Date d'inscription
jeudi 12 octobre 2000
Statut
Modérateur
Dernière intervention
11 décembre 2013
6
Un peu light comme systeme tout de même.
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.