Login et logout

Soyez le premier à donner votre avis sur cette source.

Snippet vu 18 701 fois - Téléchargée 37 fois

Contenu du snippet

C'est un script qui va chercher l'information dans une base de donnée et qui compare les données au entrées de l'utilisateur. En d'autres mots, c'est un script de login...

Source / Exemple :



          • login.asp*****
mettez un form: -textbox pseudo -textbox mot de passe -le form va a login2.asp(form action="login2.asp") -écrivez <%= message %> ou vous voulez que les messages apparaissent
          • login2.asp*****
<% Option Explicit dim dbname dim myname, mypassword dim conntemp, cnpath, sqltemp, rstemp dbname="nom_de_bdd.mdb" myname=request.form("nom_de_la_textbox_pseudo") mypassword=request.form("nom_de_la_textbox_mot_de_passe") set conntemp=server.createobject("adodb.connection") cnpath="DBQ=" & server.mappath(dbname) conntemp.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath sqltemp="select * from nom_de_la_table where nom_colomne_pseudo='" sqltemp=sqltemp & myname & "'" set rstemp=conntemp.execute(SQLTemp) If rstemp.eof then rstemp.close conntemp.close set rstemp=nothing set conntemp=nothing 'redirection de l'utilisateur vers la page de login si informations incorrects Session("Message") = "erreur: informations incorrects" response.redirect "login.asp" end if If rstemp("password")=mypassword then rstemp.close conntemp.close set rstemp=nothing set conntemp=nothing Session("LoggedIn") = "yes" 'redirection de l'utilisateur vers la bonne page response.redirect "login_ok.asp" else rstemp.close conntemp.close set rstemp=nothing set conntemp=nothing Session("Message") = "erreur: informations incorrects" 'redirection de l'utilisateur vers la page de login response.redirect "login.asp" end if %>
          • login_ok.asp*****
<% Option Explicit 'si l'utilisateur à tapé login_ok.asp sans passer par login.asp, afficher un message d'erreur if Session("LoggedIn") <> "yes" then Session("Message") = "Vous devez vous connecter pour voir cette page." 'redirection vers la page de login response.redirect "login.asp" end if Sub DrawPage() %>
          • logout.asp*****
<% 'déconnexion de l'utilisateur, redirection vers la page de login et afficher un message de déconnexion Session("LoggedIn") <> "yes" Session.Abandon Session("Message") = "Vous avez été déconnecté." response.redirect "login.asp" %>

Conclusion :


merci de maviser s'il y a des bugs

bob3000

A voir également

Ajouter un commentaire

Commentaires

cs_Azedinne
Messages postés
4
Date d'inscription
vendredi 10 décembre 2004
Statut
Membre
Dernière intervention
8 avril 2006
-
j'ai testé le code concernant la deconnection mais j'ai pu remarqué que si on ce deconnecte et qu'on apuie sur precedent on peut revenir à la page precedente et voir les enregistrements
NB j'ai ouvert la connection ds global.asa
alors avez vous une suggestion à me faire
cs_poulain
Messages postés
8
Date d'inscription
jeudi 13 mai 2004
Statut
Membre
Dernière intervention
27 août 2005
-
Ce code me parret pas mal, a part le fait que l'on ai besoin de se deconnecter, mais sinon il est interessant,
sinon kdRt le probleme que tu enonce, c'est le fait qu'il y ai deux dim sur la meme ligne, qui fait ça, donc tu n'a qu'a la mettre sur la ligne de dessous, mais ensuite, le probleme, c'est qu'il va y avoir d'autres erreurs, et, il va te montrer une erreur au niveau du End If, et la, je ne sais pas quoi faire a part le supprimer, mais ça change tout, nan?
cs_kulmai
Messages postés
1
Date d'inscription
mardi 11 mai 2004
Statut
Membre
Dernière intervention
14 mai 2004
-
à quoi sert la fonction finale Sub DrawPage() de login_ok.asp?
kdRt
Messages postés
2
Date d'inscription
jeudi 11 décembre 2003
Statut
Membre
Dernière intervention
12 décembre 2003
-
je suis neophyte et j'ai un petit problème :

lorsque je test l'application
j'ai une page d'erreur


****************
Erreur de compilation Microsoft VBScript error '800a0401'

Fin d'instruction attendue

/iisHelp/common/500-100.asp, line 11

Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Erreur de compilation Microsoft VBScript error '800a0400'

Instruction attendue

/Oz/login2.asp, line 9

Option Explicit
^
****************

si quelqu'un pouvait me renseigner sur la chose à faire ;-)
bob3000
Messages postés
406
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
2 octobre 2004
-
merci :)

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.