首页 > 解决方案 > 如何将一些值 throw ajax 传递给 VB.NET?

问题描述

实际上,在我的网站中,我有一个表单,在用户提交后,我使用 iframe 将值传递给 VB.NET 代码隐藏并抛出 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

标签: jqueryajaxvb.net

解决方案


推荐阅读