CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 12 03 04:41:00

ADOBE MAX à MILAN => JOUR -1 par pegase31

SQL SERVER : LE FUTUR DES MOTEURS DE RECHERCHE CHEZ MICROSOFT par christian

TOFINO : LE PLUGIN FLEX POUR VISUAL STUDIO par Nix

FLEX INTéGRé DANS VISUAL STUDIO ! par Nix

SQL SERVER 2008 : ENFIN UN DOCUMENT COMPLET SUR LES MISES à JOUR DE SQL SERVER par christian

RE : TUTORIEL ASPX par olibara

RE : TUTORIEL ASPX par nhervagault

RE : TUTORIEL ASPX par olibara

RE : TUTORIEL ASPX par nhervagault

RE : TUTORIEL ASPX par olibara

+ de logiciels à télécharger

1 302 080 membres
41 nouveaux aujourd'hui
14 554 membres club

Trouver une ressource

Trouvez une ressource parmi 39 074 codes, 1 208 444 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

SÉCURITER AVEC PASSWORD

Information sur la source

Catégorie :Administration Niveau : Débutant Date de création : 04/05/2002 Date de mise à jour : 04/05/2002 18:23:04 Vu : 4 606

Auteur : nirega

Site perso

Ecrire un message privé

Note :

2,00 / 10

Commentaire sur cette source (1)

Ajouter un commentaire et/ou une note

Description

pour utiliser ce code il vous faut une base de données .
il regarde si le password entrer dans un formulaire est pareil a celui de la base de données
et si il est pareil il vous laisse entrer sinon il vous redirige sur la page de login.

Source

pas = request.form("ton champ formulaire")
vari = "select password from TaTable where password='" & pas & "'"
set rs2 = server.CreateObject("ADODB.recordset")
rs2.Open vari,conn,adOpenForwardOnly,adLockOptimistic
found = false
if conn.State=0 then
response.write "<font color=""red"">Connection non trouvé</font><br>"
else
strFilter = "password= '" & pas & "'"
rs2.Filter = strFilter
if not rs2.EOF then
if pas = rs2("password") then
found = true
else
Response.Write "Vous n'avez pas accès a cette page"
c=f
Response.Redirect("TaPageDeLogin.asp?c=f")
end if
if found then
Le reste du script asp
end if

pas = request.form("ton champ formulaire")
vari = "select password from TaTable where password='" & pas & "'"
set rs2 = server.CreateObject("ADODB.recordset")
rs2.Open vari,conn,adOpenForwardOnly,adLockOptimistic
found = false
if conn.State=0 then 
response.write "<font color=""red"">Connection non trouvé</font><br>"
else
strFilter = "password= '" & pas & "'"
rs2.Filter = strFilter
if not rs2.EOF then
if pas = rs2("password") then
found = true
else
Response.Write "Vous n'avez pas accès a cette page"
c=f
Response.Redirect("TaPageDeLogin.asp?c=f")
end if

if found then
Le reste du script asp
end if

Conclusion

n'oublie pas si tu utilise le response.redirect il te faut mettre en haut de ta page juste en dessous de language=vbscript ....il faut que tu mette :
<%Response.Buffer = true%>

bon et bien bonne journée et bonne prog..