Login et logout

Commenter

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

Du même auteur (bob3000)