Acces par mot de passe

Commenter

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

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.

Du même auteur (cs_Snoop)