Soyez le premier à donner votre avis sur cette source.
Snippet vu 19 560 fois - Téléchargée 36 fois
'-------déclaration de la base------------------------ DSN_BASE = "DBQ=" & Server.Mappath("Cour_dt.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%> '-------création de la connection------------------- Set conx = Server.CreateObject("ADODB.Connection") conx.Open DSN_BASE%> '-----------création du recordset-------------------- Set objRS = Server.CreateObject("ADODB.Recordset") '-------récupère les valeurs d champs-------------- name = Request.form("nom") pass = Request.form("passe") test = 0 objRS.Open "SELECT Nom, passe From Utilisateur", conx If (name = "" or pass= "") then response.write("<script language='javascript'>") response.write("alert('Nom ou Mot de passe vide!');") response.write("</script>") %><META HTTP-EQUIV=REFRESH CONTENT="1;URL=motdepasse.asp"><% 'renvoie a la page mot de passe Else Do While (test = 0 and not objRS.EOF) If name = objRS("nom") then If pass = objRS("passe") then test = 1 End if End if objRS.movenext Loop If test = 1 then response.redirect "sommaire.asp" 'le code est bon on peut rentrer dans le site Else response.write("<script language='javascript'>") response.write("alert('Nom ou Mot de passe incorrect! Veuillez recommencer');") response.write("</script>") %><META HTTP-EQUIV=REFRESH CONTENT="1;URL=motdepasse.asp"><% ' meme fonction que response.redirect mais on va attendre 1 seconde(CONTENT=1) pr charger la page End if End if objRS.Close set objRS = nothing conx.Close set conx = nothing %>
13.pass = Request.form("passe")
14.test = 0
15.objRS.Open "SELECT Nom, passe From Utilisateur", conx
16.If (name = "" or pass= "") then
17. response.write("<script language='javascript'>")
18. response.write("alert('Nom ou Mot de passe vide!');")
19. response.write("</script>")
20. %><META HTTP-EQUIV=REFRESH CONTENT="1;URL=motdepasse.asp"><% 'renvoie a la page mot de passe
21.Else
22. Do While (test = 0 and not objRS.EOF)
23. If name = objRS("nom") then
24. If pass = objRS("passe") then
25. test = 1
26. End if
27. End if
28. objRS.movenext
29. Loop
30. If test = 1 then
31. response.redirect "sommaire.asp" 'le code est bon on peut rentrer dans le site
32. Else
33. response.write("<script language='javascript'>")
34. response.write("alert('Nom ou Mot de passe incorrect! Veuillez recommencer');")
35. response.write("</script>")
36. %><META HTTP-EQUIV=REFRESH CONTENT="1;URL=motdepasse.asp"><% ' meme fonction que response.redirect mais on va attendre 1 seconde(CONTENT=1) pr charger la page
37. End if
38.End if
39.objRS.Close
40.set objRS = nothing
41.conx.Close
42.set conx = nothing
43.%>
13.pass = Request.form("passe")
14.test = 0
15.objRS.Open "SELECT Nom, passe From Utilisateur", conx
16.If (name = "" or pass= "") then
17. response.write("<script language='javascript'>")
18. response.write("alert('Nom ou Mot de passe vide!');")
19. response.write("</script>")
20. %><META HTTP-EQUIV=REFRESH CONTENT="1;URL=motdepasse.asp"><% 'renvoie a la page mot de passe
21.Else
22. Do While (test = 0 and not objRS.EOF)
23. If name = objRS("nom") then
24. If pass = objRS("passe") then
25. test = 1
26. End if
27. End if
28. objRS.movenext
29. Loop
30. If test = 1 then
31. response.redirect "sommaire.asp" 'le code est bon on peut rentrer dans le site
32. Else
33. response.write("<script language='javascript'>")
34. response.write("alert('Nom ou Mot de passe incorrect! Veuillez recommencer');")
35. response.write("</script>")
36. %><META HTTP-EQUIV=REFRESH CONTENT="1;URL=motdepasse.asp"><% ' meme fonction que response.redirect mais on va attendre 1 seconde(CONTENT=1) pr charger la page
37. End if
38.End if
39.objRS.Close
40.set objRS = nothing
41.conx.Close
42.set conx = nothing
43.%>
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.