Protégé une page par mot de passe

Commenter

Contenu du snippet

Pour ceux qui ont besoin de protéger des pages ou de permettre a certains utilisateurs de modifier leur enregistrement dans une base de données:

Source / Exemple : 


<%
' Attention, ce code doit se trouver AVANT la balise HTML sinon quelqu'un risque de voir le login et le mot de passe nécessaire pour se connecter; de plus, le response.redirect ne fonctionnerai pas.

Dim Login      'Nom d'utilisateur
Dim Password   'Mot de passe

Login = request.form("Login")
Password = request.form("Password")

If Login <> "LeLoginPourSeConnecter" OR If Password <> "MotDePassePourSeConnecter" Then
    response.redirect "page_erreur.asp"
End If
%>

<HTML&gt

[...]

</HTML>

Conclusion :


Généralement ce code est utilisé avec une base de données. On créra un champs Login et un champ Password dans une table où Login sera du type "Sans doublon". On aura par exemple:
Set AdoConn = Server.CreateObject ("ADODB.Connection")
AdoConn.Provider = "Microsoft.Jet.OLEDB.4.0"
AdoConn.ConnectionString = "Data Source=" & Server.MapPath ("MaBase.mdb")
AdoConn.Open
SQLQuery = "SELECT * FROM Table WHERE login = '" & login & "' "
Set rs = AdoConn.Execute(SQLQuery)
If rs.eof Then 'Le login n'éxiste pas
response.redirect "page_erreur.asp"
Else
If Password <> rs("Password") Then
response.redirect "page_erreur.asp" 'Le mot de passe est incorect n'éxiste pas
End If
End If
Rs.close
Set AdoConn = 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_florentp)