Public Class Form1
	'Здесь будем описывать Элементы управления формой
End Class

На рисунке 1 показано, как размещены элементы управления на форме

Рисунок 1. Внешний вид формы

Начальные параметры файла Module1

Module Module1
	'Здесь будем описывать работу с базой данных
End Module

Далее Module1 Будет содержать следующие параметры

Imports System.Data
Imports System.Data.OleDb

Module Module1
    Dim DataBaseFileName As String = Application.StartupPath & "\DataBase.mdb" 'Указывает расположение Базы Данных, располагается в каталоге, из которого была запущена программма
    Dim Connector As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataBaseFileName) 'Подключение к Базе Данных
	Public Class DB
		'Данный класс будет содержать функции по работе с Базой данных
	End Class
	Public Class Table
		'Данный класс будет содержать функции по работе с Таблицами
	End Class
    Public Class Zap
		'Данный класс будет содержать функции по работе с Записями базы данных
	End Class
End Module

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

Для начала создадим баду данных. Добавим процедуру в Class DB.

      Shared Sub DBnew()
         Dim cat As New ADOX.Catalog
         Try
            'Создаем Базу
			cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataBaseFileName)
         Catch ex As Runtime.InteropServices.COMException
            MessageBox.Show(ex.Message) 'Если ошибки, то выводим сообщение
         Finally
            cat = Nothing
            'Проверяем файл на диске
            If IO.File.Exists(DataBaseFileName) = True Then
               MessageBox.Show("База Данных Создана")
            Else
               MessageBox.Show("Ошибка Создания Базы Данных")
            End If
         End Try
      End Sub

Во время работы с базой данных она может вырасти до неимоверных размеров, поэтому создадим еще одну процедуру, которая будет сжимать нашу базу данных. База будет сжата с именем DataBaseCompress.mdb.

      Shared Sub Compress()
         Dim jro As JRO.JetEngine
         'Проверяем существует ли база данных
         If IO.File.Exists(DataBaseFileName) = False Then
            MessageBox.Show("Файл " & DataBaseFileName & " не найден", "Ошибка", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
         End If
         Try 'Сжимаем
            jro = New JRO.JetEngine()
            jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataBaseFileName, _
            "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\DataBaseCompress.mdb" & ";Jet OLEDB:Engine Type=5")
            'Проверяем существует ли файл сжатой базы данных
            If IO.File.Exists(DataBaseFileName) = True Then
               MessageBox.Show("База данных успешно сжата и создан файл: " & Application.StartupPath & "\DataBaseCompress.mdb", "Отчет", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
         Catch ex As Exception
            MessageBox.Show(ex.Message) 'Если ошибки, то выводим сообщение
         End Try
      End Sub

В форму к кнопке «Создать базу данных» и «Сжать базу данных» добавим. При нажатии кнопки «Создать Базу», если файл базу уже существует на диске, будет выдано сообщение, говорящее, что файл уже существует.

   Private Sub ButtonDBNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonDBNew.Click
      DB.DBnew() 'Создание базы
   End Sub
   Private Sub ButtonDBCompress_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonDBCompress.Click
      DB.Compress() 'Сжатие базы
   End Sub

Переходим к описанию процедур в Public Class Table

Процедура добавления таблицы в Базу. После добавления таблицы в базу добавляем в ListBox имя добавленной нами таблицы

      Shared Sub Add(ByRef ListBox1 As ListBox, ByVal Name As String)
         Try
            Connector.Open()
            Dim Command As New OleDbCommand("Create Table [" & Name & "] ([Name] Text ,[Phone] Text)", Connector)
            Command.ExecuteNonQuery()
            Connector.Close()
         Catch ex As Exception
            MessageBox.Show(ex.Message)
         Finally
            ListBox1.Items.Add(Name) 'добавляем в ListBox имя добавленной нами таблицы
         End Try
      End Sub

Добавим процедуру загрузки таблиц базы данных в ListBox.

      Shared Sub Load(ByRef ListBox1 As ListBox)
         Try
            ListBox1.Items.Clear()
            Connector.Open()
            Dim TmpDbRows As DataRowCollection = Connector.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"}).Rows
            For i = 0 To TmpDbRows.Count - 1
               ListBox1.Items.Add(TmpDbRows(i).Item("TABLE_NAME").ToString)
            Next i
            Connector.Close()
         Catch ex As Exception
            MessageBox.Show(ex.Message)
         End Try
      End Sub

Добавляем в форму процедуры

   Private Sub ButtonDBLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonDBLoad.Click
      DB.Load(ListBox1) 'Загрузка таблиц базы данных в LIstBox1
   End Sub
   Private Sub ButtonTableAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonTableAdd.Click
      Table.Add(ListBox1, InputBox("Введите имя таблицы", "Добавление таблицы")) 'Добавляем в Базу новую таблицу с именем, введенным в диалоговом окне InputBox
   End Sub

Базу данных мы уже создали, научились добавлять таблицы и просматривать какие таблицы находятся в нашей базе данных.

Теперь напишем процедуру, которая будет переименовывать выбранную в ListBox1 таблицу и добавим в Class Table

	  Shared Sub ReName(ByRef ListBox1 As ListBox, ByVal NewName As String)
         Dim OldName As String = ListBox1.Items(ListBox1.SelectedIndex)
         Dim objADOXDatabase
         Try
            objADOXDatabase = CreateObject("ADOX.Catalog")
            objADOXDatabase.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataBaseFileName
            objADOXDatabase.Tables(OldName).Name = NewName
            objADOXDatabase = Nothing
         Catch ex As Exception
            MessageBox.Show(ex.Message)
         Finally
            ListBox1.Items(ListBox1.SelectedIndex) = NewName
            MessageBox.Show("Таблица переименована")
         End Try
      End Sub

Теперь напишем процедуру, которая будет удалять выбранную в ListBox1 таблицу и добавим в Class Table

      Shared Sub Delete(ByRef ListBox1 As ListBox)
         Dim Name As String = ListBox1.SelectedItem
         Try
            Connector.Open()
            Dim Command As New OleDbCommand("DROP TABLE [" & Name & "]", Connector)
            Command.ExecuteNonQuery()
            Connector.Close()
         Catch ex As Exception
            MessageBox.Show(ex.Message)
         Finally
            ListBox1.Items.Remove(ListBox1.SelectedItem)
            MessageBox.Show("Удалена таблица:" & Name)
         End Try
      End Sub

В форме привяжем к кнопкам соответствующий код:

   Private Sub ButtonTableDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonTableDel.Click
      Table.Delete(ListBox1)' Удаляем Таблицу
   End Sub
   Private Sub ButtonTableReName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonTableReName.Click
      Table.ReName(ListBox1, InputBox("Введите новое имя таблицы", "Изменение имени таблицы", ListBox1.SelectedItem)) 'Переименовываем таблицу
   End Sub

Теперь добавим в «Public Class Zap» процедуры, которые будут отвечать за добавление, изменение и удаление записей из таблицы

Добавление записи в таблицу. В первое текстовое поле вводим фамилию, во второе — телефон.

      Shared Sub Add(ByVal Table As String, ByRef ListView1 As ListView, ByVal Name As String, ByVal Phone As String)
         Try
            Dim Command As New OleDbCommand("Insert Into [" & Table & "] ([Name], [Phone]) values ('" & Name & "', '" & Phone & "')", Connector)
            Connector.Open()
            Command.ExecuteNonQuery()
            Connector.Close()
         Catch ex As Exception
            MessageBox.Show(ex.Message)
         End Try
         ListView1.Items.Add(Name)
         ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(Phone)
      End Sub

Изменение выделенной записи в ListView

      Shared Sub Edit(ByVal Table As String, ByRef ListView1 As ListView, ByVal Name As String, ByVal Phone As String)
         Try
            Dim Command As New OleDbCommand("UPDATE [" & Table & "] SET [Name]='" & Name & "', [Phone]='" & Phone & "' WHERE ([Name] Like '" & ListView1.SelectedItems.Item(0).Text & "')", Connector)
            Connector.Open()
            Command.ExecuteNonQuery()
            Connector.Close()
         Catch ex As Exception
            MessageBox.Show(ex.Message)
         End Try
         ListView1.SelectedItems.Item(0).Text = Name
         ListView1.SelectedItems.Item(0).SubItems.Item(1).Text = Phone
      End Sub

Процедура удаление выделенной записи.

      Shared Sub Delete(ByVal Table As String, ByRef ListView1 As ListView)
         Try
            Dim Command As New OleDbCommand("DELETE FROM [" & Table & "] WHERE [Name]='" & ListView1.SelectedItems.Item(0).Text & "'", Connector)
            Connector.Open()
            Command.ExecuteNonQuery()
            Connector.Close()
         Catch ex As Exception
            MessageBox.Show(ex.Message)
         End Try
         ListView1.SelectedItems.Item(0).Remove()
      End Sub

В форме кнопкам Добавить, изменить и удалить присвоим соответствующие процедуры

   Private Sub ButtonZapAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonZapAdd.Click
      Zap.Add(ListBox1.SelectedItem, ListView1, TextBox1.Text, TextBox2.Text)
   End Sub
   Private Sub ButtonZapEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonZapEdit.Click
      Zap.Edit(ListBox1.SelectedItem, ListView1, TextBox1.Text, TextBox2.Text)
   End Sub
   Private Sub ButtonZapDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonZapDel.Click
      Zap.Delete(ListBox1.SelectedItem, ListView1)
   End Sub

Добавим еще процедуру обработки двойного клика мышью в ListView, для вывода выделенной записи в текстовые поля для редактирования.

   Private Sub ListView1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
      Try
         TextBox1.Text = ListView1.SelectedItems.Item(0).Text
         TextBox2.Text = ListView1.SelectedItems.Item(0).SubItems.Item(1).Text
      Catch ex As Exception
         MessageBox.Show(ex.Message)
      End Try
   End Sub

В данном примере много недоработок в том числе и нет обработчика ошибок:
например, не проверяются данные при создании, переименовывании таблиц, если вы не введете название таблицы, то будет выведена ошибка и другое…

Скачать пример использования Базы Данных Ms Access в Visual Basic 2010

Для решения этой задачи запустим VB2010, выберем шаблон Windows Forms Application. В конструкторе формы добавим кнопку и элемент управления DataGridView. Мы намереваемся на сетку данных DataGridView вывести данные с курсами валют. Элемент управления DataGridView в Windows-приложении играет ту же роль, что и GridView в Web-приложении. Методы этих классов похожи, хотя есть и отличия.

Следующим этапом разработки клиентского приложения является добавление ссылки на удаленный класс искомой Web-службы. Для этого выберем в пункте меню Project команду Add Service Reference, это приведет к появлению диалогового окна Add Service Reference. В этом окне щелкнем кнопку Advanced, а затем кнопку Add Web Reference. В появившемся диалоговом окне Add Web Reference в поле URL введем адрес Web-службы: http://www.nbrb.by/Services/ExRates.asmx и нажмем кнопку Go. В окне ниже увидим список доступных методов данного сервиса, после этого щелкнем на кнопке Add Reference. При этом в окне Solution Explorer появится ссылка на удаленный класс: by.nbrb.www. Теперь мы можем использовать эту ссылку в программном коде (листинг 101).

Листинг 101. Получение данных от Web-службы Национального банка Республики Беларусь Windows-приложением

‘ Клиентское Windows-приложение, потребляющее Web-сервис центрального

‘ банка Белоруссии для получения ежедневных курсов валют. На выходе

‘ приложения получаем таблицу курсов валют.

PartialPublic Class_Default

   Inherits System.Web.UI.Page

   Protected Sub Button1_Click(ByVal senderAs Object,ByVal e AsEventArgs) Handles Button1.Click

       ‘ Создаем клиентское приложение Web-сервиса: http://www.nbrb.by/Services/ExRates.asmx

       ‘ Создаем экземпляр удаленного класса:

        DimВалютаAsNew by.nbrb.www.ExRates

       ‘ А этот сайт я нашел на сайте:

       ‘ http://ivbeg.bestpersons.ru/feed/post3279396/

       ‘ Здесь есть ссылки на другие русско-язычные сервисы

        DimДатаAsDate = Now

        GridView1.DataSource = Валюта.ExRatesDaily(Дата)

        GridView1.DataBind()

   End Sub

EndClass

В программном коде выполняем обычные уже в данной главе действия. При обработке события "щелчок на кнопке" Button1 создаем экземпляр удаленного класса, а затем обращаемся к методу класса ExRates, подавая на вход метода текущую дату. Этот метод возвращает таблицу курсов валют в формате DataSet. Эту таблицу, называемую DailyExRatesOnDate, указываем в качестве источника данных DataSource ДЛЯ сетки данных DataGridView1, которую мы используем для визуализации таблицы курсов валют.

Скачать исходник к Примеру 101. Получение данных от Web-службы Национального банка Республики Беларусь Windows-приложением

Центральный банк Российской Федерации (ЦБРФ) предоставляет Web-службу для получения ежедневных экономических данных (курсы валют, учетные цены драгоценных металлов и пр.). Сервис данной Web-службы можно получать по адресу: http://www.cbr.ru/scripts/Root.asp?Prtid=DWS. Поставим задачу создания клиентского Web-приложения для получения ежедневных курсов валют. Такой сервис предлагается на сайте Центрального банка Российской Федерации по адресу: http://www.cbr.ru /DailylnfoWebServ/Dailylnfo.asmx.

Мы воспользуемся функцией (методом) GetSeldCursOnDate данной Web-службы, на вход которой подают дату, а на выходе функции получают ежедневные курсы валют в виде DataSet (табличные данные).

Для решения этой задачи запустим VB2010, выберем шаблон Empty ASP.NET Web Application. К текущему проекту добавим Web-форму. Для этого в пункте менюProject выберем команду Add New Item и в появившемся окне дважды щелкнем шаблон Web Form. В конструкторе формы перетащим в форму кнопку и элемент сетки данных GridView, поскольку намереваемся с его помощью отображать табличные данные типа DataSet. Далее в пункте меню Project выберем команду Add Web Reference и в появившемся окне в поле URL введем адрес Web-сервиса: http://www.cbr.ru/DailyInfoWebServ/DailyInfo.asmx

При этом станет доступной кнопка Add Reference. Щелкнем на этой кнопке, после этого в окне Solution Explorer появится новая папка Web References со ссылкой на удаленный класс ru.cbr.www. Теперь в нашем программном коде мы сможем воспользоваться этим удаленным классом (листинг 100).

Листинг 100. Получение данных от Web-службы Центрального банка РФ Web-приложением

‘ Клиентское Web-приложение, потребляющее Web-сервис центрального

‘ банка России для получения ежедневных курсов валют. На выходе

‘ приложения получаем таблицу курсов валют.

PublicClass WebForm1

   Inherits System.Web.UI.Page

   Private Sub Button1_Click(ByVal senderAs Object,ByVal e As System.EventArgs) Handles Button1.Click

       ‘ Создаем клиентское приложение Web-сервиса: http://www.cbr.ru/DailyInfoWebServ/DailyInfo.asmx

       ‘ Создаем экземпляр удаленного класса:

        DimВалютаAsNew ru.cbr.www.DailyInfo

       Dim Дата As Date = Now

       ‘ Получение ежедневных курсов валют:

        GridView1.DataSource = Валюта.GetSeldCursOnDate(Дата)

        GridView1.DataBind()

   End Sub

EndClass

Как и при создании предыдущих клиентов Web-служб, при обработке события "щелчок на кнопке" создаем экземпляр удаленного класса, в данном случае мы назвали его валюта. На вход его метода GetSeldCursOnDate подаем текущую дату. Этот метод возвращает данные типа DataSet, которые мы указываем в качестве источника данных DataSource для элемента управления "сетка данных" GridView1. В заключение отмечу, что подобную Web-службу имеют также банки других стран, например, Web-служба Национального банка Республики Беларусь расположена по адресу: http://www.nbrb.by/Services/ ExRates.asmx.

Скачать исходник к Примеру 100. Получение данных от Web-службы Центрального банка РФ Web-приложением

Эта Web-служба предназначена для автоматизированной обработки текстов на русском языке. В частности, метод GetAll5 Web-службы обеспечивает склонение слов и словосочетаний на русском языке. На вход функции (метода) GetAll5 данной Web-службы подаем слово в именительном падеже, функция возвращает массив строк, в которых записано это слово в различных пяти падежах: родительном, дательном, винительном, творительном и предложном.

Для испытания этой Web-службы запустим VB2010, выберем шаблон Empty ASP.NET Web Application. К текущему проекту добавим Web-форму. Для этого в пункте меню Project выберем команду Add New Item и в появившемся окне дважды щелкнем шаблон Web Form. В конструкторе формы из панели элементов Toolbox перенесем текстовое поле TextBox и кнопкуButton. Далее, чтобы добавить ссылку на удаленный класс, в пункте меню Project выберем команду Add Web Reference, в поле URL введем ссылку на Web-службу: http://www.morpher.ru/WebServices/Morpher.asmx.

При этом кнопка Add Reference станет доступной, а после щелчка на ней в окне Solution Explorer появится ссылка на удаленный класс: ru.morpher.www. Теперь мы можем использовать эту ссылку в нашем программном коде (листинг 99).

Листинг 99. Клиентское Web-приложение, потребляющее сервис

‘ Клиентское Web-приложение, потребляющее Web-сервис склонения

‘ существительных "Морфер". На вход сервиса подаем слово на русском

‘ языке, на выходе получаем это слово в различных пяти падежах

PublicClass WebForm1

   Inherits System.Web.UI.Page

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

        Button1.Text = "Просклонять"

        TextBox1.TextMode = TextBoxMode.MultiLine

   End Sub

   Private Sub Button1_Click(ByVal senderAs Object,ByVal e As System.EventArgs) Handles Button1.Click

       ‘ Создаем клиентское приложение Web-сервиса: http://www.morpher.ru/WebServices/Morpher.asmx

       ‘ Создаем экземпляр удаленного класса:

        DimСклонениеAsNew ru.morpher.www.Morpher

       Dim Падежи() As String = Склонение.GetAll5("Зиборов Виктор Владимирович")

        Падежи(4) ="О " + Падежи(4)

       ‘ Перевод каретки vbCrLf в конце каждого склонения:

        ForEach C AsString In Падежи

            TextBox1.Text = TextBox1.Text & C & vbCrLf

       Next

   End Sub

EndClass

Как видно из текста программы, при обработке события "щелчок на кнопке" Просклонять создаем экземпляр удаленного класса склонение и далее используем метод GetAll5 класса для получения возможных склонений. Метод GetAll5 возвращает массив строк с пятью возможными склонениями. Цикл For Each обеспечивает символ конца строки vbCrLf в конце каждой строки текстового поля.

Скачать исходник к Примеру 99. Клиентское Web-приложение, потребляющее сервис Web-службы "Морфер"

Далее необходимо в проекте создать Web-ссылку на удаленный класс Web-службы. Для этого выберем в пункте меню Project команду Add Service Reference, это приведет к появлению диалогового окна Add Service Reference. В этом окне щелкнем кнопку Advanced, а затем в следующем окне кнопку Add Web Reference.

Теперь в поле URL пишем виртуальный адрес ASMX-файла используемой Web-службы. Этот адрес мы можем получить, запустив нашу Web-службу из прошлого раздела, а затем скопировав в буфер обмена его URL-адрес. На вкладке программного кода набираем простейшую программу (листинг 98).

Листинг 98. Клиентское приложение, потребляющее сервис Web-службы "Торговая рекомендация на рынке Forex"

‘ Клиентское Windows-приложение, потребляющее Web-сервис

‘ примера 98 WebS_Forex.

PublicClass Form1

   Private Sub Form1_Load(ByVal senderAs System.Object,ByVal e As System.EventArgs) Handles MyBase.Load

       ‘ Создаем клиентское приложение Web-сервиса: http://localhost:1042/Service1.asmx

       ‘ Создаем экземпляр удаленного класса:

        Dim Forex As New localhost.Service1

       Me.Text = "Рынок Forex"

        Label1.Text = Forex.Sovet()

    EndSub

EndClass

Как видно из программного кода, при обработке события загрузки формы создаем экземпляр удаленного класса Web-службы, затем обращаемся к его методу Sovet Скопируем получаемую строку в метку Label1.

Скачать исходник к Примеру 98. Клиентское приложение, потребляющее сервис Web-службы "Торговая рекомендация на рынке Forex"

Для решения этой задачи запускаем VB2010, выбираем шаблон ASP.NET Web Service Application, выбираем папку и имя, например, WebS_Forex. Содержимое файла программной поддержки приведено в листинге 97.

Листинг 97. Web-служба "Торговая рекомендации на рынке Forex"

‘ Web-сервис, который с помощью синтаксического разбора Web-страницы:

‘ http://www.forex-rdc.ru/subscribers.php?action=prognoz

‘ извлекает торговую рекомендацию на рынке Forex для валютной пары

‘ EURUSD, предлагаемую данным сайтом на текущий день, и выводит ее

‘ потребителю сервиса в виде строки.

Imports System.Web.Services

Imports System.Web.Services.Protocols

Imports System.ComponentModel

‘ To allow this Web Service to be called from script,

‘ using ASP.NET AJAX, uncomment the following line.

‘ <System.Web.Script.Services.ScriptService()> _

<System.Web.Services.WebService(Namespace:="http://tempuri.org/")> _

<System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.

                                                 BasicProfile1_1)> _

<ToolboxItem(False)> _

PublicClass Service1

   Inherits System.Web.Services.WebService

    <WebMethod()> _

   Public Function Sovet() As String

       ‘ Создаем объект для чтения Web-страницы:

       Dim КЛИЕНТAsNew System.Net.WebClient

       ‘ Чтобы русские буквы читались нормально,

       ‘ объявляем объект Кодировка:

       Dim Кодировка As System.Text.Encoding = System.Text.Encoding.GetEncoding(1251)

        DimПОТОКAs IO.Stream

       Dim СТРОКАAsString

       Try‘ Попытка открытия Web-ресурса:

            ПОТОК = КЛИЕНТ.OpenRead("http://www.forex-rdc.ru/subscribers.php?action=prognoz")

        Catch ex As Exception

           СТРОКА = String.Format(

                "Ошибка открытия www.forex-rdc.ru{0}{1}",ControlChars.NewLine, ex)

           Return СТРОКА

       End Try

        ‘Чтение HTML-разметки Web-страницы:

       Dim Читатель As New IO.StreamReader(ПОТОК, Кодировка)

       ‘ Копируем HTML-разметку в строковую переменную:

        СТРОКА = Читатель.ReadToEnd

       ‘ Ищем в разметке страницы фрагмент с указанной строкой:

       Dim i AsInteger = СТРОКА.IndexOf("Торговая стратегия:")

       ‘ Ищем стратегию только для EURUSD:

        СТРОКА = СТРОКА.Substring(i, 120)

       ‘ Удаляем HTML-разметку:

        i = СТРОКА.IndexOf("</p>")

       СТРОКА = СТРОКА.Remove(i)

       СТРОКА = СТРОКА.Replace("</b>","")

       ‘ Вставляем текущую дату:

        СТРОКА = СТРОКА.Replace("стратегия:",

                       "стратегия для EURUSD на " + Format(Now,

                       "d MMMM, yyyy") + ":" + ControlChars.NewLine)

       ПОТОК.Close()

       Return СТРОКА

   End Function

EndClass

Как видно из программного кода, данная Web-служба содержит в себе один метод Sovet(), который не имеет входных параметров. В начале метода создаем экземпляр класса WebClient для чтения и последующего синтаксического разбора Web-страницы. Вообще говоря, Web-страница может быть записана на машинном носителе в какой-либо кодировке. Чаще всего это Unicode (UTF-8), русскоязычные сайты часто имеют кодировку Windows 1251. Чтобы выяснить, в какой кодировке записана Web-страница, следует в браузере в контекстном меню навести указатель мыши на пункт меню Кодировка. При чтении Web-страницы создаем объект поток, используя URL-адрес страницы, и объект кодировка для корректного отображения кириллицы. После копирования HTML-разметки страницы в строковую переменную ищем в разметке страницы раздел с торговой стратегией для EURUSD с помощью строковых операций.

Теперь запустим созданную Web-службу, нажав клавишу <F5>. Если формальных ошибок нет, мы получим отображение ASMX-файла в браузере (рис. 12.9).

Щелкнув в этом окне на изображении единственного метода данной Web-службы Sovet, мы попадаем на другую страницу, где получаем возможность его тестировать. Для этого щелкнем на кнопке Invoke. В итоге тестирования получим в браузере результат работы данного метода Web-службы в формате XML-сообщения (рис. 12.10).

Чтобы сделать Windows-приложение потребителем сервиса Web-службы, необходимо в его проекте создать Web-ссылку на удаленный класс. Для этого выберем в пункте меню Project команду Add Service Reference, это приведет к появлению диалогового окна Add Service Reference. В этом окне щелкнем кнопку Advanced, а затем в следующем окне кнопку Add Web Reference.

Поскольку мы отлаживаем и Web-службу, и его клиентское приложение на одном локальном компьютере, в поле URL пишем виртуальный адрес ASMX-файла. Этот адрес мы можем получить, запустив нашу Web-службу из предыдущего раздела, а затем скопировав в буфер обмена его URL-адрес. Для локального компьютера, на котором автор отлаживал данный пример, URL-адрес был таким: http://localhost:1611/Service1.asmx.

Затем щелкаем на кнопке Go и тем самым получаем доступ к кнопке Add Reference, после щелчка на которой в окне Solution Explorer добавится значок ссылки на класс localhost, обеспечивающий доступ к Web-службе (рис. 96).

Листинг 96. Windows-приложение, потребляющее сервис Web-службы

‘ Клиентское Windows-приложение, потребляющее Web-сервис

‘ примера 87 Web_S_my.

PublicClass Form1

   Private Sub Form1_Load(ByVal senderAs System.Object,ByVal e As System.EventArgs) Handles MyBase.Load

        Button1.Text = "Пуск"

   End Sub

   Private Sub Button1_Click(ByVal senderAs System.Object,ByVal e As System.EventArgs) Handles Button1.Click

       ‘ Чтобы добавить Web-сервис к обычному Windows Appplication: Project —

        ‘ — Add Service Reference — Advanced — Add Web Reference — в

       ‘ поле URL пишем: http://localhost:1611/Service1.asmx

       ‘ Создаем экземпляр удаленного объекта:

        DimУдаленныйAsNew localhost.Service1

       Dim Sum AsString = Удаленный.Сумма("23.5","11,4")

        MsgBox(Sum)

   End Sub

EndClass

Как видно из программного кода, при обработке события "щелчок мышью" на кнопкеПуск создаем экземпляр удаленного класса и обращаемся к его функции (методу) сумма. При этом при вводе чисел специально одно из них пишем через десятичную точку, а другое — через запятую для тестирования возможности ввода чисел обоими способами.

Результат работы программы представлен на рис. 96.2.

Для решения этой задачи запускаем VB2010, выбираем шаблон ASP.NET Web Service Application, выбираем папку и имя. Сразу после этого попадаем на вкладку готовой Web-службы HelloWorld, и уже ее можно тестировать. Однако HelloWorld — это другая задача, разработчики Visual Studio 2010 включили ее для облегчения освоения данной технологии. Нас интересует наша задача, поэтому изменим файл программной поддержки, как показано в листинге 95.

Листинг 95. Простейшая Web-служба

Imports System.Web.Services

Imports System.Web.Services.Protocols

Imports System.ComponentModel

‘ To allow this Web Service to be called from script,

‘ using ASP.NET AJAX, uncomment the following line.

‘ <System.Web.Script.Services.ScriptService()> _

<System.Web.Services.WebService(Namespace:="http://tempuri.org/")> _

<System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.

                                                 BasicProfile1_1)> _

<ToolboxItem(False)> _

PublicClass Service1

   Inherits System.Web.Services.WebService

    <WebMethod()> _

   Public FunctionСумма(ByValЧисло1As String,ByVal Число2As String)As String

       ‘ Входные параметры объявляем типа String, чтобы принимать

       ‘ от пользователя любые символы, их анализировать, и при

       ‘ "плохом вводе" сообщать по-русски.

       ‘ Пользователь может использовать при вводе данных как

       ‘ десятичную точку, так и запятую. Если введет точку, то

       ‘ заменим на запятую:

        Число1 = Число1.Replace(".",",")

        Число2 = Число2.Replace(".",",")

        Dim X, Y, Z As Decimal

       If IsNumeric(Число1) = True Then X =CType(Число1,

                Decimal)Else Return"В первом поле должно быть число"

        If IsNumeric(Число2) = True Then Y =CType(Число2,

                Decimal)Else Return"Во втором поле должно быть число"

        Z = X + Y

       Return "Сумма = " & Z.ToString

    EndFunction

EndClass

Как видно из текста программы, мы не программировали никакой пользовательский интерфейс. У нас здесь нет ни формы, ни кнопок, ни текстовых полей. Уже отсюда понятно, что Web-служба — это удаленный класс, к которому можно подключиться через Интернет из своего, например, Windows-или Web-приложения. На вход функции Сумма пользователь Web-службы подает два числа, которые принимаются функцией как две строки. Если при этом пользователь использовал десятичную точку, то функция Replace меняет эту точку на запятую. Функция IsNumeric проверяет, числовые ли символы содержатся во введенных строках, и если это так, то с помощью функции CType происходит преобразование строковых переменных в переменные типа Decimal.

Теперь можем протестировать данную Web-службу, для этого нажмем клавишу <F5>. При этом Web-браузер откроет ASMX-файл. Здесь мы увидим единственный метод этой Web-службы — Сумма. Щелчок указателем мыши на этой гиперссылке обеспечит возможность тестирования нашей Web-службы.

Мы можем вводить в данные поля нечисловые символы, числа с десятичной точкой или запятой и тем самым тестировать поведение нашей программы. Заметьте, что мы не программировали эти поля, система сама предоставила нам такую возможность для тестирования программируемой нами Web-службы.

Скачать исходник к Примеру 95. Создание простейшей Web-службы

О Web-службах

Web-служба (от англ. Web service) — это программная система (более конкретно— откомпилированная библиотека динамической компоновки, т.е. файл формата DLL в папке bin приложения), расположенная на удаленном сервере (компьютере), к которой можно обращаться (потреблять сервис Web-службы) из своего клиентского компьютера. При этом возможности удаленной Web-службы будут реализованы в вашем Windows- или Web-приложении, а пользователь при достаточной скорости трафика может даже не заметить обращения вашей программы к удаленному серверу. На удаленном компьютере могут находиться и программный код, и данные. Для передачи по Интернету вызовов методов Web-служб и результатов их выполнения используется протокол SOAP (Simple Object Access Protocol). Протокол SOAP применяет формат сообщений, основанный на XML. Web-служба и протокол SOAP не зависят от конкретной платформы. Поэтому различные разработчики могут использовать Web-службы друг друга, не беспокоясь о совместимости операционных систем, технологий или языков программирования. Другое название Web-службы — Web-сервис.

Web-службы решают очень разные задачи. Это прогноз погоды, гороскоп, переводчик слов на различные иностранные языки, курсы валют, котировки ценных бумаг, проверка на корректность введенного пользователем почтового адреса, реестр улиц города, статистика правонарушений, информация о наличии свободных мест на авиарейс или в кинотеатр и т. д. Причем любой из подобных сервисов вы можете легко встроить в свое Windows- или Web-приложение путем создания клиентского приложения, потребляющего такой уже существующий сервис Web-службы.

Для поиска Web-служб в Интернете существует несколько сайтов, в которых Web-службы регистрируются их провайдерами для того, чтобы их могли найти заинтересованные в них разработчики. Таким сайтом является, например: http://uddi.xml.org/uddi-org. Регистрация в каталоге UDDI бесплатна. Здесь сегодня можно найти несколько десятков более или менее полезных Web-служб. В Сети можно найти и другие списки общедоступных Web-служб различных производителей, например: http://www.xmethods.org/ve2/index.po. Список русскоязычных Web-служб можно найти по адресу: http://ivbeg.bestpersons.ru/feed/post3279396/.

Упрощенно говоря, Web-служба в среде .NET состоит из двух компонентов: ASMX-файла и файла программной поддержки ASMX.vb. ASMX-файл содержит в себе информацию о методах Web-службы, о способах их тестирования, это можно посмотреть в любом Web-браузере. Файл программной поддержки написан на языке Visual Basic, может быть скомпилирован для получения библиотеки DLL, именно он обеспечивает реализацию методов Web-службы.

Здесь перечислены пять методов Web-службы по операциям с текущими курсами валют. В создаваемом разработчиком клиентском приложении необходимо сделать ссылку на данный Web-cepвep и таким образом включить в текущий проект удаленный класс. А затем в своем программном коде объявить создание нового экземпляра этого класса, и теперь можно уже обращаться ко всем методам класса.

Пример 94. Клиентское приложение, потребляющее сервис Web-службы "Прогноз погоды"

В данном разделе создадим клиентское Web-приложение, потребляющее сервис Web-службы сайта http://www.webservicex.net/globalweather.asmx, и продемонстрируем тем самым, что это — просто! Данная Web-служба возвращает прогноз погоды в городе, который пользователь задает в запросе к службе. Эта Web-служба поддерживает два метода (функции): GetCitiesByCountry и GetWeather (рис. 94.1). На вход первой функции GetcitiesByCountry подают название страны, где хотят получить прогноз погоды, а на выходе функции получают перечисление городов этой страны, для которых Web-служба готова сделать прогноз погоды.

На вход второй функции GetWeather подают названия города и страны, а на выходе функции получают XML-строку, содержащую прогнозируемые параметры погоды.

Напишем Web-приложение (также легко можно написать и Windows-приложение), обращающееся к функции GetWeather данной удаленной Web-службы. Причем программный код должен быть минимальным и демонстрировать лишь принцип подключения и доступ к нужному элементу (например, температуре) XML-документа.

Для этой цели после запуска VB2010 выберем шаблон Empty ASP.NET Web Application, укажем имя Name — Погода-Web. К текущему проекту добавимWeb-форму. Для этого в пункте меню Project выберем команду Add New Item и в появившемся окне дважды щелкнем на шаблоне Web Form. Далее, попав в конструктор Web-формы, из панели элементов Toolbox перетащим кнопку Button, текстовое поле TextBox для вывода строки с данными XML и метку Label для вывода на нее значения температуры.

Теперь наступает ключевой момент, а именно— подключение ссылки на удаленную Web-службу, содержащую класс с необходимыми методами. Для этого в пункте меню Project выберем команду Add Web Reference (эту команду можно также выбрать в контекстном меню окна Solution Explorer). В результате получим интерфейс, показанный на рис. 94.2, здесь в поле URL введем адрес Web-службы и щелкнем на кнопке Go.

Листинг 94. Web-приложение, обращающееся к сервису удаленной Web-службы прогноза погоды

‘ Web-приложение, потребляющее удаленный Web-сервис прогноза погоды.

‘ Приложение демонстрирует XML-строку с параметрами погоды для го-

‘ рода, указанного во входных параметрах при обращении к Web-сервису

PublicClass WebForm1

   Inherits System.Web.UI.Page

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

       ‘ Это Web-приложение

        Button1.Text = "Выяснить погоду" : Label1.Text = Nothing

        TextBox1.TextMode = TextBoxMode.MultiLine

   End Sub

   Private Sub Button1_Click(ByVal senderAs Object,ByVal e As System.EventArgs) Handles Button1.Click

       ‘ Создаем клиентское приложение Web-сервиса:

       ‘        http://www.webservicex.net/globalweather.asmx

       ‘ Cоздание экземпляра прокси-класса:

        DimПОГОДАAsNew net.webservicex.www.GlobalWeather

        ‘ Функция GetWeather запрашивает строковые параметры с назва-

       ‘ нием города и страны и возвращает строку с XML-документом:

        DimСтрока_XMLAs String =ПОГОДА.GetWeather("Moscow","Russia")

       ‘ Dim Строка_XML As String = ПОГОДА.GetWeather("Kyiv", "Ukraine")

        TextBox1.Text = Строка_XML

       Dim Документ = New System.Xml.XmlDocument

       ‘ Загрузка строки XML в XML-документ:

        Документ.LoadXml(Строка_XML)

       Dim Узел As System.Xml.XmlNode

        DimЭлементAs System.Xml.XmlElement

       Узел = Документ.ChildNodes.Item(1)

       Элемент = Узел("Temperature")

       Label1.Text ="Температура воздуха в Москве: " & Элемент.InnerText

        ‘ это Web Application — клиент Web-сервиса

   End Sub

EndClass

Как видно, в программном коде при обработке события "щелчок на кнопке" Выяснить погоду создается экземпляр класса удаленной Web-службы. Далее происходит непосредственное обращение к методу класса GetWeather с входными параметрами город и страна, метод GetWeather возвращает строку с XML-документом. Данную строку выводим в текстовое поле TextBox1. Для ее "расшифровки" загружаем эту строку в XML-документ. Значение температуры находим в содержимом элемента "Temperature", затем выводим значение температуры на метку Label1.

Фрагмент работы программы показан на рис. 94.4.

Таким образом, продемонстрировано создание клиентского Web-приложения, потребляющего сервис Web-службы. Замечу, что аналогичным образом можно создавать и Windows-приложения (настольные приложения), которые также, будучи клиентами какой-либо Web-службы, могут получать, например, справочную информацию в онлайновом режиме.

Убедиться в работоспособности программы можно, открыв соответствующий файл решения в папке Погода-Web.

Решение этой проблемы состоит в использовании технологии AJAX, которая обеспечивает возможность выполнения частичного визуального обновления страницы посредством поддерживаемой ASP.NET AJAX операции обратной отправки. Продемонстрируем возможность технологии AJAX на примере, когда мы имеем метку Label в Web-форме. На эту метку каждую секунду копируем новое время, но обновляем при этом не всю форму, а только метку с помощью технологии AJAX.
 
Решая эту задачу, запустим VB2010 и закажем новый проект из шаблона Empty ASP.NET Web Application, укажем имя Name — AJAX_Timer. К текущему проекту добавим Web-форму. Для этого в пункте меню Project выберем команду Add New Item и в появившемся окне дважды щелкнем по шаблону Web Form.

Далее, попав на вкладку конструктора Web-формы, перетащим в форму из разделаAJAX Extensions панели ToolBox элементы управления ScriptManalger, UpdatePanel. Затем на элемент UpdatePanel поместим Timer и метку Label. Теперь на вкладке файла программной поддержки WebForml.aspx.vb напишем программный код, приведенный в листинге 93.

Листинг 93. Отображение времени в Web-форме

‘ Web-страница демонстрирует время на метке Label1. На эту метку

‘ каждую секунду копируем новое время, но обновляем при этом не всю

‘ форму, а только метку с помощью технологии AJAX.

PublicClass WebForm1

   Inherits System.Web.UI.Page

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

        Timer1.Interval = 1000 ‘ миллисекунд = 1 сек

        Label1.Text = "Текущее время: " +DateTime.Now.ToLongTimeString

   End Sub

   Private Sub Timer1_Tick(ByVal senderAs Object,ByVal e As System.EventArgs) Handles Timer1.Tick

        Label1.Text = "Текущее время: " +DateTime.Now.ToLongTimeString

    EndSub

EndClass

Как видно из программного кода, при загрузке страницы задаем интервал времени, равный одной секунде. При обработке события Tick — события, когда прошел заданный интервал времени, в метку Label1 копируется новое значение времени. При этом благодаря использованию технологии AJAX обновляется не вся Web-форма, а только те элементы, которые расположены на элементе UpdatePanel. Фрагмент работы программы показан на рис. 11.37.

В гостевой книге следует предусмотреть поля для ввода имени посетителя, адреса его электронной почты, а также поле для непосредственно сообщения. Все записи, оставленные посетителями сайта, будем сохранять в текстовом файле kniga.txt на винчестере сервера, предоставляющего Web-хостинг. Впрочем, вместо текстового файла можно воспользоваться какой-либо базой данных.

Для программирования гостевой книги запустим VB2010, в окне New Project выберем шаблон Empty ASP.NET Web Application, в поле Name укажем имя нового решения Гостевая_книга и щелкнем на кнопке OK. Теперь добавим к текущему проекту Web-форму. Для этого в пункте меню Project выберем команду Add New Item, в появившемся окне укажем шаблон Web Form и щелкнем на кнопке Add.

На вкладке конструктора формы в панели элементов нам понадобятся четыре метки Label, три текстовых поля TextBox, соответственно, для имени пользователя, его электронной почты и сообщения, одна командная кнопка Button с надписью "Добавить сообщение" и сетка данных GridView для отображения всех вводимых записей. Кроме того, возле каждого текстового поля разместим валидатор RequiredFieldValidator, проверяющий факт заполнения текстовых полей. Правильность заполнения проверять не будем, поскольку в данной ситуации если мы будем слишком "принципиальничать" по поводу вводимых данных, то посетитель потеряет терпение и уйдет на другой ресурс (не наш!). Не забываем, что мы гораздо больше заинтересованы во всех новых сообщениях, чем посетители их написать. С другой стороны (другая крайность), если мы вовсе не будем контролировать заполнения текстовых полей, то у недобросовестного пользователя появится соблазн нажимать кнопку Добавить сообщение без заполнения полей и заполнять таблицу сетки данных пустыми строками, что будет вовсе дискредитацией замысла гостевой книги. В конструкторе формы разместим выбранные элементы управления так, как показано на рис. 92.1.

После размещения в конструкторе необходимых элементов управления переходим на вкладку программного кода. Текст программы представлен в листинге 92.

Листинг 92 Гостевая книга

‘ Данная Web-страница приглашает посетителя оставить

‘ какие-либо записи, которые могут прочитать другие

‘ посетители страницы. Записи сохраняются в текстовом файле

‘ kniga.txt. Записи отображаются на Web-странице с

‘ помощью элемента сетка данных GridView.

PublicClass WebForm1

   Inherits System.Web.UI.Page

   Dim ТаблицаAsNew DataTable

   Dim ЧитательAs IO.StreamReader,Писатель As IO.StreamWriter

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

       Label1.Text ="ВЫ МОЖЕТЕ НАПИСАТЬ КАКОЕ-НИБУДЬ " &"СООБЩЕНИЕ В НАШЕЙ ГОСТЕВОЙ КНИГЕ"

        Label2.Text ="Ваше имя:"

        Label3.Text = "Ваш E-mail:"

       Label4.Text ="Ваше сообщение:"

        Button1.Text ="Добавить сообщение"

       ‘ Разрешаем многострочие:

        TextBox3.TextMode = TextBoxMode.MultiLine

       ‘ Контролируем обязательность заполнения всех полей:

        RequiredFieldValidator1.ErrorMessage = "* Следует заполнить это текстовое поле"

        RequiredFieldValidator1.ControlToValidate = "TextBox1"

        RequiredFieldValidator2.ErrorMessage = "* Следует заполнить это текстовое поле"

        RequiredFieldValidator2.ControlToValidate = "TextBox2"

        RequiredFieldValidator3.ErrorMessage = "* Следует заполнить это текстовое поле"

        RequiredFieldValidator3.ControlToValidate = "TextBox3"

       Таблица.Columns.Add("Дата") : Таблица.Columns.Add("Имя")

       Таблица.Columns.Add("E-mail")

       Таблица.Columns.Add("Сообщение")

        GridView1.BorderWidth = WebControls.Unit.Pixel(2)

       ЗаполнитьGridView()

   End Sub

   Public SubЗаполнитьGridView()

       ‘ Эта процедура читает файл kniga.txt (если его нет, то

       ‘ создает, разбивает каждую строку файла на четыре части

       ‘ (дата, имя, E-mail и сообщение) и заполняет этими

       ‘ частями строки Таблицы. Затем записывает эту Таблицу

       ‘ в сетку данных GridView.

       ‘ Открываем файл kniga.txt, а если его нет, то

       ‘ его создаем:

       Dim Открыватель As IO.FileStream = New IO.FileStream(Request.PhysicalApplicationPath & _

                        "kniga.txt", IO.FileMode.OpenOrCreate)

       ‘ Открываю поток для чтения всех записей из файла:

        Читатель =New IO.StreamReader(Открыватель)

       ‘ В качестве разделителя частей строки файла выбираю

       ‘ Tab, поскольку Tab невозможно ввести в текстовое

       ‘ поле. После нажатия клавиши <Tab> происходит переход

       ‘ в следующее текстовое поле.

        DimРазделительAsChar() = NewChar() {vbTab} ‘-массив

       ‘ Читаю из файла одну строку:

       Dim Одна_строка AsString = Читатель.ReadLine

       Dim Массив_частей_строкиAs String()

       ‘ Цикл по строчкам файла kniga.txt

       While Одна_строка <> ""

           ‘ Функция Split делит строку на четыре части и

            ‘ присваивает каждую часть элементам массива:

            Массив_частей_строки = Одна_строка.Split(Разделитель)

           ‘ Загружаю данные в таблицу, то есть заполняю

           ‘ одну строку таблицы:

            Таблица.LoadDataRow(Массив_частей_строки, True)

           ‘ Читаю из файла одну строку:

            Одна_строка = Читатель.ReadLine

       End While

        GridView1.DataSource = Таблица

       ‘ Обновление сетки данных:

        GridView1.DataBind()

        Таблица.Clear()

        Читатель.Close() : Открыватель.Close()

   End Sub

   Protected Sub Добавить(ByVal sender As Object, ByVal e As EventArgs)Handles Button1.Click

       ‘ Открываю поток для добавления данных в конец файла:

        Писатель =New IO.StreamWriter(Request.PhysicalApplicationPath & "kniga.txt", True)

       ‘ True означает разрешить добавление строк в файл.

       ‘ Записываю в файл новое сообщение:

        Писатель.WriteLine(DateTime.Now.Date.ToString(). _

              Substring(0, 10) & vbTab & TextBox1.Text & _

              vbTab & TextBox2.Text & vbTab & TextBox3.Text)

       ‘ Очищаю поля и закрываю поток:

        TextBox1.Text ="" : TextBox2.Text = ""

        TextBox3.Text =""

        Писатель.Close()

        ЗаполнитьGridView()

   End Sub

EndClass

Как видно из программного кода, вначале создаем таблицу данных класса DataTable и два потока данных для чтения и для записи файлов так, чтобы они были видны из всех процедур класса. При обработке события загрузки формы организуем контроль обязательности заполнения текстовых полей формы, задаем "шапку" таблицы (т. е. названия колонок таблицы), а последней командой вызываем процедуру ЗаполнительGridView.

Эта процедура в цикле While читает строки текстового файла kniga.txt и заполняет ими строки таблицы данных методом LoadDataRow(). Далее заполненную таблицу данных указываем в качестве источника данных (DataSource) для сетки данных GridView1, предназначенной для визуализации (отображения) таблицы в форме. После этого важно очистить таблицу данных методом Clear ().

При обработке события "щелчок на кнопке" открываем поток данных писатель для добавления данных в конец файла kniga.txt и записываем в этот файл текстовую строку, содержащую текущую дату, имя посетителя Web-страницы, его e-mail и непосредственно его сообщение. Причем в качестве разделителя между этими текстовыми строками мы используем управляющий символ Tab, поскольку его невозможно ввести в текстовое поле, т. к. после нажатия клавиши <Tab> предусмотрен переход в следующее текстовое поле. После закрытия потока данных писатель вызываем процедуру ЗаполнитьGridView, которая как бы начинает опять "с чистого листа": снова открывает поток для чтения файла и опять заполняет таблицу данных, которая, как мы помним, была очищена от предыдущих данных. Именно поэтому строки (команды) процедуры ЗаполнитьGridView были оформлены в отдельную процедуру, поскольку заполнение таблицы и ее визуализация происходят два раза: один раз при загрузке формы, а другой при добавлении новой записи.

Фрагмент работы гостевой книги представлен на рис. 92.2.

Задача, решаемая в данном разделе, состоит в следующем. Во время загрузки Web-страницы создать изображение, методами класса Graphics вывести на это изображение текстовую строку, представляющую текущую дату. С целью демонстрации возможностей методов Graphics развернуть данную строку на некоторый угол относительно горизонта. Далее сохранить рисунок в текущий каталог сервера и вывести его на Web-страницу.

Для решения этой задачи запустим VB2010, закажем новый проект шаблона Empty ASP.NET Web Application. Добавим Web-форму, для этого в пункте меню Project выберем команду Add New Item и в появившемся окне выберем шаблон Web Form и добавим его к нашему проекту. На вкладке дизайнера формы WebForm1.aspx добавим элемент управления Image. А на вкладкеWebForm1.aspx.vb введем программный код, представленный в листинге 91.

Листинг 91. Формирование изображения и вывод его на Web-форму

‘ Web-страница формирует файл изображения методами класса Graphics,

‘ на изображение выводится текстовая строка, наклоненная к горизонту

‘ на 356 градусав. Далее этот файл изображения отображается в форме.

Imports System.Drawing

PublicClass WebForm1

   Inherits System.Web.UI.Page

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

       ‘ Создаем точечное изображение размером 215 x 35 точек

        ‘ с глубиной цвета 24:

       Dim РАСТРAsBitmap = NewBitmap(width:=215, height:=35, Format:=Imaging.PixelFormat.Format24bppRgb)

       ‘ Создаем новый объект класса Graphics из изображения РАСТР:

        DimГРАФAsGraphics = Graphics.FromImage(РАСТР)

       ‘ Теперь становятся доступными методы класса Graphics !

       ‘ Заливка поверхности указанным цветом:

        ГРАФ.Clear(Color.AliceBlue)

       ‘ или ГРАФ.Clear(ColorTranslator.FromHtml("#ECECFF"))

       Dim ДатаAsString = "Сегодня " + Format(Now, "d MMMM, yyyy")

       ‘ Разворачиваем мир на 356 градусов по часовой стрелке:

        ГРАФ.RotateTransform(356.0F)

       ‘ Выводим на изображение текстовую строку Дата,

       ‘ x, y — координаты левого верхнего угла строки:

        ГРАФ.DrawString(Дата,New Font("Times New Roman", 14, FontStyle.Regular),Brushes.Red, x:=5, y:=15)

       ‘ Определяем физический путь файла для текущего веб-узла,

       ‘ сохраняем изображение в файле risunok.jpg каталога Web-узла:

        РАСТР.Save(Request.PhysicalApplicationPath + "risunok.jpg", Imaging.ImageFormat.Jpeg)

       ‘ Возможность вывода изображения в исходящий поток ответа НТТР:

        ‘ РАСТР.Save(Response.OutputStream, Imaging.ImageFormat.Jpeg)

       ‘ Цвет и ширина рамки рисунка:

        Image1.BorderColor = Color.Red

        Image1.BorderWidth = 2

       ‘ Указываем виртуальный путь к файлу изображения:

        Image1.ImageUrl = Request.ApplicationPath + "risunok.jpg"

       ‘ Освобождение ресурсов:

        РАСТР.Dispose()

        ГРАФ.Dispose()

   End Sub

EndClass

Как видно из программного кода, при загрузке страницы создаем точечное изображение указанного размера, формат Format24bppRgb указывает, что отводится 24 бита на точку: по 8 бит на красный, зеленый и синий каналы. Данное изображение позволяет создать новый объект класса Graphics методом FromImage. Теперь разворачиваем поверхность рисования на 356° методом RotateTransform и выводим на поверхность рисования текстовую строку с текущей датой. Задавая физический путь файла изображения, методом Save сохраняем его в каталоге Web-узла в формате JPEG. В комментарии приведена возможность вывода рисунка в исходящий поток ответа HTTP, при этом изображение не будет записываться на диск, но пользователь будет видеть его в браузере. Далее элементу управления Image1 указываем виртуальный путь к файлу изображения. Замечу, что физический путь не должен отправляться клиенту, поскольку он может использоваться злоумышленниками для получения сведений о приложении. На рис. 91 показан фрагмент работы программы.

Сначала решим эту задачу, используя исключительно HTML-разметку с небольшим включением программного кода на JavaScript. Очень удобно выполнить HTML-разметку в редакторе Visual Studio, поэтому запустим систему VB2010 и создадим новый проект из шаблона Empty ASP.NET Web Application, назовем его Web-изображение. К текущему проекту добавим HTML-страницу. Для этого в пункте меню Project выберем команду Add New Item и в появившемся окне дважды щелкнем по шаблону HTML Page. Далее на вкладке HTMLPage1.htm введем текст, представленный в листинге 90.1.

Листинг 90.1. Увеличение изображения в Web-форме (HTML-код)

<!DOCTYPEhtml PUBLIC"-//W3C//DTD XHTML 1.0 Transitional//EN"

    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<htmlxmlns="http://www.w3.org/1999/xhtml">

<head>

   <title>Щелкнуть мышью для увеличения</title>

</head>

<body>

   <imgsrc="poryv.png"width="100"height="100"

        alt="Двойной щелчок возвращает в исходный размер"

      onclick="this.src=’poryv.png’;this.height=200;this.width=200"

  ondblclick="this.src=’poryv.png’;this.height=100;this.width=100"/>

</body>

</html>

В приведенной разметке в качестве атрибутов тега <img>, размечающего изображение, записаны две обработки событий onclick (щелчок мышью на изображении) и ondblclick (двойной щелчок) на JavaScript. Теперь для просмотра этой страницы в браузере мы можем нажать клавишу <F5> или непосредственно открыть файлHTMLPage1.htm, например, в Internet Explorer. При этом мы увидим следующее (рис. 90.1).

Теперь решим эту же задачу программированием на VB2010. Для этого добавим в текущий проект новую Web-форму. В пункте меню Project выполним команду Add New Item и в появившемся окне выберем шаблон Web Form. На вкладке конструктора формы перетащим из панели Toolbox элемент управления изображения Image, а на вкладке программного кода WebForm1.aspx напишем текст, представленный в листинге 90.2.

‘ На странице имеем изображение — файл poryv.png, при щелчке мышью на

‘ нем изображение увеличивается вдвое без перезагрузки Web-страницы.

PublicClass WebForm1

   Inherits System.Web.UI.Page

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

       Page.Title ="Щелкнуть мышью для увеличения"

       ‘ Указываем виртуальный путь к файлу изображения:

        Image1.ImageUrl = Request.ApplicationPath + "poryv.png"

       ‘ Получаем URL, который используется в браузере:

        DimадресAsString = ResolveClientUrl(Image1.ImageUrl)

       ‘ Добавляем атрибут Alt:

        Image1.AlternateText = "Двойной щелчок возвращает в исходный размер"

       ‘ Добавляем два события Javascript:

        Image1.Attributes.Add("onclick","this.src=’" & адрес & "’;this.height=200;this.width=200")

        Image1.Attributes.Add("ondblclick","this.src=’" & адрес & "’;this.height=100;this.width=100")

    EndSub

EndClass

Как видно из программного кода, кроме двух очевидных свойств объекта Image1ImageUrl и AlternateText свойство Attributes добавляет объекту Image1 два события JavaScript. Нам пришлось включать таким образом события JavaScript, поскольку объект Image1 не имеет событий мыши.

Поставим другую, более интересную задачу. На Web-странице имеем изображение, например, мужчины. Это изображение используем для ссылки на другую Web-страницу, например, на WebForm1.aspx. Причем при наведении на него указателя мыши происходит смена изображения на изображение женщины.

Для решения этой задачи добавим в текущий проект еще одну HTML-страницу и на вкладке разметки HTMLPage2.htm напишем текст, приведенный в листинге 90.3.

Листинг 90.3. Смена изображения в Web-форме (HTML-код)

<!DOCTYPEhtml PUBLIC"-//W3C//DTD XHTML 1.0 Transitional//EN"

    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<htmlxmlns="http://www.w3.org/1999/xhtml">

<head>

   <title>Смена изображения при наведении</title>

</head>

<body>

<ahref="HTMLPage1.htm">

<imgonmouseover="this.src=’g.jpg’"onmouseout="this.src=’m.jpg’"

            alt="Щелкните, чтобы перейти на HTMLPage1.htm"

                                    src="m.jpg"border="0"/> </a>

</body>

</html>

Здесь тег <a> обеспечивает гиперссылку на другую Web-страницу — HTMLPage1.htm, причем в качестве гиперссылки используется изображение m.jpg (изображение мужчины). Это изображение меняется на изображение женщины (файл g.jpg) при наведении на него указателя мыши (JavaScript-событие OnMouseOver) и возвращается в исходное, когда указатель мыши покидает элемент (событие OnMouseOver).

Установим в качестве стартовой страницы проекта файл HTMLPage2.htm. Для этого в контекстном меню окна Solution Explorer для этого файла укажем Set As Start Page. Внешний вид данной Web-страницы в браузере показан на рис. 90.2.

Листинг 90.4. Смена изображения в Web-формы (VВ2010-код)

‘ На Web-странице имеем изображение, например, мужчины — файл

‘ m.jpg. Это изображение используем для ссылки на другую

‘ Web-страницу, например, на WebForm1.aspx. Причем при наведении

‘ на него указателя мыши происходит смена изображения на изображение

‘ женщины — файл g.jpg

PublicClass WebForm2

   Inherits System.Web.UI.Page

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

       ‘ Элемент управления ImageButton отображает изображение и

       ‘ отвечает за нажатия на нем указателя мыши:

        ImageButton1.PostBackUrl = "WebForm1.aspx"

       ‘ Указываем виртуальный путь к файлу изображения:

        ImageButton1.ImageUrl = Request.ApplicationPath + "m.jpg"

       ‘ Задаем альтернативный текст:

        ImageButton1.AlternateText = "Щелкните,чтобы перейти на WebForm1.aspx"

       ‘ Добавляем два события Javascript:

        ImageButton1.Attributes.Add("onmouseover","this.src=’g.jpg’")

        ImageButton1.Attributes.Add("onmouseout","this.src=’m.jpg’")

    EndSub

EndClass

Как видно из программного кода, мы использовали те же приемы, что и в предыдущей задаче.

Скачать исходник к Примеру 90. Вывод изображения в Web-форму

javascript:alert("Cookies: "+document.cookie)

В ответ ваш Web-браузер покажет вам примерно такое окно, как приведено на рис. 89.1.

В данном примере мы научимся читать cookie при загрузке страницы и записывать cookie-файл при нажатии пользователем командной кнопки. То есть постановка задачи следующая. Web-страница предлагает посетителю ввести данные о себе: его имя и род занятий. При нажатии кнопки Запись Cookie введенные в текстовые поля сведения будут записаны в cookie-файл. Этот cookie-файл будет храниться на компьютере пользователя сутки. В течение этих суток, каждый раз вызывая данную страницу, в текстовых полях мы будем видеть введенные нами сведения, которые мы можем тут же исправлять и опять записывать в cookie. Фрагмент функционирования подобной Web-страницы приведен на рис. 89.2.

Затем из панели Toolbox перенесем в проектируемую Web-форму две метки Label, два текстовых поля TextBox и командную кнопку Button. Содержимое файла программной поддержки WebForm1.aspx.vb приведено в листинге 89.

Листинг 89. Чтение/запись cookie-файлов

‘ Чтение-запись Cookie-файлов. Web-страница предлагает посетителю

‘ ввести данные о себе: его имя и род занятий. При нажатии на

‘ кнопку Запись Cookie введенные в текстовые поля сведения будут

‘ записаны в Cookie-файл. Этот Cookie-файл будет храниться на

‘ компьютере пользователя в течение суток. В течение этих суток,

‘ каждый раз вызывая данную страницу, в текстовых полях мы будем

‘ видеть введенные нами сведения, которые мы можем тут же

‘ исправлять и опять записывать в Cookie.

PublicClass WebForm1

   Inherits System.Web.UI.Page

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

       Page.Title ="Введите данные о себе"

       ‘ При повторной отправке выйти из процедуры:

        If Page.IsPostBack = True Then Exit Sub

       Label1.Text ="Имя посетителя"

        Label2.Text ="Род занятий"

        Button1.Text ="Запись Cookie"

       ‘ ЧТЕНИЕ КУКИ:

       ‘ Куки может быть целая коллекция:

        ‘ Dim CookieN As HttpCookieCollection

       Dim Cookie1 AsHttpCookie

       ‘ Читаю только один раздел Cookie "О посетителе страницы":

        Cookie1 = Request.Cookies("О посетителе страницы")

       ‘ Если на машине клиента нет такого Cookie:

        If Cookie1 Is NothingThen Exit Sub

       ‘ Если есть, то заполняю текстовые поля из Cookie:

        TextBox1.Text = Cookie1.Item("Имя посетителя")

       TextBox2.Text = Cookie1.Item("Род занятий посетителя")

    EndSub

   Private Sub Button1_Click(ByVal senderAs Object,ByVal e As System.EventArgs) Handles Button1.Click

       ‘ Запись Cookie:

       Dim Cookie1 AsHttpCookie

       Cookie1 =New HttpCookie("О посетителе страницы")

       ‘ Запись двух пар имя(ключ)-значение:

        Cookie1.Values("Имя посетителя") = TextBox1.Text

       Cookie1.Values("Род занятий посетителя") = TextBox2.Text

       ‘ Установка даты удаления Cookie: сейчас плюс один день:

        Cookie1.Expires = DateTime.Now.AddDays(1)

       ‘ Добавление раздела "О посетителе страницы" в Cookie-файл:

        Response.Cookies.Add(Cookie1)

   End Sub

EndClass

Здесь ВО время загрузки страницы Page_Load при isPostBack = False инициализируем надписи на метках Label, а затем читаем cookie-файл посредством объекта Request. В данном случае функция Request.Cookies возвращает раздел cookie-файла "О посетителе страницы". В данной программе мы предусмотрели только один раздел, хотя их может быть несколько (коллекция HttpCookieCollection). Если компьютер пользователя не содержит данного cookie-файла, то программируем выход Exit Sub из данной процедуры. Если cookie прочитан, то текстовые поля заполняем соответствующими значениями.

При обработке события щелчок на кнопке Запись Cookie происходит запись в cookie-файл, в его раздел "О посетителе страницы" двух пар "имя — значение" имя посетителя и Род занятий, скопированное из текстовых полей. В предложении Cookie.Expires указываем срок хранения cookie. Если дата не указана, то cookies удаляются сразу, как только пользователь закроет браузер. Например, интернет-магазин может использовать cookie для хранения названий товаров, которые пользователь выбрал и поместил в виртуальную корзину покупок. В таком случае даже если пользователь закроет браузер, не совершив покупки, то при последующем посещении интернет-магазина ему не придется формировать корзину заново.

Вернемся к нашему программному коду. Оператор Add (Cookie1) объекта Response.Cookies добавляет раздел "О посетителе страницы" в cookie-файл.

Теперь давайте найдем этот cookie-файл на винчестере вашего компьютера. Различные браузеры для разных операционных систем пишут cookie-файлы в различные папки. Скорее всего, вы найдете данный cookie в папке C:\Documents and Settings\Администратор\Cookies. Структура имени cookie-файла следующая:

Имя_пользователя_компьютера@имя_сервера(1)

Поскольку в данном случае речь идет о локальном сервере, то скорее всего имя обсуждаемого в данном разделе cookie-файла будет:

администратор@localhost (2).txt

Поскольку cookie — это текстовый файл, его можем легко открыть, например, с помощью Блокнота (рис. 89.3).

В заключении замечу, что cookies представляют собой лишь данные, а не программный код, т. е. они не могут стереть или прочитать информацию с компьютера пользователя, поэтому не стоит демонизировать cookie.

Скачать исходник к Примеру 89. Чтение/запись cookie-файлов

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

SELECT COUNT(*) FROM (Таблица посещений Web-страницы)

Теперь запустим VB2010, закажем новый проект из шаблона Empty ASP.NET Web Application, назовем его Counter. К текущему проекту добавим Web-форму. Для этого в пункте меню Project выберем командуAdd New Item и в появившемся окне дважды щелкнем по шаблону Web Form.

Здесь из панели Toolbox перенесем на Web-форму метку Label, куда будем выводить количество посещений данной страницы. Метку Label разместим пока в самом верху формы, но, в конце концов, ее следует разместить скромно в самом низу страницы.

Содержимое файла программной поддержки WebForml.aspx.vb приведено в листинге 888.

Листинг 88. Счетчик посещении сайта

‘ Web-приложение, реализующее счетчик посещений сайта с

‘ использованием базы данных и объекта Session.

‘ Импортируем пространство имен:

Imports System.Data.OleDb

PublicClass WebForm1

   Inherits System.Web.UI.Page

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

       Page.Title ="Счетчик посещений сайта"

        If Page.IsPostBack = True Then Exit Sub

       ‘ При первой загрузке страницы:

       ‘Выясняем IP-адрес посетителя сайта:

        Dim IP_адресAsString = Request.UserHostAddress

       Dim URL_адрес As String

       Try ‘ Определение с какой Web-стр. вы сюда пришли:

            URL_адрес = Request.UrlReferrer.AbsoluteUri

            Response.Write("<br><br>Вы пришли на эту" &" страницу со страницы " & URL_адрес)

       Catch ex1 As System.NullReferenceException

           ‘ Если пришли на эту страницу набрав URL-адрес

            ‘ в адресной строке браузера:

            URL_адрес ="Адресная строка браузера"

            Response.Write("<br><br>Вы пришли на эту " &"страницу набрав URL-адрес в адресной строке")

       End Try

        Response.Write("<br><br>Вы пришли на эту стра" & "ницу с IP-адреса " & IP_адрес)

       ‘ МАНИПУЛЯЦИИ С БД О ПОСЕЩЕНИИ ПОЛЬЗОВАТЕЛЯ:

       ‘ Строка подключения:

       Dim СтрокаПодкл AsString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Web.mdb")

       ‘ Создание экземпляра объекта Connection

       Dim CONNECTION = NewOleDbConnection(СтрокаПодкл)

       Try  ‘ Открытие подключения:

            CONNECTION.Open()

       Catch ex2 AsException

            Response.Write("<br><br>" & ex2.Message)

       End Try

       Dim SQL_запрос AsString

       Dim COMMAND AsNew OleDbCommand

       ‘ ЕСЛИ ОБ ЭТОМ ПОСЕЩЕНИИ ЕЩЕ НЕТ ЗАПИСИ:

       If Page.Session("ЕСТЬ ЛИ ЗАПИСЬ ОБ ЭТОМ ПОСЕЩЕНИИ?") <> "ДА"Then

           ‘ ДОБАВЛЕНИЕ ЗАПИСИ В БД О ПОСЕЩЕНИИ:

            DimДАТАAsString = Now

           ‘ Строка SQL-запроса:

           SQL_запрос =

                   "INSERT INTO (Таблица посещений Web-страницы) " &

                   "((Дата посещения), (IP-адрес посетителя), " &

                   "(С какой страницы пришли)) VALUES (‘" & ДАТА &

                   "’, ‘" & IP_адрес &"’, ‘" & URL_адрес &"’)"

           ‘ Создание объекта Command с заданием SQL-запроса:

            COMMAND.CommandText = SQL_запрос

           ‘ Для добавления записи эта команда обязательна:

            COMMAND.Connection = CONNECTION

           Try ‘ Выполнение команды SQL, то есть ЗАПИСЬ В БД:

                COMMAND.ExecuteNonQuery()

                Response.Write(

                   "<br><br>В таблицу БД посещений добавлена запись")

               ‘ ТЕПЕРЬ ПОЯВИЛАСЬ ЗАПИСЬ ОБ ЭТОМ ПОСЕЩЕНИИ:

                Page.Session(

                         "ЕСТЬ ЛИ ЗАПИСЬ ОБ ЭТОМ ПОСЕЩЕНИИ?") ="ДА"

           Catch ex3 AsException

                Response.Write("<br><br>" & ex3.Message)

           End Try

       End If

       ‘ ОПРЕДЕЛЕНИЕ КОЛИЧЕСТВА ЗАПИСЕЙ О ПОСЕЩЕНИИ:

       ‘Новый SQL-запрос — это одна ячейка в новой таблице:

        SQL_запрос ="SELECT COUNT(*) FROM (Таблица посещений Web-страницы)"

        COMMAND.CommandText = SQL_запрос

        COMMAND.Connection = CONNECTION

       ‘ ExecuteScalar выполняет запрос и возвращает первую

       ‘ колонку первого ряда таблицы запроса:

       Dim КОЛ_ВО AsInteger

       Try

            КОЛ_ВО = COMMAND.ExecuteScalar()

       Catch ex4 AsException

            Response.Write("<br><br>" & ex4.Message)

       End Try

        CONNECTION.Close()

        Label1.Text ="Количество посещений страницы = " & КОЛ_ВО

   End Sub

EndClass

Как видно из программного кода, программирование счетчика посещений реализовано при обработке событий загрузки Web-страницы Page_Load, причем при ее первой загрузке, когда IsPostBack = False. Используя объект Request, определяем IP-адрес посетителя данной Web-страницы. Далее с помощью этого же объекта Request и блока Try…Catch определяем, с какой Web-страницы пользователь перешел на данную страницу. Если попытка (Try) определить оказалось неудачной, то управление переходит на Exception и делается вывод, что пользователь оказался на данной странице, набрав URL-адрес в адресной строке своего браузера. Для вывода текста в форму использован метод Response.Write. Роль этой печати здесь вспомогательная, как бы отладочная. Читатель может ее закомментировать или вовсе удалить.

Далее происходит подготовка к записи строки из трех полей в базу данных. Вначале задаем строку подключения к базе данных, затем — непосредственное подключение Connection. Далее перед непосредственной записью строки посещения в базу данных происходит проверка, есть ли (зарегистрирована ли уже) запись об этом посещении. Может быть, пользователь в своем браузере просто обновил страницу путем нажатия клавиши <F5>. Вы можете себе представить, читатель, какой соблазн появляется у пользователя нажимать <F5>, если он видит, что после каждого нажатия увеличивается количество посещений сайта! Чтобы избежать этого, воспользуемся объектом страницы Page.Session.

В технологии ASP.NET каждое Web-приложение при обращении к нему пользователя (клиента) создает объект Page.Session, этот объект называют сессией или сеансом пользователя. Объект Session содержит в себе методы для создания коллекции данных. Причем созданная коллекция данных на одной странице Web-приложения оказывается доступной на любой другой странице данного приложения. Даже если пользователь перешел на другое Web-приложение (на другой Web-узел), а затем вернулся в данное приложение, то исходная коллекция данных сессии будет сохранена. Она будет сохранена до тех пор, пока пользователь не закрыл свой Web-браузер. Однако время жизни (лимит времени) сессии все же ограничено параметром timeout. По умолчанию время жизни равно 20 минутам, его можно регулировать и файле программной поддержки свойством объекта Session.Timeout.

Программировать создание сессии пользователя и получение из нее информации, доступной во всем приложении, несложно. Например, включение (добавление) в коллекцию данных сессии пар "имя (ключ) — значение" можно программировать таким образом: Session ("Имя пользователя") ="Андрей" или Session.Add ("Имя пользователя", "Андрей"). На любой Другой Странице данного Web-приложения имеем доступ к данным, записанным в коллекцию данных сессии: Label1.Text = Session("Имя пользователя") или Label1.Text = Session.item ("Имя пользователя"). Таким образом можно обмениваться данными между страницами Web-приложения.

Теперь вернемся к добавлению в БД записи о данном посещении страницы. После команды ExecuteNonQuery запись в базу данных будет добавлена, затем сразу после этого включаем в коллекцию текущей сессии пару Page.Session ("есть ли запись об этом посещении?") ="да". Теперь эта пара будет существовать не только после нажатия клавиши <F5> (команда в браузере Обновить страницу), но и после того, как пользователь покинет данное Web-приложение и затем вернется в него опять. (Но при этом не будет закрывать свой Web-браузер.) Поэтому в программном коде, прежде чем добавлять запись в базу данных о посещении пользователя, предусмотрена проверка с помощью коллекции объекта Session. Фрагмент работы счетчика посещений представлен на рис. 88.

Скачать исходник к Примеру 88. Программирование счетчика посещений сайта с использованием базы данных и объекта Session

Для решения поставленной задачи запустим VB2010, закажем новый проект из шаблона Empty ASP.NET Web Application, имя Web-приложения — RW_txt. К текущему проекту добавим Web-форму. Для этого в пункте меню Project выберем команду Add New Item и в появившемся окне дважды щелкнем шаблонWeb Form.

В конструкторе формы из панели Toolbox перетащим мышью текстовое поле TextBox и две командные кнопки Button. Содержимое файла программной поддержки приведено в листинге 87.

Листинг 87. Чтение/запись текстового файла

‘ Чтение-запись текстового файла Web-приложением. Web-приложение,

‘ читающее текстовый файл в текстовое поле, пользователь имеет

‘ возможность редактировать текст и сохранять его в том же файле

PublicClass WebForm1

   Inherits System.Web.UI.Page

    Dim filename As String

   ‘ Чтобы русские буквы читались нормально,

   ‘ объявляем объект КОДИРОВКА:

   Dim КОДИРОВКА As System.Text.Encoding = System.Text.Encoding.GetEncoding(1251)

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

       Page.Title ="Здесь кодировка Win1251"

        Button1.Text = "Читать"

        Button2.Text = "Сохранить"

       ‘ Разрешаем многострочие:

        TextBox1.TextMode = TextBoxMode.MultiLine

        filename = Request.PhysicalApplicationPath & "txt.txt"

   End Sub

   Private SubЧтение(ByVal sender As Object,ByVal e As System.EventArgs) Handles Button1.Click

       Try

           ‘ Создаем экземпляр StreamReader для чтения из файла:

            DimЧИТАТЕЛЬAsNew IO.StreamReader(filename,КОДИРОВКА)

            TextBox1.Text = ЧИТАТЕЛЬ.ReadToEnd()

           ЧИТАТЕЛЬ.Close()

       Catch Exc As System.IO.FileNotFoundException

           Response.Write("Нет такого файла <br>")

       Catch Ex AsException

           ‘ Отчет о других ошибках:

            Response.Write("Ошибка чтения файла " & Ex.Message & " <br>")

        EndTry

   End Sub

   Private SubСохранение(ByVal sender As Object,ByVal e As System.EventArgs) Handles Button2.Click

       Try

           ‘Созд экземпляра StreamWriter для записи в файл:

            DimПИСАТЕЛЬAsNew IO.StreamWriter(filename,False, КОДИРОВКА)

           ПИСАТЕЛЬ.Write(TextBox1.Text)

           ПИСАТЕЛЬ.Close()

       Catch EXC As Exception

           ‘ Отчет о всех возможных ошибках:

            Response.Write("Ошибка записи файла " & EXC.Message & " <br>")

       End Try

   End Sub

EndClass 

В начале программного кода объявляем имя файла filename и объект кодировка в качестве внешних переменных по отношению к процедурам класса, чтобы они были видны из всех процедур обработки событий. При загрузке страницы Page_Load задаем надписи на кнопках Button1 и Button2, а текстовое поле переводим в режим Multiline, т. е. разрешаем размещать текст на нескольких строчках. Далее, поскольку мы не можем разрешить пользователю выбирать папку на удаленном сервере для размещения файла, в качестве такой папки указываем папку, где расположено текущее Web-приложение. При этом мы не сможем воспользоваться методом GetCurrentDirectory классаIO.Directory, поскольку эта функция нам укажет на системную папку C:\Windows\system32. Поэтому воспользуемся методом PhysicaLApplicationPath объекта Request. При обработке события "щелчок на кнопке" Читать читаем текстовый файл, используя объект StreamReader. Также как и при записи файла, данная процедура ничем не отличается от программирования ее в Windows-приложении.

Однако существует большая вероятность получить отказ в доступе к файлу. Операционная система, в зависимости от настроек, может выдать сообщение об ошибке сервера в вашем приложении вследствие отказа в доступе к вашему текстовому файлу. То есть можем получить запрет на запись файла на диск сервера. В этом сообщении об ошибке указано, что следует на вкладке Безопасность свойств текстового файла разрешить чтение/запись. Однако весьма вероятна ситуация, когда, щелкнув правой кнопкой мыши на изображении файла txt.txt и выбрав команду Свойства, мы получим свойства файла в таком виде, как показано на рис. 87.1

Используя инструмент чтения/записи текстового файла, можно обмениваться данными между страницами Web-приложения, организовать форум на Web-сайте, гостевую книгу, счетчик посещений и пр.

Скачать исходник к Примеру 87. Чтение/запись текстового файла Web-приложением

Поставим следующую задачу, сопоставим в хэш-таблице государства в качестве ключей, а их столицы — в качестве значений. Далее, используя элемент управления GridView, выведем эту хэш-таблицу на Web-страницу. Для этого запустим VB2010, закажем новый проект шаблона Empty ASP.NET Web Application, в поле Name укажем имя Hash_Grid. К текущему проекту добавим Web-форму. Для этого в пункте менюProject выберем команду Add New Item и в появившемся окне дважды щелкнем шаблон Web Form.

Далее перетащим в форму из панели Toolbox (из подраздела Data) элемент управления GridView. Содержимое файла программной поддержки WebForm1.aspx.vb приведено в листинге 86.

Листинг 86. Хэш-таблица в Web-форме

‘ Вывод в Web-форму хэш-таблицы. В данной Web-странице использована

‘ хэш-таблица для того, чтобы поставить в соответствие государства

‘ их столицам. То есть в качестве ключей имеем государства, а их

‘ столицы — в качестве значений. Далее используя элемент управления

‘ GridView, программа выводит эту хэш-таблицу на Web-страницу.

PublicClass WebForm1

   Inherits System.Web.UI.Page

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

       Page.Title ="Пример хэш-таблицы"

        Dim h = New System.Collections.Hashtable

       h("Украина") = "Киев"

        h.Add("Россия","Москва")

        h("Белоруссия") = "Минск"

       Dim dt AsNew DataTable‘ Заполнение шапки таблицы:

        dt.Columns.Add("ГОСУДАРСТВА")

        dt.Columns.Add("СТОЛИЦЫ")

        DimПЕРЕЧИСЛИТЕЛЬAsIDictionaryEnumerator = h.GetEnumerator

       While ПЕРЕЧИСЛИТЕЛЬ.MoveNext = True

            dt.Rows.Add(New String() {ПЕРЕЧИСЛИТЕЛЬ.Key,ПЕРЕЧИСЛИТЕЛЬ.Value})

       EndWhile

       ‘ Немного другое свойство, чем в WindowsApplication:

        GridView1.Caption = "Таблица государств"

        GridView1.BorderWidth = WebControls.Unit.Pixel(2)

        GridView1.BorderColor = Drawing.Color.Gray

       ‘ Источник данных для GridView:

        GridView1.DataSource = dt

       ‘ Этого нет в WindowsApplication:

        GridView1.DataBind()

   End Sub

EndClass

Здесь при обработке события загрузки Web-страницы создается объект класса Hashtable. Хэш-таблица заполняется тремя парами "код — значение", причем, как показано в программном коде, допустимы обе формы записи: через присваивание и посредством метода Add. Далее создается вспомогательный объект DataTable, который следует заполнить данными из хэш-таблицы. Хэш-таблица имеет метод GetEnumerator, который возвращает перечислитель типа IdictionaryEnumerator. Перечислитель позволяет перемещаться по рядам таблицы в цикле While и таким образом получить все пары из хэш-таблицы. В этом цикле происходит заполнение объекта DataTable. Далее, также как и в предыдущем примере, для GridView1 указываем в качестве источника данных заполненный объект DataTable. Пример работы данной Web-страницы показан на рис. 86.

Скачать исходник к Примеру 86. Отображение в Web-форме хэш-таблицы

Для решения данной задачи запускаем VB2010, заказываем новый проект из шаблона Empty ASP.NET Web Application, в поле Name вводим имя TabGrdWeb. К текущему проекту добавим Web-форму. Для этого в пункте меню Project выберем команду Add New Item и в появившемся окне дважды щелкнем шаблон Web Form.

Далее перетащим в форму из панели Toolbox (из подраздела Data) элемент управления GridView. Содержимое файла программной поддержки WebForm1.aspx.vb приведено в листинге 85.

Листинг 85 Вывод табличных данных в Web-форму с помощью элемента управления GridView

‘ Вывод табличных данных в Web-форму с помощью элемента управления

‘ GridView. В данной Web-странице организован вывод двух строковых

‘ массивов в таблицу в Web-форму с помощью элемента управления

‘ GridView и объекта DataTable.

PublicClass WebForm1

   Inherits System.Web.UI.Page

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

       Page.Title ="Вывод таблицы в Web-форму"

       Dim Imena() AsString = {"Андрей — раб", "ЖЭК","Мама — дом", "Карапузова Таня"}

        Dim Tel() As String = {"274-88-17", "22-345-72", "570-38-76","201-72-23-прямой моб"}

       Dim dt AsNew DataTable‘ Заполнение шапки таблицы:

        dt.Columns.Add("ИМЕНА")

        dt.Columns.Add("НОМЕРА ТЕЛЕФОНОВ")

       ‘ Заполнение клеток (ячеек) таблицы:

        For iAs Short = 0To 3

            dt.Rows.Add(New String() {Imena(i), Tel(i)})

       Next

       ‘ Немного другое свойство, чем в WindowsApplication:

        GridView1.Caption = "Таблица телефонов"

        GridView1.BorderWidth = WebControls.Unit.Pixel(2)

        GridView1.BorderColor = Drawing.Color.Gray

        GridView1.DataSource = dt

       ‘ Этого нет в WindowsApplication:

        GridView1.DataBind()

   End Sub

EndClass

Содержание программного кода очевидно. Вначале инициализируются два строковых массива: массив имен и массив телефонов, далее с помощью этих массивов заполняются ячейки объекта DataTable. Затем этот объект назначается нами источником данных DataSource для сетки данных GridView1. Фрагмент работы данной Web-страницы показан на рис. 85.

Скачать исходник к Примеру 85. Отображение табличных данных в Web-форме с помощью элемента управления GridView

Для решения этой задачи запустим VB2010, закажем новый проект из шаблона Empty ASP.NET Web Application. Далее добавим в текущий проект начальную Web-форму, для этого в пункте меню Project выполним команду Add New Item и в появившемся окне выберем шаблон Web Form. В окне Solution Explorer переименуем (команда Rename в контекстном меню) новую появившуюся форму из WebForm1.aspx в ishod.aspx. На вкладке конструктора формы из панели элементов Toolbox перенесем командную кнопку Button и текстовое поле TextBox. На вкладке программного кода (клавиша <F7>) напишем текст, приведенный в листинге 84.1.

Листинг 84.1. Заполнение данных на первой Web-cтранице

‘ На начальной Web-странице имеем командную кнопку с надписью

‘ "ПЕРЕХОД" и текстовое поле, которое заполняет пользователь, после

‘ щелчка на кнопке происходит переход на другую Web-страницу.

‘ На новой странице отображается содержимое текстового поля и

‘ надпись на кнопке из предыдущей страницы.

PublicClass WebForm1

   Inherits System.Web.UI.Page

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

        Button1.Text = "ПЕРЕХОД"

        Button1.PostBackUrl = "res.aspx"

   End Sub

   Protected Sub Button1_Click(ByVal senderAs Object,ByVal e AsEventArgs) Handles Button1.Click

       ‘ Response.Redirect("res.aspx")

    EndSub

EndClass

Как видно из программного кода, при обработке события загрузки формы присваиваем надписи на кнопке строку "ПЕРЕХОД", а свойству кнопки PostBackurl назначаем URL-адрес, на который должно перейти управление при щелчке на командной кнопке. Вообще говоря, переход на другую Web-форму можно программировать, так же обрабатывая событие "щелчок на кнопке" и используя при этом метод Redirect объекта Response, как показано в комментарии.

Замечу, что Web-формы res.aspx, на которую имеем ссылку в программном коде, еще нет в нашем проекте. Добавим эту форму так же, как добавили исходную форму, т. е. используя в пункте меню Project команду Add New Item, выберем шаблон новой формы Web Form. В окне Solution Explorer переименуем новую появившуюся форму в res.aspx. На вкладке программного кода res.aspx.vb напишем текст, приведенный в листинге 84.2.

Листинг 84.2. Вторая WEB-страница

PublicClass WebForm2

   Inherits System.Web.UI.Page

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

       Try

           Dim TПолеAsTextBox = CType(Page.PreviousPage.FindControl("TextBox1"),TextBox)

           Dim КнопкаAsButton = CType(Page.PreviousPage.FindControl("Button1"),Button)

           ‘ Значения элементов управления могут быть также

            ‘ получены с помощью объекта Request:

            ‘ Dim S1 As String = Request.Item("TextBox1")

           ‘ Dim S2 As String = Request.Item("Button1")

           Response.Write("На начальной странице: <br />")

            Response.Write(" — cодержимое текстового поля: " + TПоле.Text +"<br />")

            Response.Write(" — надпись на кнопке: " + Кнопка.Text)

        Catch ex As Exception

            Response.Write("Начальная Web-страница должна " +

                   "содержать<br />текстовое поле и командную " +

                                        "кнопку.<br />" + ex.Message)

       End Try

    EndSub

EndClass

Как видно из данного программного кода, новая, результирующая форма не содержит ни одного элемента управления. Вывод текста в форму осуществляем спомощью метода Write объекта Response. Чтобы вывести в новую форму значения элементов управления первоначальной формы, воспользуемся методом FindControl объекта PreviousPage. На вход этого метода подадим идентификатор (ID) соответствующего элемента управления, указанного в HTML-разметке первоначальной формы ishod.aspx. Функция FindControl возвращает объект класса Web.UI.Control, его удобно конвертировать в объект класса TextBox или Button с помощью функцииCTуре(). В комментарии показано, как можно получить значения элементов управления первоначальной формы также с помощью объекта Request.

Перед тем как запустить созданный проект на выполнение, в окне Solution Explorer назначим в качестве стартовой страницы проекта файл ishod.aspx, для этого в контекстном меню для этого файла выберем команду Set As Start Page. На рис. 84.1 показана исходная форма ishod.aspx с текстовым полем, подлежащим заполнению, и командной кнопкой.

Скачать исходник к Примеру 84. Передача значений элементов управления на другую Web-страницу с помощью объекта PreviousPage

Поставим следующую конкретную задачу. Имеем Web-форму, написанную на "чистом" HTML, т. е. в данной разметке нет тегов ASP, нет JavaScript-кода, нет PHP-скрипта, есть только теги HTML. Web-форма содержит два текстовых поля и кнопку для отправки данных. Одно поле приглашает пользователя ввести свое имя, а второе — адрес электронной почты. Щелчок на кнопке отправляет данные, заполненные пользователем в форме, на другую Web-страницу для обработки и отображения принятых данных на этой новой странице.

Для решения этой задачи запустим VB2010, закажем новый проект из шаблонаEmpty ASP.NET Web Application. Добавим Web-форму, содержащую только теги HTML, для этого в пункте меню Project выберем команду Add New Item и в появившемся окне укажем шаблон HTML page. В окне Solution Explorer переименуем новый появившийся файл в ishod.htm, на вкладке View Code этого файла введем HTML-разметку, представленную на рис. 83.1.

Элемент <input> является базовым для всех элементов формы. Он используется для внедрения в форму кнопок, графических изображений, флажков, переключателей, паролей и текстовых полей. Атрибут type определяет тип элемента, для текстовых полей type="text", для кнопок type="submit", для флажков type="checkbox" и т. д. Атрибутом name мы будем пользоваться для идентификации элементов управления при обработке данных формы. Атрибутом value мы воспользовались, чтобы в первом поле по умолчанию каждый раз при запуске формы оказывалась фамилия автора.

Заметим, что Visual Studio 2010 содержит удобный HTML-редактор, который зеленым подчеркиванием указывает на синтаксические ошибки, допущенные при вводе HTML-разметки. Для примера на рис. 83.1 мы не заключили значение атрибута type в двойные кавычки, редактор HTML-разметки подчеркнул этот фрагмент зеленой волнистой линией, и при "зависании" указателя мыши над ним мы получили сообщение об этой ошибке: "Validation (XHTML 1.0 Transitional): Attribute values must be enclosed in quotation marks".

Нажмем клавишу <F5> для запуска данного проекта, в результате получим форму, подлежащую заполнению (рис. 83.2).

Листинг 83. Формирование Web-страницы, получающей данные

‘ Данная Web-страница получает имя пользователя и адрес его

‘ электронной почты от Web-формы ishod.htm и отображает эти

‘ данные на странице.

PublicClass WebForm1

    Inherits System.Web.UI.Page

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

       Dim МетодAsString = Request.HttpMethod()

       Dim ИмяAsString = Request.Item("name")

       ‘ или Dim Имя As String = Request.Form.Item("name")

       Dim ПочтаAsString = Request.Item("email")

       Response.Write("Передача данных произвдена методом " + Метод + "<br />")

        Response.Write("Получено имя: " + Имя + "<br />")

        Response.Write("Получен адрес электронной почты: " + Почта)

   End Sub

EndClass

Как видно из программного кода, при обработке события загрузки страницы чтение переданных данных организуем с помощью методов класса Request. Фрагмент работы Web-страницы представлен на рис. 83.3.