Как передать некоторые значения throw ajax в VB.NET? - PullRequest
1 голос
/ 05 апреля 2019

На самом деле на моем веб-сайте у меня есть форма, и после того, как пользователь отправил ее, я использую iframe, где я передаю значения в VB.NET codebehind throw QueryString, так как я прочитал, что это «старый» метод для передачи значений в код позадипоэтому вопрос в том, как я могу передать значения из формы throw AJAX в VB?

Данные, которые пользователь будет вставлять, это имя, фамилия, мобильный телефон и другие личные данные, затем эти данные будут загружены в MySQL.

Вот метод onClick кнопки:

$("#addPrenotazione").click(function () {
    var orainizio =  $("#orainizio").val();
    var orafine =  $("#orafine").val()

    var timestart = orainizio.split(":");
    var inizio = timestart[0] * 4;
    var fullinizio = timestart[0] + ":" + timestart[1];

    var timeend = orafine.split(":");
    var fine = timeend[0] * 4;
    var fullfine = timeend[0] + ":" + timestart[1];

    var data = $("#data").val();
    var telefono = $("#telefono").val();
    var email = $("#email").val()

    var tavolo = $('#tavolo').val();
    var nome = $('#nome').val();
    var coperti = $('#coperti').val();
    var note = $('#descr').val();


    document.getElementById('post').src = "prenotazioni.aspx?NOME=" + nome + "&DATA=" + data + "&INIZIO=" + fullinizio + "&FINE=" + fullfine + "&TAVOLO=" + tavolo + "&COPERTI=" + coperti + "&NOTE=" + note + "&TELEFONO=" + telefono + "&EMAIL=" + email;

});

А вот код, где я использую QueryString

  Sub WriteDB(ByVal nomeQS As String, ByVal dataQS As String, ByVal inizioQS As String, ByVal fineQS As String, ByVal tavoloQS As String, ByVal copertiQS As String, ByVal noteQS As String, ByVal telefonoQS As String, ByVal emailQS As String)
        Dim NOME As String = nomeQS
        Dim DATA As String = dataQS
        Dim INIZIO As String = dataQS + " " + inizioQS
        Dim FINE As String = dataQS + " " + fineQS
        Dim TAVOLO As String = tavoloQS
        Dim COPERTI As String = copertiQS
        Dim NOTE As String = noteQS
        Dim TELEFONO As String = telefonoQS
        Dim EMAIL As String = emailQS

        Dim SQL As String = "INSERT INTO prenota_tavoli (DATAIN_PTV, ORAIN_PTV, ORAOUT_PTV, NUMTAV_PTV, NUMCOP_PTV, EMACLI_PTV, TELCLI_PTV, NOTE_PTV, DESCLI_PTV) VALUES (@data, @orain, @oraout, @numtav, @numcop, @email, @tel, @note, @nome)"
        Using cmd As New MySqlCommand()

            With cmd
                .CommandText = SQL
                .Connection = con
                .CommandType = CommandType.Text
                .Parameters.AddWithValue("@data", DATA)
                .Parameters.AddWithValue("@orain", INIZIO)
                .Parameters.AddWithValue("@oraout", FINE)
                .Parameters.AddWithValue("@numtav", TAVOLO)
                .Parameters.AddWithValue("@numcop", COPERTI)
                .Parameters.AddWithValue("@email", EMAIL)
                .Parameters.AddWithValue("@tel", TELEFONO)
                .Parameters.AddWithValue("@note", NOTE)
                .Parameters.AddWithValue("@nome", NOME)


            End With

            Try
                con.Open()
                cmd.ExecuteNonQuery()
            Catch ex As MySqlException
                MsgBox(ex.Message)
            Finally
                con.Close()
            End Try
        End Using

    End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...