1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="GEST_CLIENT_LOGIN.aspx.vb" Inherits="gest_client_GEST_CLIENT_LOGIN" %>
<%@ Register Src="../mep/header.ascx" TagName="header" TagPrefix="uc1" %>
<%@ Register Src="../mep/menu.ascx" TagName="menu" TagPrefix="uc2" %>
<%@ Register Src="../mep/footer.ascx" TagName="footer" TagPrefix="uc3" %>
<%@ import Namespace = "System.data" %>
<%@ import Namespace = "System.data.Oledb" %>
<script runat="server">
Function Authentifier(strUtilisateur as string, strMotDePasse as string)
dim bOk as boolean =false
'Création d'une connexion SGBD
dim strConnection as string = "Provider=Microsoft.Jet.OLEDB.4.0;"&"DataSource="&Request.MapPath("/SiteDupont2")&"\App_Data\BDGest_Client.mdb"
'Définition de la requête à exécuter
Dim strSQL as string ="SELECT * FROM TVendeur WHERE nom='" + strUtilisateur+ "'"
'Dim strResultsHolder As string =""
Dim ObjConnection As New System.Data.OleDb.OleDbConnection(strConnection)
Dim objCommand As New System.Data.OleDb.OleDbCommand(strSQL,ObjConnection)
Dim ObjDataReader As System.Data.OleDb.OleDbDataReader
try
'Ouverture de la connexion et exécution de la requête
ObjConnection.Open()
objDataReader = objCommand.ExecuteReader()
'Parcours de la liste des utilisateurs
do while objDataReader.Read()=true
'On regarde si le mot de pase est bon
if (objDataReader("MotPasse") = strMotDePasse) then
bOk = true
end if
loop
objDataReader.Close()
ObjConnection.Close()
catch ex as Exception
bOk = false
lblConnexion.Text = "Impossible de se connecter à la base de donnée !"
end try
return bOk
end function
sub BtConnexion_Click(sender as object, e as EventArgs)
response.Write("test")
response.Write(txtBoxIdentifiant.Text)
response.Write("test1")
response.End()
if (Authentifier(txtBoxIdentifiant.Text,txtBoxPassword.Text)) then
FormsAuthentication.RedirectFromLoginPage(txtBoxIdentifiant.Text,false )
lblConnexion.Text = "Vous êtes connecté !"
else
'lblConnexion.Text = "Erreur de login et/ou de mot de passe !"
end if
end sub
</script>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Bienvenue Chez Dupont Shoes Box</title>
<link href="../mep/style.css" rel="stylesheet" type="text/css" />
</head>
<body>
<center>
<form runat="server">
<table id="tabletemplatehaut" class="MaTableTemplate">
<tr>
<td>
<uc1:header ID="Header1" runat="server" />
</td>
</tr>
</table>
<table id="tabletemplatemilieu" class="MaTableTemplate">
<tr>
<td valign="top" bgcolor="#E0320F">
<uc2:menu ID="Menu1" runat="server" />
</td>
<td class="MaTablePrincipale">
<table width="300">
<tr>
<td class="MaTableFormulaireGauche"><font class="MonTxt">Identifiant :</font>
</td>
<td class="MaTableFormulaireDroite">
<asp:TextBox ID="txtBoxIdentifiant" runat="server"></asp:TextBox></td>
</tr>
<tr>
<td class="MaTableFormulaireGauche"><font class="MonTxt">Password :</font>
</td>
<td class="MaTableFormulaireDroite">
<asp:TextBox ID="txtBoxPassword" runat="server"></asp:TextBox></td>
</tr>
<tr>
<td class="MaTableFormulaireGauche">
<asp:Button ID="btnConnexion" runat="server" Text="Connexion" OnClick="BtConnexion_Click" /></td>
<td class="MaTableFormulaireDroite">
<asp:Button ID="btnAnnuler" runat="server" Text="Annuler" /></td>
</tr>
</table>
<br />
<asp:Label ID="lblConnexion" runat="server" CssClass="MonTxt"></asp:Label>
</td>
</tr>
</table>
<table id="tabletemplatebas" class="MaTableTemplate">
<tr>
<td>
<uc3:footer ID="Footer1" runat="server" />
</td>
</tr>
</table>
</form>
</center>
</body>
</html> |
récupérer le text d'un champ de formulaire
Répondre avec citation
Partager