récupérer le text d'un champ de formulaire
BOnjour,
je fais une fonction de connexion et j'ai essayer d'écrire ce que je tape dans le champ dès le début le fonction. Mais il ne m'écrit rien du tout,c'est vraiment bizarre.
Voici mon code :
Code:
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> |