AL Callac Handball

* -------------------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 * %> * * * * <% ' Lien si identifié * if protect<"4" then%> * Déconnecter * <% ' Liste des login/pass si niveau 1 ou 2 * if protect<"3" then%> *
* * * * * *

* * * * * * * * * * * <%for i=1 to ubound(password) * ' seulement niveau < ..:o) * if password(i,3) > cInt(protect) then%> * * * * * * * <%end if * next%> * Liste des mots de passe  LOGIN   PASSWORD  CATÉGORIE ENREGISTRÉ LE: <%=password(i,1)%> <%=password(i,2)%> <%=nivo(password(i,3)-1)%> <%response.write("18 Août 2004")%> * *

* * * * * * * * * * *   Messages E-mail   *

* <%end if * * else ' Formulaire d'identification sinon * %> *

 

* * * * * *

* * * * * * *   * * * * * * * * * * * * Pour vous connecter entrer votre Password. * * * * * * * * * * Login: * Password: * * * * * * * * *   *

* * <%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"%> * * * * <% ' si identifié >> lien vers page Admin * if protect<"4" then * %>Page * <%=nivo(cInt(protect)-1)%> - * <%end if%> * * Livre d'or - * Départ du site *

---