MOT DE PASSE ET LOGIN SIMPLE TOUT PRET, SANS MDB

-------------------admin.asp----------------------
<% ' Liste des mots de passe
dim password(5,3)
i=0 : niv=1 ' Webmaster
i=i+1 : password(i,1) = "toto" : password(i,2)="toto"
   password(i,3)=niv
niv=2 ' Collaborateurs
i=i+1 : password(i,1) = "invite" : password(i,2)="collab"
   password(i,3)=niv
i=i+1 : password(i,1) = "invite" : password(i,2)="collab"
   password(i,3)=niv
niv=3 ' Membres
i=i+1:password(i,1)="invite":password(i,2)="membre"
   password(i,3)=niv
i=i+1 : password(i,1) = "invite" : password(i,2)="membre"
   password(i,3)=niv

' Si le lien contient ?pass=no
' on vide le cookie
if request("pass")="no" then
   response.cookies("passe5")=""
' Sinon si le visiteur a validé le formulaire
elseif request("pass")<>"" then
   ' on compare avec la liste
   for i = 1 to ubound(password)
      ' si le login et le pass sont OK
      if request("login")=password(i,1) _
         and request("pass")=password(i,2) then
         ' on stocke le niveau dans un cookie
         response.cookies("passe5")=password(i,3)
         exit for
      end if
   next
end if
%>

<!-- #include file="_protect.asp"-->

<% ' Lien si identifié
if protect<"4" then%>
   <A href="http://www.gilles4.com">Déconnecter</A>
   <% ' Liste des login/pass si niveau 1 ou 2
   if protect<"3" then%>
   <BR>
<table width="100%" >
        <tr>
          <td width="50%">            <br>
            <table width="50%" bgcolor=#EEEEFF>
              <tr bordercolor="#EEEEFF">
                <th colspan=4 nowrap
            >Liste des mots de passe</th>
              </tr>
              <tr bgcolor=#DDDDEE>
                <td>&nbsp;LOGIN&nbsp;</td>
                <td>&nbsp;PASSWORD&nbsp;</td>
                <td> CAT&Eacute;GORIE</td>
                <td>ENREGISTR&Eacute; LE: </td>
              </tr>
              <%for i=1 to ubound(password)
         ' seulement niveau < ..:o)
         if password(i,3) > cInt(protect) then%>
              <tr>
                <td nowrap><%=password(i,1)%></td>
                <td nowrap><%=password(i,2)%></td>
                <td><%=nivo(password(i,3)-1)%></td>
                <td><%response.write("18 Ao&ucirc;t 2004")%>
                </td>
              </tr>
              <%end if
      next%>
            </table>
          <p>&nbsp;          </p></td>
          <td width="50%"><div align="center">
            <table width="100%" >
              <tr>
                <td bgcolor="#EEEEFF"><div align="center"></div></td>
              </tr>
              <tr>
                <td bgcolor="ddddee"> <div align="center"><a href="Mail.asp" target="_top" style="color: #FFFFFF">Messages E-mail </a></div></td>
              </tr>
              <tr>
                <td bgcolor="#EEEEFF"><div align="center"></div></td>
              </tr>
            </table>
          </div></td>
        </tr>
</table>
      <%end if

else ' Formulaire d'identification sinon
%>
      <p>&nbsp;      </p>
      <form method="post" action="admin.asp">
     <table width="100%" height="100%" >
       <tr>
         <td height="455"><div align="center">
           <table width="100%" height="77%" >
             <tr>
               <td height="223">&nbsp;</td>
             </tr>
             <tr>
               <td height="222">
                                    <div align="center">
                                      <table width="50%" >
                       <tr>
                         <td bgcolor="#7F9DB9"><div align="center">Pour vous connecter entrer votre Password. </div></td>
                       </tr>
                       <tr>
                         <td height="36"><div align="center">
                           <table>
                             <tr bgcolor="eeeeff">
                               <td><div align="center">Login:<br>
                                 </div></td>
                               <td><div align="center">Password:<br>
                                 </div></td>
                             </tr>
                             <tr bgcolor="#7F9DB9">
                               <td><div align="center">
                                  <input name="login">
                               </div></td>
                               <td><div align="center">
                                  <input type="password" name="pass">
                                </div></td>
                             </tr>
                           </table>
                         </div></td>
                       </tr>
                       <tr bgcolor="#7F9DB9">
                         <td width="20%" bgcolor="#FFFFFF"><div align="center">
                           <input type="Submit" value="Entrer"> 
                           </div></td>
                       </tr>
                                      </table>
               </div>                 <p align="center">&nbsp;</p></td></tr>
           </table>
         </div></td>
       </tr>
     </table>
   </form>
<%end if%>

--------------------------_protect.asp---------------------------------------------------
<% ' Libellés des niveaux
nivo = Array("WebMaster","Collaborateur","Membre")
' On lit le cookie
protect=request.cookies("passe5")
' si vide >> niveau 4
if protect="" then protect="4"%>

<center>

<% ' si identifié >> lien vers page Admin
if protect<"4" then
   %><A href="admin.asp">Page
      <%=nivo(cInt(protect)-1)%></A> -
<%end if%>

<A href="http://www.livre-dor.net/livre.php?livredor=4729">Livre d'or</A> -
<A href="http://www.gilles4.com">Départ du site</A> 
</center><hr>