Урок 16. Работа с файлами.

При создании любого мало-мальски объемного сайта, разработчику редко удается обойтись без использования информации, хранящейся в обычных файлах, а не в статичных Web-страницах или в записях таблиц баз данных. В этом разделе мы узнаем, как работать с файлами в приложениях ASP.NET. Для начала мы попробуем усовершенствовать приложение, рассмотренное в предыдущем разделе. Как мы помним, в этом приложении пользователю предлагалось сделать выбор из трех книг, и в зависимости от его выбора отображалась обложка соответствующей книги. Попробуем пойти дальше, и предоставить пользователю кроме обложки еще и аннотацию выбранной книги. Для этого нам потребуется помимо трех графических файлов иметь еще и три текстовых файла, в которых будут находиться искомые аннотации. Чтобы не отступать от наметившейся традиции, назовем эти файлы l.txt, 2.txt и 3.txt.

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

Однако перед тем как приступить к разработке приложения, следует разобраться в механизмах работы с файлами, принятыми в Visual Basic .NET. В любом языке программирования для работы с каким-либо файлом используются некие идентификаторы. Часто используют переменные специализированного файлового типа. Однако в Visual Basic .NET применяется идеология дескрипторов файлов. Дескриптором файла называют его номер, т. е. каждому открываемому файлу присваивается некий уникальный номер, и при работе с файлом, функциям передается этот номер в качестве параметра. Вопрос о том, что правильнее использовать в языках программирования — дескриптор или переменную файлового типа, на самом деле, не имеет какого-либо реального значения. Неверно считать, что использование переменной файлового типа является признаком хорошо типизированного языка программирования. Я останавливаюсь на этом вопросе именно потому, что часто приходится слышать мнения, будто работа с файлами при помощи дескрипторов является признаком слабого языка программирования. Увы, это не так. Следует помнить, что механизм дескрипторов использовался и в языке С, который уж никак нельзя упрекнуть в слабости. Однако вернемся к нашим файлам.

Для того чтобы работать с файлом, записывать в него информацию, или читать ее, необходимо сначала открыть это файл. Открытие файла производится при помощи функции FileOpen. Естественно, данная функция обладает целым рядом параметров. В качестве первого обязательного параметра типа integer передается номер файла, его уникальный дескриптор. Разработчик должен указать именно тот номер, который еще не присвоен ни одному открытому файлу. Вторым обязательным параметром является имя открываемого файла. Естественно, данный параметр имеет тип string. Имя может указываться с использованием полного пути к файлу, включая наименования каталогов и диска, на котором он располагается. В третьем параметре функции указывается режим, в котором открывается файл. В качестве значения данного параметра применяется один из членов перечислимого типа openMode. Значение Append указывает, что файл будет открыт для того, чтобы добавить некоторые данные к нему. Значение Binary применяется в том случае, если файл содержит некие неструктурированные в виде текста или иных типов данные. Иначе говоря, файл представляет собой просто поток некоей байтовой информации, которую не следует по умолчанию интерпретировать как текст. Значение Output указывает, что в файл будет записываться некая информация, причем, совершенно необязательно она будет добавляться именно в конец открытого файла, как это будет происходить при использовании режима Append. Значение input открывает файл для чтения информации из него. Если же планируется совершать с файлом операции как записи, так и чтения, следует воспользоваться значением Random, которое открывает приложению полный доступ к файлу.

Четвертый параметр указывает тип доступа к файлу. Файл может быть открыт для чтения, записи, или и для чтения, и для записи одновременно. Соответственно, в качестве значения параметра используется одно из трех ключевых слов: Read, write или Readwrite. Все эти слова являются членами перечислимого типа OpenAccess. Четвертый параметр не является обязательным для функции FileOpen. По умолчанию используется значение ReadWrite.

Следует осознавать, что один и тот же файл может одновременно понадобиться нескольким приложениям. Одновременная запись данных в файл может безнадежно перепутать все данные в нем. Следовательно, необходимо каким-либо образом предусмотреть возможные коллизии. Проблемы могут возникнуть не только при одновременной записи данных в файл. Одновременное чтение данных может тоже повредить если не самому файлу, то читающему его приложению. Дело в том, что при чтении или записи данных в файле используется указатель на то место, в которое будет производиться запись, или откуда будут читаться данные. Поэтому при открытии файла следует заранее устанавливать режим совместного доступа к нему. Данный режим передается в функцию в качестве четвертого параметра. Этот параметр не является обязательным. В качестве значения параметра может использоваться один из четырех членов перечислимого типа openshare:

Shared, LockRead, LockWrite ИЛИ LockReadWrite.

Значение Shared открыва ет этот файл (часто говорят, "расшаривает файл") для любых операций из каждого приложения, обратившегося к данному файлу. Именно это значение и этот режим доступа к файлу используются по умолчанию. Значение LockRead блокирует указатель позиции, с которой будет производиться чтение. До тех пор, пока приложение, открывшее файл, не закроет его, ни одно другое приложение не сможет ничего прочитать из искомого файла. Значение LockWrite, соответственно, закрывает иным приложениям доступ на запись данных в файл, но позволяет им считывать информацию из файла. А значение LockReadWrite полностью монополизирует файл для открывшего его приложения, не оставляя никакого доступа для иных процессов.

В состав вызова функции FileOpen может входить и еще один атрибут. Дело в том, что достаточно часто в файлах записываются порции данных фиксированной длины. Таким образом, программисту придется прикладывать дополнительные усилия для правильного позиционирования указателя чтения из файла. Конечно, это не самое трудное в программировании, но если есть возможность избавиться хотя бы от одной операции, следует воспользоваться этой возможностью. Поэтому было бы неплохо при перемещении указателя устанавливать не количество байтов, на которое его следует передвинуть, а количество записей. Однако для этого необходимо знать, сколько байтов входит в одну запись. И в качестве последнего атрибута в функции открытия файла мы можем указать целое число, которое и будет размером одной записи в байтах. Максимальный размер записи может составлять 32 676 байтов.

Что касается обязательных параметров функции FileOpen, то с ними все понятно. Их три, и они должны быть обязательно указаны в том порядке, в котором мы их рассмотрели. Но что делать с необязательными параметрами. Они тоже должны располагаться в вызове функции по порядку. Если же нам необходимо использовать некий необязательный параметр, перед ним может оказаться другой параметр, который нам не нужен. Как быть в таком случае?

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

FileOpen(l, "c:\temp\tmpfile.txt", OpenMode.Random,, OpenShare.LockReadWrite)

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

Однако есть еще один вопрос. Как разработчик может знать, какой дескриптор еще не занят под открытый файл? Если приложению требуется использовать заранее известное количество файлов, то все в порядке, разработчик сможет в коде программы жестко установить все необходимые номера. Но как поступить, если требуется использовать заранее не определенное количество файлов, причем, некоторые из них могут несколько раз открываться и закрываться в процессе работы, усложняя учет свободных дескрипторов? Конечно, можно вести учет использованных дескрипторов, записывая их номера в некоей таблице, но можно поступить проще. В состав Visual Basic .NET входит достаточно интересная функция FreeFile, возвращающая целое число, которое гарантированно может быть использо- f вано в виде дескриптора, т. е. подобное число не используется для идентификации какого-либо файла, открытого в данный момент.

После того, как все операции с файлом завершены, и его повторное использование не планируется в ближайший момент, стоит закрыть его. Закрывать ; ранее открытые файлы следует обязательно, так как удержание их в открытом виде забирает некоторую часть системных ресурсов. Более того, следует учитывать, что после того как приложение дает команду на запись некоторых данных в файл, эти данные записываются не сразу. Сначала они заносятся в некий буфер, и только после его заполнения сбрасываются на диск. При закрытии файла все буферы, связанные с закрываемым файлом, уничтожаются, и данные физически записываются в файл. Поэтому следует закрывать файлы сразу после окончания серии операций с ним. Закрывается файл при помощи функции Fiieciose, которой в качестве единственного целочисленного параметра передается дескриптор файла, подлежащего закрытию. Впрочем, если необходимо сразу закрыть все открытые файлы, не обязательно использовать для каждого из них функцию Fiieciose. Можно воспользоваться функцией Reset, которая сразу закрывает все открытые ранее приложением файлы.

Итак, теперь мы знаем, как открывать и закрывать файлы. Однако, этого мало для настоящей работы. Необходимо еще уметь записывать данные в них, и читать из них информацию. Для чтения данных из текстовых файлов, а нам придется работать именно с такими файлами, обычно применяется функция Lineinput. Она возвращает значение типа string. В него заносится строка символов, которые функция читает с того места, на котором был закончен предыдущий сеанс чтения, и до того момента, пока не в с третится знак возврата каретки, обладающий кодом 13, или последовательность символов с кодами 13 и 10, т. е. возврат каретки и переход на новую строку. В качестве параметра функции Lineinput передается целочисленный дескриптор файла, из которого необходимо производить чтение текста.

В том случае, если в читаемом файле находится не только текст, использование функции Lineinput уже не будет оправданным. Для чтения разнородной информации из файла следует применять функцию input. Функции input в качестве параметров передается дескриптор файла, из которого производится чтение, и переменная, в которую будет записываться читаемая информация. Если переменная строкового типа, то в нее будет записана строка текста, если переменная числового типа, то в нее будет записано число. Естественно, разработчик должен точно помнить, в каком порядке записывались данные в файл и сам контролировать соответствие типов данных и переменных, в которые эти данные читаются.

Д ля з а писи д а нных в фа йл используются функции Write и WriteLine.Функции write в качестве параметров передается дескриптор файла, в который необходимо записать информацию, и переменная, содержимое которой необходимо поместить в файл. Причем, совершенно необязательно, чтобы эта переменная была строкового типа. Записывать в файл можно данные любого типа. Синтаксис функции WriteLine практически идентичен синтаксису write, за тем исключением, что в качестве второго параметра передается не одна переменная, а их массив. При этом следует упомянуть, что этот массив также не обязан содержать однотипные элементы. В одном вызове функции WriteLine можно записать в файл последовательно данные различных типов.

В языке VisualBasic .NET существует еще одна пара функций, которые позволяют осуществлять запись информации в файл. Они носят наименования Print и PrintLine. О тличив их от функций Write и WriteLine заключается в том, что они записывают информацию в том виде, как она будет отображаться на экране. Это не значит, что данные функции могут работать только со строковыми переменными, просто при записи данных в файл разработчик получает возможность использовать некий паллиатив форматирования записываемых строк при помощи некоторых дополнительных выражений. В состав записываемой информации могут входить выражения spc(n) и тав(п) , которые позволяют включать в состав записываемых строк п пробелов и п символов табуляции, соответственно. Таким образом, если нам необходимо записать в файл строку со словами "Здравствуй, мир", причем не в обычном виде, а чтобы слова были отделены друг от друга десятью пробелами, следует воспользоваться следующим фрагментом кода:

PrintLine (1, "Здравствуй,", SPC(IO), "мир")

Отличие функций Print и PrintLine друг от друга нетрудно проследить по их аналогам — функциям Write и WriteLine. В вызов функции Print могут входить только два параметра — дескриптор открытого файла и записываемое значение, а в вызове функции PrintLine мы можем указывать несколько записываемых значений.

Теперь, когда мы рассмотрели методы работы с файлами в рамках языка Visual Basic .NET, мы можем перейти к рассмотрению листинга приложения, с описания которого начинался данный раздел. В листинге 3.19 приведен HTML-код разрабатываемой страницы в том виде, как он создан в среде разработки Visual Studio .NET

Листинг 3.1

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForml.aspx.vb" Inherits="image.WebForml"%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML>

<HEAD>

<title></title>

<META content="Microsoft Visual Studio. NET 7.0" name= "GENERATOR" > <META content="Visual Basic 7.0" name="CODE_LANGUAGE"> <META content="JavaScript" name="vs_defaultClientScript">

<META content="http: //schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema " >

</HEAD>

<BODY MS_POSITIONING="GridLayout"> <FORM id="Forml" method="post" runat="server">

<asp:listbox id="ListBoxl" style="Z-INDEX: 101; LEFT: 31px;

POSITION: absolute;

TOP: 53px" runat="server" AutoPostBack="True" Rows="3" Height="79px" Width="187px">

<asp:List!tem Уа1ие="1">Интегральные MMKpocxeMbi</asp:ListItem>

<asp:ListItem Уа1ие="2"Жонкретная Ma т e м a тик a</asp:ListItem>

<asp:List!tem Уа1ие="3">Машинная гpaфикa</asp:ListItem> </asp:listbox>

<asp: image id="Imagel" style="Z- INDEX: 102; LEFT: 249px; POSITION: absolute;

TOP: 60px" runat= "server" Height="128px" Width="135px" Visible="False"x/asp : image>

<asp:Label id="Labell" style="Z-INDEX: 103; LEFT: 39px; POSITION: absolute;

TOP: 204px" runat="server" Height="46px" Width="339px" Visible="False"x/asp:Label>

</FORM>

</BODY>

</HTML>

В листинге 3.20 приведен код класса, реализующего данную Web-страницу.

Листинг 3.20

Public Class WebForml

Inherits System.Web.UI.Page

Protected WithEvents Imagel As System.Web.UI.WebControls.Image Protected WithEvents Labell

As System.Web.UI.WebControls.Label Protected WithEvents ListBoxl

As System.Web.UI.WebControls.ListBox

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.

<System.Diagnostics.DebuggerstepThrough()> Private Sub InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles MyBase.Init

'CODEGEN: This method call is required by the Web Form Designer 'Do not modify it using the code editor. InitializeComponent()

End Sub

iEnd Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles MyBase.Load

'Put user code to initialize the page here End Sub

Private Sub ListBoxl_SelectedIndexChanged(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles ListBoxl.SelectedlndexChanged

Dim i As Integer

Dim s As String

i = FreeFileO

If ListBoxl.Selectedlndex = 0 Then

Imagel.ImageUrl = "l.gif"

FileOpen(i, "d:\l.txt", OpenMode.Input) 126

s = Linelnput(i)

FileClose(i)

Label 1. Text = s End If If ListBoxl.Selectedlndex = 1 Then

Image 1 . ImageUrl = "2.gif"

FileOpen(i, "di\2.txt", OpenMode . Input )

s = Linelnput(i)

FileClose(i)

Labell.Text = s End If If ListBoxl.Selectedlndex = 2 Then

Imagel . ImageUrl = "3.gif"

FileOpend, "d:\3.txt", OpenMode . Input )

s = Linelnput(i)

FileClose (i)

Labell.Text = s End If

Imagel. Visible = True Labell. Visible = True

End Sub

End Class

На рис. 3.18 показан внешний вид разработанной нами интерактивной Web-страницы в браузере Internet Explorer. На изображении виден вариант содержимого сгенерированного сервером в ответ на выбор пользователем одного из пунктов списка.

При этом HTML- код страницы, отображенной в браузере, естественно выглядит иначе, чем HTML-код при разработке. Он приведен в листинге 3.21.

Листинг 3.21

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML>

<HEAD>

<titlex/title>

<META content="Microsoft Visual Studio. NET 7.0" name="GENEPATOR">

<META content="Visual Basic 7.0" name="CODE_LANGUAGE"> <META content="JavaScript" name="vs_defaultClientScript">

<META content=http: //schemas.microsoft.com/intellisense/ie5

name="vs targetSchema">

</HEAD>

<BODY MS_POSITIONING="GridLayout"> <form name="Forml" method="post" action="WebForml.aspx" id="Forml">

<input type="hidden" name="__VIEWSTATE"

value="dDwtODY!NzQ5NTM7dDw7bDxpPDE+Oz47bDxOPDts

PGk8MT47aTwzPjtpPDU+Oz47bD xOPHQ80ztsPGk8MT47Pj470z47dDxwPHA8bDxJbWFnZWybD

tWaXNpYmxlOz47bDwyLmdpZjt vPHQ+Oz4+Oz47Oz47dDxwPHA8bDxUZXh001Zpc21ibGU7Pjt

sPNCSOYLQvtGAOLDRjyDQsNC9 OL30vtGCOLDRhtC40Y87bzxOPjs+Pjs+Ozs+Oz4+Oz4+Oz4=" />

<select name="ListBoxl" id="ListBoxl" size="3"

onchange="__doPostBack('ListBoxl','')" language="javascript"

style="height:79px;width:187px;Z-INDEX: 101; LEFT: 31px; POSITION: absolute;

TOP: 53px">

<option value^'1'^Интегральные MmqpocxeMbi</option>

<option selected="selected" уа1ие="2"Жонкретная математика</ор^оп> t$ <option value="3">MaiiMHHafl гpaфикa</option>

</select>

<img id="Imagel" src="/image/2.gif" border="0"

style="height:128px;width:135px;Z-INDEX: 102; LEFT: 249px; POSITION: absolute;

TOP: 60px" />

<span id="Labell" style="height:46px;width:339px; Z-INDEX: 103; LEFT: 39px; POSITION: absolute;

TOP: 204рх">Вторая аннотация</зрап>

<input type="hidden" name="__EVENTTARGET" value="" />

<input type="hidden" name="__^EVENTARGUMENT" value="" />

<script language="javascript">

function __doPostBack(eventTarget, eventArgument) {

var theform = document.Forml;

theform.__EVENTTARGET.value = eventTarget;

theform.__EVENTARGUMENT.value = eventArgument;

theform.submit();

</script>

</form>

Однако мы рассмотрели всего лишь одну операцию с файлами — чтение. Следует еще понять, как осуществляется запись в файлы. Для этого мы еще немного расширим функциональность нашего примера.

Попробуем получить отзывы от читателей о тех книгах, информацию о которых мы показываем. Для этого следует разместить на разрабатываемой Web-странице многострочное поле для ввода текста отзыва и кнопку, отсылающую введенную информацию на сервер. Итак, на страницу выкладывается компонент Label, в свойстве Text которого записывается строка "Ваш отзыв о книге". Также нам потребуется один компонент TextBox. Для его свойства TextMode мы установим значение MuitiLine, чтобы удаленный пользователь мог ввести несколько строк, а не одну. Также потребуется один элемент Button, для отсылки данных на сервер. В листинге 3.22 приведен HTML-код страницы в том виде, как она создана в среде разработки Visual Studio.NET.

Ли стинг 3.22

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForml.aspx.vb" Inherits="image.WebForml"% >

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML> <HEAD>

<titlex/title>

<META content="Microsoft Visual Studio.NET 7.0" name="GENERATOR">

<МЕТА content="Visual Basic 7.0" name="CODE_LANGUAGE">

<МЕТА content=" JavaScript" name="vs_defaultClientScript">

<META content=http: //schemas .microsoft . com/intellisense/ie5

name= " vs_targetSchema "> </HEAD>

<BODY MS_POSITIONING="GridLayout"> <FORM id="Forml" method="post" runat="server">

<asp:listbox id="ListBoxl" style="Z-INDEX: 101; LEFT: 22px; POSITION: absolute;

TOP: 19px" runat="server" Width="187px" Height="79px" Rows="3" |- AutoPostBack="True">

<asp:List!tem Уа1ие="1">Интегральные MMKpocxeMH</asp:ListItem> <asp:List!tem Уа1ие="2" К онкретная MaTeMaTiiKa</asp:ListItem> <asp:List!tem \7а1ие="3">Машинная rpai|«HKa</asp:ListItem> </asp:listbox>

<asp:image id="Imagel" style="Z-INDEX: 102; LEFT: 302px; POSITION: absolute;

TOP: 24px" runat="server" Width="135px" Height="128px" Visible="False"x/asp: image>

<asp:label id="Labell" style="Z-INDEX: 103; LEFT: 22px; POSITION: absolute;

TOP: 104px" ruriat="server" Width="249px" Height="43px" Visible="False"x/asp:label>

<asp: label id="Labe!2" style="Z-INDEX: 104; LEFT: 25px; POSITION: absolute;

TOP: 169px" runat=" serve г">Ваш отзьш о книге</азр: label>

<asp:textbox id="TextBoxl" style="Z-INDEX: 105; LEFT: 29px; POSITION: absolute;

TOP: 193px" runat="server" Width="407px" Height="89px" TextMode="MultiLine"X/asp:textbox>

<asp:button id="Buttonl" style="Z-INDEX: 106; LEFT: 29px; POSITION: absolute;

TOP: 298px" runat="server" Width="192px" Height="24px" Text="OcTaBMTb OT3bm"x/asp:button>

</FORM>

</BODY>

</HTML>

Сценарий работы с добавленными компонентами будет достаточно прост. Как только пользователь выбирает какой-либо пункт в основном списке, отображаются обложка указанной книги и ее аннотация, кроме того, необходимо подготовиться к записи данных из поля ввода в соответствующий текстовый файл. Для каждой книги отведен отдельный файл, в который последовательно будут записываться комментарии пользователей. Следует осознавать, что блоки кода, ответственные за отображение обложки и прием данных от пользователя, разделены. Отображение аннотации и обложки завязаны на выбор элемента в списке, а отсылка данных из поля ввода инициируется нажатием на кнопку. Но как тогда при нажатии на кнопку отсылки данных, приложение будет знать, какой пункт выбран пользователем. Можно просто обратиться к свойству Selectedindex, присущему компоненту ListBox. Но мы попробуем продемонстрировать передачу данных через объект session. Для этого при загрузке страницы мы создадим один элемент коллекции Session, и каждый раз при выборе того или иного элемента списка будем присваивать соответствующее значение этому элементу. Затем, при нажатии пользователем кнопки на Web-странице, приложение будет ориентироваться на значение этого элемента коллекции session для того, чтобы выбрать имя необходимого файла, в который будет записан отзыв удаленного пользователя. После этого соответствующий файл будет открыт для добавления данных в него, и в него следует записать тот текст, который ввел пользователь в текстовое поле. После того, как данные будут записаны в файл, его следует закрыть, изменить текст элемента Labei2, чтобы показать пользователю, что его отзыв принят, а также скрыть поле текстового ввода и кнопку отсылки данных, чтобы предотвратить повторный ввод комментария. На самом деле следует несколько более тщательно отслеживать ввод повторных комментариев, с запоминанием пользователя, который уже установил отзыв, но сейчас мы не будем останавливаться на подобном механизме отслеживания. Приемы идентификации пользователей будут описаны несколько позже.

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

Листинг 3.23

Public Class WebForml

Inherits System.Web.UI.Page

Protected WithEvents Imagel As System.Web.UI.WebControls.Image Protected WithEvents Labell

As System.Web.UI.WebControls.Label Protected WithEvents Label2

As System.Web.UI.WebControls.Label Protected WithEvents TextBoxl

As System.Web.UI.WebControls.TextBox Protected WithEvents Buttonl

As System.Web.UI.WebControls.Button Protected WithEvents ListBoxl

As System.Web.UI.WebControls.ListBox

tRegion " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeConponent()

End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init

'CODEGEN: This method call is required by the Web Form Designer 'Do not modify it using the code editor. Initializecomponent()

End Sub

fEnd Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles MyBase.Load

'Put user code to initialize the page here Session.Add("ch", 0)

End Sub

Private Sub ListBoxl_SelectedIndexChanged(ByVal sender

As System.Object, ByVal e As System.EventArgs) .Handles ListBoxl.Selectedlndexchanged

Dim i As Integer

Dim s As String

i = FreeFileO

Labell.Text = "Ваш отзыв о книге"

TextBoxl.Text = ""

TextBoxl.Visible = True

Buttonl.Visible = True

If ListBoxl.Selectedlndex = 0 Then

Imagel.ImageUrl = "l.gif"

FileOpen(i, "d:\l.txt", OpenMode.Input)

s = Linelnput(i)

FileClose(i)

Labell.Text = s

Session.Item("ch") = 0 End If If ListBoxl.Selectedlndex = 1 Then

Imagel.ImageUrl = "2.gif"

FileOpen(i, "d:\2.txt", OpenMode.Input)

s = Linelnput(i)

FileClose(i)

Labell.Text = s

Session. Item("ch") = 1 End If If ListBoxl . Selectedlndex = 2 Then

Imagel . ImageUrl = "3.gif"

FileOpen(i, "d: V3.txt", OpenMode. Input)

s = Linelnput(i)

FileClose(i)

Label 1. Text = s

Session. Item ("ch") = 2 End If

Imagel. Visible = True Labell. Visible = True End Sub

Private Sub Buttonl_Click (ByVal sender As System. Object, ByVal e

As System. EventArgs) Handles Buttonl . Click

Dim s As String

Dim fn As String

Dim i As Integer

s = TextBoxl . Text

If Session. Item ("ch") = 0 Then

fn = "d:\opl.txt" End If If Session. Item ("ch") = 1 Then

fn = "d:\op2.txt" End If If Session. Item ("ch") = 2 Then

fn = "d:\op3.txt" End If

i = FreeFile ( )

FileOpen(i, fn, OpenMode. Append) WriteLine(i, s)

Label2.Text = "Ваш отзыв принят" TextBoxl. Visible = False Buttonl.

Visible = False FileClose(i)

End Sub

End Class

Рассмотрим листинг чуть более подробно. При загрузке страницы обрабатывается событие page_Load. В этом обработчике мы создаем элемент коллекции объекта session с наименованием ch. В данном случае мы используем объект Session, а не Application для того, чтобы каждый удаленный пользователь обладал собственным элементом коллекции. Если бы мы использовали объект Application, то на всех пользователей был бы выделен один элемент коллекции, и они могли бы пытаться использовать его одновременно, портя, таким образом, данные друг для друга.

Когда пользователь выбирает тот или иной пункт списка, приложение вызывает обработчик события ListBoxl_SelectedIndexChanged. Мы уже стал кивались с ним в предыдущих примерах, однако сейчас в этот обработчик добавлено несколько новых строк кода. Прежде всего, стоит обратить внимание на начало обработчика, где органы управления, ответственные за получение отзыва о книге, приводятся в начальное состояние. Также добавлены операторы, устанавливающие значение используемого элемента коллекции Session.

Большая часть функциональности, связанной с обработкой данных, введенных удаленным пользователем, сосредоточена в обработчике нажатия кнопки Buttoni_ciick. Сначала в переменную s типа string заносится содержимое свойства Text элемента TextBoxi. Затем, опираясь на значение элемента коллекции session, в переменную fn заносится имя файла, в который будет записываться отзыв посетителя. При помощи функции FreeFile в целочисленную переменную i заносится значение свободного дескриптора для файла, и при помощи этого дескриптора открывается соответствующий файл. Файл открывается в режиме openMode. Append, что позволяет дозаписывать в него информацию. А после этого при помощи функции writeLine в открытый файл записывается отзыв посетителя сайта, и файл закрывается. Также прячутся от пользователя компоненты TextBoxi и Buttoni, а свойству Text компонента Labei2 придается значение "Ваш отзыв принят".

HTML-код страницы в тот момент, когда пользователь только выбрал какой-либо элемент списка, ввел комментарий для книги, но не отправил его %* на сервер, приведен в листинге 3.24.

Листинг 3.24

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML>

<HEAD>

<title></title>

<META content="Microsoft Visual Studio.NET 7.0" name="GENERATOR">

<META content="Visual Basic 7.0" name="CODE_LANGUAGE">

<META content="JavaScript" name="vs_defaultClientScript">

<МЕТА content=http://schemas.microsoft.com/intellisense/ie5

name="vs_targetSchema"> </HEAD> <BODY MS_POSITIONING="GridLayout">

<form name="Forml" method="post" action="WebForml.aspx" id="Forml">

<input type="hidden" name="__VIEWSTATE"

value="dDwtNzUyMjUwNTQ103Q802'w8aTwxPjs+02w8dDw7

bDxpPDE+02k8Mz47aTwlPjs+02 w8dDxOPDs7bDxpPDE+Oz4+Ozs+03Q8cDxwPGw8SWlhZ2W

cmw7VmlzaWJsZTs+02w8Mi5naWY 7bzxOPjs+Pjs+Ozs-r03Q8cDxwPGw8VGV4dDtWaXNpYmxlO

z47bDzQktGCOL7RgNCwOY8gOLDQ vdC90L7RgtCwOYbQuNGP0288dD47Pj47Pjs7Pjs+Pjs+Pjs+" />

<select name="ListBoxl" id="ListBoxl" size="3"

onchange="__doPostBack('ListBoxl','')" language="javascript"

style="height:79px;width:187px;Z-INDEX: 101; LEFT: 22px; POSITION: absolute;

TOP: 19px">

<option value="l">MHTerpanbHbie микросхемы</ор!:1оп>

<option selected="selected" value="2">KoHKpeTHaH математика</ор^оп>

<option value="3">ManMHHaH гpaфикa</option>

</select>

<img id="Imagel" src="/image/2.gif" border="0"

style="height:128px;width:135px;Z-INDEX: 102; LEFT: 302px; POSITION: absolute;

TOP: 24px" />

<span id="Labell" style="height:43px;width:249px;Z-INDEX: 103; LEFT: 22px; POSITION: absolute;

TOP: 104рх">Вторая аннотация</зрап>

<span id="Labe!2" style="Z-INDEX: 104; LEFT: 25px; POSITION: 'absolute; TOP: 169рх">Ваш отзыв о книге</зрап>

<textarea name="TextBoxl" id="TextBoxl"

style="height:89px;width:407px;Z-INDEX: 105; LEFT: 29px; POSITION: absolute;

TOP: 193px"x/textarea>

<input type="submit" name="Buttonl" value="Оставить отзыв" id="Buttonl"

style="height:24px;width:192px;Z-INDEX: 106; LEFT: 29px; POSITION: absolute;

TOP: 298px" />

<input type="hidden" name="__EVENTTARGET" value="" />

<input type="hidden" name="__EVENTARGUMENT" value="" />

<script language="javascript"> <! — function __doPostBack(eventTarget, eventArgument) {

var theform = document.Forml;

theform.__EVENTTARGET.value = eventTarget;

theform.__EVENTARGUMENT.value = eventArgument;

theform.submit(};

</script>

</form>

</BODY>

</HTML>

Листинг 3.25

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML>

<HEAD>

<titlex/title>

<META content="Microsoft Visual Studio. NET 7.0" name="GENERATOR">

<META content="Visual Basic 7.0" name="CODE_LANGUAGE">

<META content=" JavaScript" name="vs_defaultClientScript">

<META content=http: //schemas .microsoft . com/intellisense/ie5

name="vs_targetSchema">

</HEAD>

<BODY MS_POSITIONING="GridLayout">

<form name="Forml" method="post" action="WebForml.aspx" id="Forml">

<input type="hidden" name="_VIEWSTATE"

value="dDwtNzUyMjUwNTQ103Q802w8aTwxPjs+

02w8dDw7bDxpPDE+02k8Mz47aTwlPjtpPD

c+02k80T47aTwxMT47PjtsPHQ8dDw702w8aTwxPjs+

Pjs7PjtOPHA8cDxsPEltYWdlVXJs01Z

pc21ibGU7PjtsPDIuZ21m0288dD47Pj47Pjs7PjtOPH

A8cDxsPFRleHQ7VmlzaWJsZTs+02w8

OJLRgtC+OYDQsNGPINCwOL3QvdC+OYLQsNGGOLjRjz

tvPHQ+Oz4+Oz470z47dDxwPHA8bDxUZ

XhOOz47bDzQktCwOYggOL7RgtC30YvQsiDQv9GAOLjQ

vdGPOYI7Pj47Pjs7PjtOPHA8cDxsPF

RleHQ7VmlzaWJsZTs+02w80JjQvdGCOLXRgNC10YHQv

dCwOY8gOLrQvdC40LPQsC4NCtCcOL3

QtSDQv9C+OL3RgNCwOLLQuNC70LDRgdGMLi4u0288Zj4

7Pj47Pjs7PjtOPHA8cDxsPFZpc21i

bGU7Pjts?G88Zj47Pj47Pjs7Pjs+Pjs+Pjs+" />

<select name="ListBoxl" id="ListBoxl" size="3" onchange^" _ doPostBack ( 'ListBoxl ','')" language=" javascript" style="height:79px;width:187px;Z-INDEX: 101;

LEFT: 22px; POSITION: absolute;

TOP: 19px">

<option value="l">Интeгpaльныe MMKpocxeMbi</option>

<option selected="selected" value="2">KoHKpeTHaH MaT6MaTHKa</option>

<option value="3">MamMHHaH гpaфикa</option>

</select>

<img id="Imagel" src="/image/2.gif " bordef="0"

style="height:128px;width:135px;Z-INDEX: 102;

LEFT: 302px; POSITION: absolute;

TOP: 24px" />

<span id="Labell" style="height:43px;width:249px;Z-INDEX: 103;

LEFT: 22px; POSITION: absolute; TOP: 104рх">Вторая аннотация</зрап>