If disposing Then If Not
If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub
#End Region
<WebMethod()> Public Function MyDate(ByVal ShowTime As Boolean ) As String Dim MD As DateTime If ShowTime Then MyDate = MD.Now Else MyDate = MD.Today End If End Function
End Class
Из всего этого кода лишь малая часть написана разработчиком. Это функция MyDate, расположенная в конце листинга.
После компиляции к созданному Web сервису можно обратиться даже из браузера. На рис. приведен внешний вид Web-страницы, которая генерируется Web-сервером при попытке обращения к Web сервису.
На этой Web-странице расположена ссылка на формальное описание структуры Web-сервиса, а также перечислены все функции, поддерживаемые Web-сервисом. В нашем случае, естественно, указана лишь одна функция MyDate. Наименование функции также является гиперссылкой, нажав на которую можно перейти к Web-странице, позволяющей воспользоваться этой функцией. После щелчка мышью на ссылке в браузере будет отображена Web-страница следующего вида
На этой странице расположено поле ввода, в котором пользователь может указать значение параметра, передаваемого функции.
В результате работы функции сервиса получим:
<?xml version="1.0" encoding="utf-8" ?> <string xmlns="http://tempuri.org/">11.08.2006 23:03:54</string>
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий