Acces par mot de passe

Soyez le premier à donner votre avis sur cette source.

Snippet vu 19 463 fois - Téléchargée 36 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

Messages postés
2
Date d'inscription
mercredi 2 juin 2010
Statut
Membre
Dernière intervention
9 juin 2010

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.%>
Messages postés
2
Date d'inscription
mercredi 2 juin 2010
Statut
Membre
Dernière intervention
9 juin 2010

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.%>
Messages postés
1
Date d'inscription
dimanche 20 avril 2003
Statut
Membre
Dernière intervention
20 avril 2003

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é.
Messages postés
4
Date d'inscription
vendredi 7 février 2003
Statut
Membre
Dernière intervention
18 novembre 2003

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)