Acces par mot de passe

1/5 (4 avis)

Snippet vu 19 972 fois - Téléchargée 38 fois

Contenu du snippet

Pour limiter l'acces a un site, on peut demander un mot de passe.
A chaque tentative de connexion on va allez vérifier ds la base que l'utilisateur et le mot de passe sont bon.

Source / Exemple :


'-------déclaration de la base------------------------
DSN_BASE = "DBQ=" & Server.Mappath("Cour_dt.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>

'-------création de la connection-------------------
Set conx = Server.CreateObject("ADODB.Connection")
conx.Open DSN_BASE%>

 '-----------création du recordset--------------------
Set objRS = Server.CreateObject("ADODB.Recordset")

'-------récupère les valeurs d champs--------------
name = Request.form("nom")
pass = Request.form("passe")
test = 0
objRS.Open "SELECT Nom, passe From Utilisateur", conx
If (name = "" or pass= "") then
	response.write("<script language='javascript'>")
    response.write("alert('Nom ou Mot de passe vide!');")
    response.write("</script>")
    %><META HTTP-EQUIV=REFRESH CONTENT="1;URL=motdepasse.asp"><% 'renvoie a la page mot de passe
Else
	Do While (test = 0 and not objRS.EOF)
		If name = objRS("nom") then
			If pass = objRS("passe") then
				test = 1
			End if
		End if
		objRS.movenext
	Loop
	If test = 1 then	
		response.redirect "sommaire.asp" 'le code est bon on peut rentrer dans le site
	Else
		response.write("<script language='javascript'>")
    	response.write("alert('Nom ou Mot de passe incorrect! Veuillez recommencer');") 
    	response.write("</script>")
    	%><META HTTP-EQUIV=REFRESH CONTENT="1;URL=motdepasse.asp"><% ' meme fonction que response.redirect mais on va attendre 1 seconde(CONTENT=1) pr charger la page
	End if 
End if
objRS.Close
set objRS = nothing
conx.Close
set conx = nothing
%>

A voir également

Ajouter un commentaire Commentaires
cs_clem0808 Messages postés 2 Date d'inscription mercredi 2 juin 2010 Statut Membre Dernière intervention 9 juin 2010
9 juin 2010 à 16:25
12.name = Request.form("nom")
13.pass = Request.form("passe")
14.test = 0
15.objRS.Open "SELECT Nom, passe From Utilisateur", conx
16.If (name = "" or pass= "") then
17. response.write("<script language='javascript'>")
18. response.write("alert('Nom ou Mot de passe vide!');")
19. response.write("</script>")
20. %><META HTTP-EQUIV=REFRESH CONTENT="1;URL=motdepasse.asp"><% 'renvoie a la page mot de passe
21.Else
22. Do While (test = 0 and not objRS.EOF)
23. If name = objRS("nom") then
24. If pass = objRS("passe") then
25. test = 1
26. End if
27. End if
28. objRS.movenext
29. Loop
30. If test = 1 then
31. response.redirect "sommaire.asp" 'le code est bon on peut rentrer dans le site
32. Else
33. response.write("<script language='javascript'>")
34. response.write("alert('Nom ou Mot de passe incorrect! Veuillez recommencer');")
35. response.write("</script>")
36. %><META HTTP-EQUIV=REFRESH CONTENT="1;URL=motdepasse.asp"><% ' meme fonction que response.redirect mais on va attendre 1 seconde(CONTENT=1) pr charger la page
37. End if
38.End if
39.objRS.Close
40.set objRS = nothing
41.conx.Close
42.set conx = nothing
43.%>
cs_clem0808 Messages postés 2 Date d'inscription mercredi 2 juin 2010 Statut Membre Dernière intervention 9 juin 2010
9 juin 2010 à 16:25
12.name = Request.form("nom")
13.pass = Request.form("passe")
14.test = 0
15.objRS.Open "SELECT Nom, passe From Utilisateur", conx
16.If (name = "" or pass= "") then
17. response.write("<script language='javascript'>")
18. response.write("alert('Nom ou Mot de passe vide!');")
19. response.write("</script>")
20. %><META HTTP-EQUIV=REFRESH CONTENT="1;URL=motdepasse.asp"><% 'renvoie a la page mot de passe
21.Else
22. Do While (test = 0 and not objRS.EOF)
23. If name = objRS("nom") then
24. If pass = objRS("passe") then
25. test = 1
26. End if
27. End if
28. objRS.movenext
29. Loop
30. If test = 1 then
31. response.redirect "sommaire.asp" 'le code est bon on peut rentrer dans le site
32. Else
33. response.write("<script language='javascript'>")
34. response.write("alert('Nom ou Mot de passe incorrect! Veuillez recommencer');")
35. response.write("</script>")
36. %><META HTTP-EQUIV=REFRESH CONTENT="1;URL=motdepasse.asp"><% ' meme fonction que response.redirect mais on va attendre 1 seconde(CONTENT=1) pr charger la page
37. End if
38.End if
39.objRS.Close
40.set objRS = nothing
41.conx.Close
42.set conx = nothing
43.%>
haikel3000 Messages postés 1 Date d'inscription dimanche 20 avril 2003 Statut Membre Dernière intervention 20 avril 2003
20 avril 2003 à 21:27
le probleme avec ton script c'est que si l'on connait la page de redirection (dans ton exemple 'sommaire.asp') ya plus besoin de mot de passe ni de login .... il suffit de taper l'adresse et le tour est joué.
cs_gg16819 Messages postés 4 Date d'inscription vendredi 7 février 2003 Statut Membre Dernière intervention 18 novembre 2003
17 mars 2003 à 13:47
L'objet CONX ne correspond à rien dans ton code... Si mes (faibles) connaissances en ASP sont exactes, il doit s'agit de la base de données, non ?

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.

Du même auteur (cs_Snoop)