Authentification

Signaler
-
Bonjour à vous tous , je vous présente mon code source d'authentification pour se connecter avec un login et pass;

Imports System.Xml

Partial Class Default2
Inherits System.Web.UI.Page

Private Function LogIn(ByVal UserName As String, ByVal Pass As String) As Boolean

'XML = BASE DE DONNEES
Dim Access1 As Boolean = False

Dim Access2 As Boolean = False

Dim DocXML As New XmlDocument

DocXML.Load(Me.MapPath("Utilisateurs.xml")) 'Acce au fichier xml

Dim Noeud As XmlNodeList = DocXML.GetElementsByTagName("Utilisateur") ''accer au eles User

For Each ele As XmlNode In Noeud 'accer au les 2 eles de Utilisateur

Dim NoeudFils As XmlNodeList = ele.ChildNodes 'NoeudFil=Identifiant ou Passe

For Each elef As XmlNode In NoeudFils

If (elef.Name = "Identifiant") Then 'nom de ele

If (elef.InnerText = UserName) Then 'contenu

Access1 = True

End If

End If

If (elef.Name = "Passe") Then

If (elef.InnerText = Pass) Then

Access2 = True

End If

End If



Next



Next

Return Access1 And Access2

End Function
Protected Sub Login1_Authenticate(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.AuthenticateEventArgs) Handles Login1.Authenticate


Dim Acc As Boolean = LogIn(Me.Login1.UserName, Me.Login1.Password)

If (Acc) Then

e.Authenticated = True

Else

e.Authenticated = False

End If

End Sub




End Class


et maintenant le code ASP







Page sans titre


Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
Login1.DestinationPageUrl = "Index.aspx"
String.Format("INDEX.aspx?{0}", Request.QueryString.ToString())
End Sub














[INDEX.aspx Accueil]
[TAUX.aspx Gestion Des Taux]
[SITES.aspx Gestion Des Sites]
[USERS.aspx Gestion Des Users]
[PLAN.aspx Plan de L'application]


















enfin ça me donne cette erreur
Votre tentative de connexion a échoué. Réessayez.
Je travaille avec une base XML ou j'ai creer les users et pass !