Steph
-
10 avril 2001 à 02:42
cs_EBArtSoft
Messages postés4525Date d'inscriptiondimanche 29 septembre 2002StatutModérateurDernière intervention22 avril 2019
-
7 août 2007 à 10:35
Bonjour,
Depuis le début de l'année, je me suis mis en tête de réussir à créer un site complet en ASP (et oui, y a des inconscients partout!). Bref, malgré des heures et des heures de travail, des litres de café, un nombre incalculable de cigarettes et des milliers de cheveux arrachés, ca a l'air de fonctionner peu à peu.
Sauf ma page d'enregistrement d'utilisateurs. Voilà le concept, j'ai une page avec un formulaire contenant deux textboxes, une pour le login et une pour le mot de passe et un bouton. Un utilisateur existant entre son login et mot de passe, celui-ci est vérifié (sur une autre page) et le visiteur est ensuite dirigé dans une zone de membres (ca fonctionne!).
Lorsque l'utilisateur entre un mauvais mot de passe, idem le processus de vérification se fait et il est redirigé sur une page d'erreur.
Lorsque le nom d'utilisateur n'existe pas, la page de vérification (voir le schéma ci-dessous, ca sera plus simple) confirme le nouveau nom d'utilisateur et le mot de passe (ça fonctionne!) et permet à l'utilisateur soit de revenir à la page login (ça fonctionne!) soit d'enregistrer les données pour utiliser son login et mot de passe dans le futur (là ca fonctionne pas :( - Internal Server Error HTTP 500).
Voilà donc si quelqu'un veut bien m'aider à ne pas être totalement dégoûté de l'ASP (ça fait trois semaines que je suis sur CETTE page) j'aprécierais vraiment son aide et je suis prêt à lui ériger une statue ;)
Merci d'avance.
Voilà le concept:
login.asp (entrée du login et mdp pour nouvel utilisateur ou utilisateur existant)
|
|
V
transmission des données (method get)
page verifcompte.asp
Voici le code de la page verifcompte.asp:
<%
' on ouvre la connexion
If IsObject(Session("sessWM")) Then
Set conn = Session("sessWM")
Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Welcome-Montreal_data","",""
Set Session("sessWM") = conn
End If
%>
<% if request.querystring("Action")<>"" then %>
<%
' test si l'utilisateur existe déjà
sql = "SELECT Users.UserID, Users.Password FROM Users WHERE ((Users.UserID)='" & Request.QueryString("UserID") & "') "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
if rs.recordcount>0 then ' Utilisateur existant
sql = "SELECT Users.ID, Users.UserID, Users.Password FROM Users WHERE (((Users.UserID)='" & Request.QueryString("UserID") & "') AND ((Users.Password)='" & Request.QueryString("Password") & "')) "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
if rs.recordcount>0 then ' mot de passe correct
rs.movefirst
session("Numero")=rs.fields("ID")
' écriture du cookie
Response.Cookies("Webmaster")=session("Numero")
Response.Cookies("Webmaster").Expires = Date+365
response.redirect "members.asp"
else
response.redirect "acces_refuse.asp"
end if
end if
%>
<% end if %>
<% if request.querystring("Act")="creer" then %>
<% sql = "SELECT Users.* FROM Users "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
rs.AddNew
rs.Fields("UserID")=request.querystring("UserID")
rs.Fields("Password")=request.querystring("Password")
rs.update
sql = "select max(ID) from Users"
set rs = conn.Execute(sql)
session("Numero")=rs.fields(0)
' écriture du cookie
' Response.Cookies("Webmaster")=session("Numero")
' Response.Cookies("Webmaster").Expires = Date+365
' response.redirect "members.asp"
%>
<% end if%>
<html>
<!-- #BeginTemplate "/Templates/template.dwt" -->
<head>
<!-- #BeginEditable "doctitle" -->
<title>Welcome Montreal - Votre guide par Internet</title>
<!-- #EndEditable -->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
</script>
<link rel="stylesheet" href="../css/link.css" type="text/css">
</head>
