Получить выбранное значение dropdownlist заполненного с ajax

[Создатель]

Наверное уже почти все здесь читали эту статью по применению ajax'а в asp .net( http://www.aspnetmania.com/Articles/Article/77.html )

В статье показан пример заполнения выпадающего списка используя ajax. Пользователь выбирает производителя машины, а список автоматически заполняется моделями.
Вот и у меня руки дошли. Напиcал пример по образу и подобию.Все работает. Вот только как получить уже на сервере выбранное пользователем значение из этого динамически заполненного списка ?

Что нибудь типа [дин.список].Text естественно ничего не дает(
Заранее благодарен.

[gaidar]

Почему не дает? Браузер должен отправлять на сервер пару параметр=значение, где значение - выбранный текст в выпадающем списке.
Кстати, лучше использовать Ajax Control Toolkit (на http://ajax.asp.net поищи).

[Создатель]

Кхм...тогда возможно я что-то не так делаю...Вот несколько укороченный код, который приводится в самой статье:

Код: Выделить всё

    Public Function GetCallbackResult() As String Implements System.Web.UI.ICallbackEventHandler.GetCallbackResult
       
        BindModels(evArg)
        evArg = String.Empty

        Dim i As Integer

        For i = 0 To ddlModel.Items.Count - 1
            evArg &= ddlModel.Items(i).Value & ";"
        Next

        Return evArg
    End Function


Код: Выделить всё

    Public Sub RaiseCallbackEvent(ByVal eventArgument As String) Implements System.Web.UI.ICallbackEventHandler.RaiseCallbackEvent
        evArg = eventArgument

    End Sub


Код: Выделить всё

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


        Dim argClientFunction As String = _
        "document.all['" + ddlManufacturers.ClientID + "'].options(document.all['" + ddlManufacturers.ClientID + "'].selectedIndex).value"

        Dim cScript As String = ClientScript.GetCallbackEventReference(Me, argClientFunction, "CallbackFunction", "'CallbackContext'", "null", False)

        ddlManufacturers.Attributes.Add("onchange", cScript & ";return false;")

        If Not IsPostBack Then
            BindManufacturers()
        End If


        Dim scr As String = "<script language=javascript>"
        scr += "function CallbackFunction(callbackResult, callbackContext)"
        scr += "{"
        scr += "    var ddlModel = document.all['" + ddlModel.ClientID + "'];"
        scr += "    var l = ddlModel.options.length;"
        scr += "    for(var i=0; i<l; i++)"
        scr += "        ddlModel.options.remove(0);"
        scr += "    var models = callbackResult.split(';');"
        scr += "    for(var i=0; i<models.length; i++)"
        scr += "    {"
        scr += "        var oOption = document.createElement(""OPTION"");"
        scr += "        oOption.text = models[i];"
        scr += "        oOption.value = models[i];"
        scr += "        ddlModel.options.add(oOption);"
        scr += "    }"
        scr += "    return false;"
        scr += "}"
        scr += "</script>"
        RegisterStartupScript("scr" + Me.ClientID, scr)

    End Sub


Код: Выделить всё

    Private Sub BindManufacturers()
        ddlManufacturers.Items.Add(New ListItem("Mercedes"))
        ddlManufacturers.Items.Add(New ListItem("BMW"))
    End Sub


Код: Выделить всё

    Private Sub BindModels(ByVal manufacturer As String)
        Select Case manufacturer

            Case "Mercedes"
                ddlModel.Items.Clear()
                ddlModel.Items.Add(New ListItem("S350"))
                ddlModel.Items.Add(New ListItem("S500"))
                ddlModel.Items.Add(New ListItem("S600"))
                ddlModel.Items.Add(New ListItem("CLK"))

            Case "BMW"
                ddlModel.Items.Clear()
                ddlModel.Items.Add(New ListItem("model 3"))
                ddlModel.Items.Add(New ListItem("model 5"))
                ddlModel.Items.Add(New ListItem("model 7"))
                ddlModel.Items.Add(New ListItem("X3"))
                ddlModel.Items.Add(New ListItem("X5"))

        End Select

    End Sub


Далее на форму добавляю кнопку.

Код: Выделить всё

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Response.Write(ddlModel.Text)
    End Sub


В итоге, при нажатии, ничего не меняется ((

[Алексей Немиро]

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Response.Write(ddlModel.SelectedValue)
End Sub