Рис. 9.6. Поток процесса на стороне сервера
Функция FillTerritory () принимает два параметра, в данном случае передаваемые от обработчика событий onchange из первого списка. Эти параметры — ссылки на первый и второй элементы select О. Мы обращаемся к значению, которое пользователь выбрал в первом списке ®, и устанавливаем URL целевого серверного сценария ©. Далее мы создаем параметры, которые будут отправлены серверу: формируем строку с таким же синтаксисом, как и строка запроса, используя амперсанд для разделения пар "имя-значение". В данном примере мы отправляем значение, представляющее выбранную область, как q, имя формы —- как f, а имя второго элемента select — как е. Серверная часть кода использует значение выбранной области для запроса базы данных и отправит имена формы и элемента select клиенту в ответном документе XML. С помощью этой информации клиент определит, какую форму и элемент управления обновить. Создав строку параметров, остается только инициировать процесс Ajax.
Чтобы начать процесс О, мы вызываем конструктор ContentLoaderO и передаем целевой URL, функцию, вызываемую при получении отклика сервера, функцию обработки ошибок, используемый метод HTTP и отправляемые параметры. В данном случае при возврате данных с сервера будет вызываться функция FiliDropDown (), в качестве функции обработки ошибок устанавливается функция, по умолчанию принятая ContentLoader, кроме того, мы используем запрос POST.
В это время ContentLoader ожидает возврата от сервера документа XMI* Мы продолжим разбор клиентской части кода в разделе 9.4, а пока изучим, что должен сейчас сделать сервер.
9.3. Реализация сервера: VB.NET
В коде серверной части приложения необходимо реализовать извлечение территорий, принадлежащих к выбранной клиентом области, из базы данных и возврат их клиенту в документе XML. Согласно набору элементов, полученных из запроса SQL, создается документ XML, который и возвращается клиенту. Поток процесса на стороне сервера показан на рис. 9.6.
Код на стороне сервера активизируется запросом объекта ContentLoader со стороны клиента. Вначале код сервера извлекает значение параметра запроса q, представляющего выбранную область. Согласно значению q создается динамический запрос SQL, который, обращаясь к базе данных, находит
Глава 9 Динамические связанные комбинации |
357 |
пары "текст-значение" для второго раскрывающегося списка. Затем данные, полученные из базы данных в ответ на запрос, форматируются в формате XML и возвращаются клиенту. Прежде чем написать код, выполняющий описанные действия, нам необходимо определить основную структуру документа XML.
9.3.1- Определение формата XML-omeema
Нам требуется создать простой документ XML, возвращающий клиенту результаты нашего запроса к базе данных. Этот документ будет содержать опции, которыми будет заполняться второй список. Для представления каждой опции требуются два элемента: один, содержащий текст опции, второй — ее значение.
Документ XML в нашем примере содержит корневой элемент selectchoice, вмещающий единственный элемент selectElement, за которым следует один или несколько элементов entry. Элемент selectElement содержит имена формы HTML из раскрывающегося списка, который будет заполнен результатами, полученными из базы данных. Каждый элемент entry содержит два дочерних элемента, optionText и optionValue, которые вмещают значения, представляющие описание и идентификатор каждой территории. Описанная структура показана в листинге 9.3.
Листинг 9.3. Пример формата XML-ответа
<?xml version="l.0" ?> <selectChoice>
<selectElement>
<formName>Forml</formName>
<formElem>ddlTerritory</formElem>
</selectElement>
<entry>
<optionText>Select A |
Territory</optionText> |
||
<optionValue>-l</optionValue> |
|||
</entry> |
|
|
|
<entry> |
|
|
|
<optionText>TerritoryDescription</optionText> |
|||
<optionValue>TerritoryID</optionValue> |
|||
</entry> |
|
|
|
< / s e l e c t C h o i c e > |
|
|
м |
Изучая пример документа XML в листинге 9.3, обратите внимание на наличие позиции, содержащей текст опции ''Select A Territory" ("Выберите территорию"). Это первая опция, отображаемая в списке, она предлагает пользователю выбрать значение. Код сервера включает это значение в начало каждого ответного документа до получения динамических опций из базы данных.
Теперь, определив ответный документ, можно писать код, динамически создающий XML-документ и возвращающий его клиенту.
•358 Часть IV. Ajax в примерах
9.3.2. Написание кода сервера
Код VB.NET серверной части приложения достаточно прямолинеен. Мы запрашиваем базу данных, которая возвращает набор записей. После этого мы циклически проходим по набору записей и создаем XML-документ, который затем возвращаем клиенту. Если мы не найдем ни одной записи, тогда элементы entry не создаются и статическая опция "Select A Territory" опускается. Как показано в листинге 9.4, серверная часть кода не очень сложна. Она просто содержит операторы, извлекающие значения формы, отправленные на сервер, устанавливает тип содержимого, выполняет поиск и выдает документ XML.
В приведенном примере использована база данных Northwind из SQL Server (Microsoft).
Листинг 9.4. DoubleConiboXML.aspx. vb: создание XML-ответа на сервере^
//Реализация метода Page_Load Private Sub Page_Load( _
ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles MyBase.Load
//О Установить тип содержимого
Response.ContentType = "text/xml" |
|
|
// © Извлечь отправленные данные |
|
|
Dim strQuery As String |
|
|
strQuery • Request.Form("q") |
|
|
Dim strForm As String |
|
|
strForm *= Request.Form("f") |
\ |
_ / |
Dim strElem As String |
|
|
strElem = Request.Form("e") |
|
|
// © Создать утверждение SQL |
|
|
Dim strSql As String = "SELECT " & |
|
|
"TerritoryDescription, |
" |
& _ |
"TerritorylD" & _ |
|
|
"FROM Territories" & __
"WHERE regionid = " & _ strQuery & " ORDER BY " & _ "TerritoryDescription"
Dim dtOptions As DataTable
//О Выполнить утверждение SQL dtOptions = FillDataTable(strSql)
//© Начать документ XML
Dim strXML As StringBuilder
strXML = New StringBuilder("<?xml " & _ "version=""l,0"" ?>")
strXML.Append{"<selectChoice>")
strXML.Append("<selectElement>") strXML.Append("<formName>" & _
strForm & _ "</formName>")
strXML.Append("<formElem>" & _ strElem & "</formElem>")
strXML.Append("</selectElement>")
Глава 9. Динамическиесвязанныекомбинации |
359 |
// О Проверить наличие результатов If dtOptions.Rows.Count > 0 Then
// в Добавить первый элемент выбора strXML.Append("<entry>") strXML.Append{"<optionText>" & _
"Select A Territory" & _ "</optionText>")
strXML.Append("<optionValue>-l" & _ "</optionValue>")
strXML.Append("</entry>")
// © Циклически пройти по набору результатов и добавить элементы XML
Dim row As DataRow |
|
|
For Each row In dtOptions.Rows |
|
|
strXML.Append("<entry>") |
|
|
strXML.Append("<optionText:>" & __ |
|
|
row("TerritoryDescription") |
& _ |
|
"</optionText>") |
|
|
strXML.Append("<optionValue>" & _ |
|
|
row("TerritoryID") |
& _ |
|
"</optionValue>") |
|
|
strXML. Append. ("</entry>") |
|
|
Next |
|
|
End If |
|
|
// © Вернуть документ XML |
|
|
strXML.Append("</selectChoice>") |
|
|
Response.Write(strXML.ToString) |
|
|
End Sub |
|
|
Public Function FillDataTable( _ |
|
|
ByVal sqlQuery As String) ___ |
||
As DataTable |
|
|
Dim strConn As String = _ |
|
|
"Initial Catalog - Northwind; |
" fi _ |
|
"Data Source=127.0.0.1; " & _ |
|
|
"Integrated Security=true;" |
|
|
Dim cmdl As _ |
|
|
New SqlClient.SqlDataAdapter{sqlQuery, |
_ |
|
strConn) |
|
|
Dim dataSetl As New DataSet |
|
|
cmdl . Fill(dataSetl) |
|
|
cmdl.Dispose() |
|
|
Return dataSetl.Tables(O) |
|
|
End F u n c t i o n |
|
_ _ • |
Установив тип содержимого страницы О равным text/xml, мы гарантируем, что XMLHttpRequest правильно разберет отклик сервера на стороне клиента.
Из параметров запроса ©, полученных от клиента, мы получаем значение выбранной области, имя формы HTML и имя элемента. Чтобы лишний раз перестраховаться, мы можем добавить в этом месте проверку, гарантирующую, что данные значения не пустые. Если в ходе проверки не будет найдено хотя бы одно требуемое значение, сценарий может возвращать сообщение об ошибке. Кроме того, прежде чем приложение войдет в производственную