LOGIN ET LOGOUT

*****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"
%>