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

Commenter

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

S'inscrire maintenant

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.