Notre site utile la technologie Javascript et votre navigateur est configuré avec Javascript désactivé.

Nous vous invitons à activer Javascript afin de profiter de toutes les fonctionnalités de notre site.

Économisez jusqu'à 10 € sur votre première commande en vous abonnant à notre newsletter.

Trucs et Astuces

Chaque semaine, Micro Application vous propose une astuce différente choisie parmi différentes thématiques :

Bureautique, Internet et création de sites, Photo et vidéo, Windows, ...

Une astuce gratuite chaque semaine ?

Envie de découvrir une nouvelle astuce chaque semaine ?

L'astuce : ASP - Protéger l'accès à certaines pages

Si vous gérez un site commercial, vous pouvez être amené à protéger le contenu de certaines de vos pages. Ce sera le cas par exemple, pour les pages payantes, les accès restreints à vos clients.

Pour ce faire, nous suivrons les quatre étapes suivantes :

La création d'une table clients (d'une base de données) qui contiendra les noms (nom) et mots de passe (mdp) associés de vos clients.
Dans notre exemple, la base de données de type DSN sera nommée mes_clients.
La création d'une page d'authentification que nous appellerons authentif.htm, et qui sera construite comme suit :
<HTML>
    <HEAD></HEAD>
    <BODY>
        <FORM method="post" action="acces.asp">
        <p>Votre nom d'authentification SVP :
        <INPUT TYPE="text" SIZE="20" name="nom">
        <p>Votre code confidentiel:
        <INPUT TYPE="password" SIZE="20" name="mdp">
        <INPUT TYPE="SUBMIT" value="Envoyer">
    </BODY>
</HTML>
La création de la page asp (acces.asp), à laquelle se réfère le code HTML précédant pour le contrôle d'identité :
<%
    login = Request.Form("nom")
    password = Request.Form("mdp")
    SQL = "SELECT * FROM clients WHERE nom LIKE '" & nom & "' AND mdp LIKE '" & mdp & "'"
   Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
    OBJdbConnection.Open "mes_clients"
    Set RS = OBJdbConnection.Execute(SQL)
   if NOT rs.EOF then
        Session("nom") = nom
        Response.Redirect "ok.asp"
    else
        Response.Redirect "authentif.htm"
    end if
%>
<%RS.Close%>
Enfin, il faudra protéger toutes les pages devant l'être en leur donnant l'extension .ASP, ainsi qu'en ajoutant dans les entêtes les lignes suivantes :
<% if Session("nom") = "" Then
Response.Redirect "authentif.htm"
end if
%>