Создание Web-страниц со сценариями в VB
Если ваша Windows и ваша VS установлены в соответствии с рекомендациями из 4.1, то вы можете программировать Web-страницы, не зная VBScript. Вы создаете и программируете их прямо на VB! Для примера создадим такую же страницу, что и в предыдущем разделе о разведении слонов в Антарктиде. Вся работа этой страницы заключается в том, чтобы сообщать пользователю, сколько раз он в нее заходил.
Создание страницы или даже сайта на VB есть не что иное, как создание на VB специального проекта, являющегося так называемым Web-приложением (WebApplication).
Запустите VS. Создадим новый проект: File ® New ® Project. Ранее, создавая новый проект, мы имели в виду, что создаем приложение Windows, поэтому в окне создания нового проекта выбирали Windows Application (приложение Windows). Теперь же мы создаем не приложение Windows, а Web-приложение, поэтому выбираем ASP.NET Web Application и при желании переименовываем его в Антарктида (Рис. 23.7).
Рис. 23.7
Нажимаем ОК. Перед нами открывается окно проекта (Рис. 23.8).
Рис. 23.8
Это окно очень напоминает окно привычного нам проекта приложения Windows. Размеченное точками пространство, так называемая Web-форма – не что иное, как наша будущая Web-страница. Вы можете размещать на ней взятые из Toolbox кнопки, метки, текстовые и графические поля и другие элементы управления. Правда, сразу нужно сказать, что набор элементов управления здесь победнее. Например, нет таймера, со всеми вытекающими отсюда последствиями. Да и набор методов, свойств и событий немного другой. Однако, оставшиеся возможности все равно достаточно мощны и производят впечатление.
Разместите на Web-форме две метки, а в учебных целях еще и кнопку. В окне свойств первой метки придайте ей текст «Кое-что о разведении слонов в Антарктиде». Размер шрифта тоже задается в окне свойств, а именно свойством Size, входящим в группу свойств Font.
Выделите в окне Solution Explorer нашу Web-форму WebForm1.aspx и переименуйте ее, если хотите, в Слоны.aspx (Рис. 23.9).
Рис. 23.9
Теперь перейдите в ее окно кода. Оно имеет такой вид, как на Рис. 23.10.
Рис. 23.10
Процедура Page_Load – аналог процедуры Form_Load в проекте приложения Windows. Пока там ничего нет. Добавьте туда какой-нибудь код, например:
Button1.BackColor = Color.Yellow
Запустите проект. Вы увидите, что он запустился в окне Internet Explorer в виде Web-страницы. Действительно, кнопка стала желтой. Закройте страницу.
Продолжим эксперимент. Двойной щелчок по кнопке в режиме проектирования создает привычным образом в окне кода заготовку процедуры, в которую мы добавляем, например, такой текст:
Label1.Text = "Привет!"
Запустите проект. Проверьте работу кнопки.
Итак, мы научились в VB создавать простейшие Web-страницы. Теперь вернемся к задаче о слонах. Всю работу с файлами и метками вы программируете совершенно так же, как в приложении Windows, то есть вам достаточно использовать уже изученный материал.
Вот как будет выглядеть теперь процедура Page_Load:
Imports System.IO
Public Class WebForm1
Inherits System.Web.UI.Page
Web Form Designer generated code
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.BackColor = Color.Yellow
Dim Файл As String = "C:\INFORMAT.TXT"
Dim Счетчик As Integer
If Not File.Exists(Файл) Then
Dim Запись As New StreamWriter(Файл)
Запись.WriteLine(0)
Запись.Close()
End If
Dim Чтение As New StreamReader(Файл)
Счетчик = Чтение.ReadLine
Чтение.Close()
If Счетчик = 0 Then
Label2.Text = "Вы здесь ни разу не были"
Else
Label2.Text = "Вы здесь были " & Счетчик & " раз."
End If
Счетчик = Счетчик + 1
Dim Запись1 As New StreamWriter(Файл)
Запись1.WriteLine(Счетчик)
Запись1.Close()
End Sub
End Class
Пояснения: Первый оператор If проверяет, существует ли на диске нужный файл, и если не существует, создает его и записывает туда 0. Следующие три оператора считывают число из файла в переменную Счетчик. Следующий оператор If занят получением нужного текста в метке 2. Оператор
Счетчик = Счетчик + 1
получает значение счетчика для записи в файл, а последние три оператора эту запись осуществляют.
Запустите проект. Проверьте его работу.
Если вы создаете Web-страницу, как Web-приложение при помощи Visual Basic .NET, то при ее функционировании в Интернете используются новые, сложные и совершенные механизмы. Так, например, на смену языку HTML приходит язык XML. Объяснение этих механизмов я оставляю за бортом книги.
