<?xml version="1.0" encoding="iso-8859-1"?> <%@ Page Language="VB" Debug="true" AutoEventWireup="false" %> <%@ Import Namespace="System.Data.SqlClient" %> <script runat="server"> Private Sub Page_Load() If (IsNumeric(Session("id_user"))) Or (IsNumeric(Session("id_agent"))) Then Dim cn As New SqlConnection() cn.ConnectionString = ConfigurationSettings.AppSettings("base") cn.Open() Dim CommandText As String CommandText = "SELECT user, user.adresse_mail, password, contact, num_tel1, num_tel2, num_tel3, num_fax, administrateur_client, devis, facture , contact.adresse_mail FROM wts_user, contact WHERE id_user='" & Request("utilisateur") & "' AND contact.adresse_mail = user.adresse_mail" Dim cmd As New SqlCommand(CommandText, cn) Dim utilisateur As String = Request("utilisateur") Session("ModifUser") = "0" If (Request("utilisateur") <> "") Then Session("ModifUser") = Request("utilisateur") myReader = cmd.ExecuteReader() If (Not (myReader.HasRows)) Then 'on vide les zones de saisie tb_user.Text = "" tb_MDP.Text = "" tb_nom.Text = "" tb_tel1.Text = "" tb_tel2.Text = "" tb_tel3.Text = "" tb_fax.Text = "" ChkAdmin_O.Checked = False ChkAdmin_N.Checked = True ChkDev_O.Checked = False ChkDev_N.Checked = True ChkFact_O.Checked = False ChkFact_N.Checked = True Else ' Récupération des données de l'agent pour mis à jour myReader.Read() tb_user.Text = myReader.GetString(1) tb_MDP.Text = myReader.GetString(2) tb_nom.Text = myReader.GetString(3) tb_tel1.Text = myReader.GetString(4) If(myReader.IsDBNull(5))then tb_tel2.Text = "" Else tb_tel2.Text = myReader.GetString(5) end if If(myReader.IsDBNull(6))then tb_tel3.Text = "" Else tb_tel3.Text = myReader.GetString(6) end if If(myReader.IsDBNull(7))then tb_fax.Text = "" Else tb_fax.Text = myReader.GetString(7) end if If (myReader.GetBoolean(8) = 1) Then ChkAdmin_O.Checked = True ChkAdmin_N.Checked = False Else ChkAdmin_O.Checked = False ChkAdmin_N.Checked = True End If If (myReader.GetBoolean(9) = 1) Then ChkDev_O.Checked = True ChkDev_N.Checked = False Else ChkDev_O.Checked = False ChkDev_N.Checked = True End If If (myReader.GetBoolean(10) = 1) Then ChkFact_O.Checked = True ChkFact_N.Checked = False Else ChkFact_O.Checked = False ChkFact_N.Checked = True End If End If If Not cn Is Nothing AndAlso cn.State = Data.ConnectionState.Open Then cn.Close() cn = Nothing End If Else Response.Redirect("login.aspx") End If End If End Sub Protected Sub ajout_user(ByVal sender As Object, ByVal e As System.EventArgs) Dim UpdateText, UpdateText1, InsText, InsText1 As String Dim j, BitAdmin, BitFacture, BitDevis As Integer If (ChkAdmin_N.Checked = True) Then BitAdmin = 0 Else BitAdmin = 1 End If If (ChkFact_N.Checked = True) Then BitFacture = 0 Else BitFacture = 1 End If If (ChkDev_N.Checked = True) Then BitDevis = 0 Else BitDevis = 1 End If ' Connection à la base de données Dim cn As New SqlConnection() dim CommandText2 As string cn.ConnectionString = ConfigurationSettings.AppSettings("WTS_ExtraSQL") cn.Open() If (Session("ModifUser") <> "0") Then Dim sEmail As string 'Session("utilisateur") = utilisateur CommandText2 "SELECT adresse_mail FROM wts_user WHERE id_user " & Session("ModifUser") Response.Write(CommandText2) Dim cmd2 As New SqlCommand(CommandText2, cn) Dim myReader2 As SqlDataReader myReader2 = cmd2.ExecuteReader() sEmail = myReader2.GetString(0) UpdateText = "UPDATE contact SET contact='" & tb_nom.Text & "', num_tel1='" & tb_tel1.Text & "', num_tel2='" & tb_tel2.Text & "', num_tel3='" & tb_tel3.Text & "',num_fax='" & tb_fax.Text & "',adresse_mail='" & tb_user.Text & "' WHERE wts_contact.adresse_mail = '" & sEmail & "'" UpdateText1 = "UPDATE user SET password='" & toMD5(tb_MDP.Text) & "', adresse_mail='" & tb_user.Text & "', administrateur_client='" & BitAdmin & "',devis='" & BitDevis & "',facture='" & BitFacture & "' WHERE id_user='" & Session("ModifUser") & "'" Response.Write(UpdateText1+" ") Dim Upd1 As New SqlCommand(UpdateText, cn) Try j = Upd1.ExecuteNonQuery() Catch ex As Exception End Try Upd1 = Nothing Dim Upd As New SqlCommand(UpdateText1, cn) Try j = Upd.ExecuteNonQuery() Catch ex As Exception End Try Upd = Nothing Else 'Ecriture dans la table InsText1 = "INSERT INTO user (id_societe, adresse_mail, password, administrateur_client, devis, facture ) VALUES ('" & Session("id_societe") & "','" & tb_user.Text & "','" & toMD5(tb_MDP.Text) & "','" & BitAdmin & "', '" & BitDevis & "' ,'" & BitFacture & "' )" InsText = "INSERT INTO wts_contact (adresse_mail, contact, num_tel1, num_tel2, num_tel3, num_fax ) VALUES ('" & tb_user.Text & "', '" & tb_nom.Text & "','" & tb_tel1.Text & "','" & tb_tel2.Text & "','" & tb_tel3.Text & "','" & tb_fax.Text & "')" Dim InsSQL2 As New SqlCommand(InsText, cn) Dim x As Integer Try x = InsSQL2.ExecuteNonQuery() Response.Write(" enregistré avec succes" + " ") Catch ex As Exception Response.Write(ex) End Try InsSQL2 = Nothing Dim InsSQL As New SqlCommand(InsText1, cn) Try x = InsSQL.ExecuteNonQuery() Response.Write(" enregistré avec succes" + " ") Catch ex As Exception Response.Write(ex) End Try InsSQL = Nothing End If If Not cn Is Nothing AndAlso cn.State = ConnectionState.Open Then cn.Close() cn = Nothing End If 'Response.Redirect("modification_user.aspx") End Sub Protected Sub ChkFact_O_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ChkFact_O.CheckedChanged If (ChkFact_O.Checked = True) Then ChkFact_N.Checked = False Else ChkFact_N.Checked = True ChkFact_O.Checked = False End If End Sub Protected Sub ChkFact_N_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ChkFact_N.CheckedChanged If (ChkDev_N.Checked = True) Then ChkFact_O.Checked = False Else ChkFact_N.Checked = False ChkDev_O.Checked = True End If End Sub Protected Sub ChkDev_O_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ChkDev_O.CheckedChanged If (ChkDev_O.Checked = True) Then ChkDev_N.Checked = False Else ChkDev_N.Checked = True ChkDev_O.Checked = False End If End Sub Protected Sub ChkDev_N_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ChkDev_N.CheckedChanged If (ChkDev_N.Checked = True) Then ChkDev_O.Checked = False Else ChkDev_N.Checked = True ChkDev_N.Checked = False End If End Sub Protected Sub ChkAdmin_O_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ChkAdmin_O.CheckedChanged If (ChkAdmin_O.Checked = True) Then ChkAdmin_N.Checked = False Else ChkAdmin_N.Checked = True ChkAdmin_O.Checked = False End If End Sub Protected Sub ChkAdmin_N_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ChkAdmin_N.CheckedChanged If (ChkAdmin_N.Checked = True) Then ChkAdmin_O.Checked = False Else ChkAdmin_O.Checked = True ChkAdmin_N.Checked = False End If End Sub Protected Sub btnretour_Click(ByVal sender As Object, ByVal e As System.EventArgs) Response.Redirect("modification_user.aspx") End Sub Public Function toMD5(ByVal strText As String) As String Dim buffer As Byte() = System.Text.Encoding.Default.GetBytes(strText) Try Dim check As System.Security.Cryptography.MD5CryptoServiceProvider check = New System.Security.Cryptography.MD5CryptoServiceProvider Dim somme As Byte() = check.ComputeHash(buffer) Dim ret As String = "" For Each a As Byte In somme If (a < 16) Then ret += "0" + a.ToString("X") Else ret += a.ToString("X") End If Next Return ret Catch exc As Exception Throw exc End Try End Function Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionProtected Sub Radio_O_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Radio_O.CheckedChanged If (Radio_O.Checked = True) Then Radio_N.Checked = False Else Radio_N.Checked = False Radio_O.Checked = True End If End Sub Protected Sub Radio_N_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Radio_N.CheckedChanged If (Radio_N.Checked = True) Then Radio_O.Checked = False Else Radio_O.Checked = True Radio_O.Checked = False End If End SubPour trouver sans chercher,il faut avoir longtemps cherché sans trouver.