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 :
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
<%
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
%>
<%
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()
%>
<%
'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