ASP.NET. Учебный курс (Г.Бучек.)

рассмотрении одной из страниц, в таком массиве можно даже осуществлять поиск.

В нашем случае массив содержит список всех чат-псевдонимов и позволяет удостовериться в том, что посетитель вводит никем не занятый чат-псевдоним. Помимо этого, данный массив применяется для заполнения элемента DropDownList на странице Чат.

Следующие две строки кода в файле Global.asax служат для импорта библиотек, необходимых для работы кода в файле:

<%6 Import Namespace^"System.Data" %> <%6 Import Namespace—"Syatem.Data.OLEDB" %>

Затем задается код, который выполняется при запуске приложения:

чу

Sub Application_OnStart

ChatNames,Add ("Всем") End Sub

Псевдоним «Всем» добавляется кодом в список участников при запуске приложения. Таким образом предотвращается возможность использования участником чата этого зарезервированного имени.

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

Sub SessionjOnEnd

Dim DBConn as OleDbConnection Dim DBInsert As New OleDbCommand

DBConn - New OleDbConnection("Provider-sqloledb;" & "server-localhost;" 6 "Initial Catalog"INETCl3;" _ & "User Id-sa;" _ & "Password-yourpassword;") DBInsert.CommandText - "Insert Into Chats "

t "(WhefeEntered, EnteredBy, EnteredTo, TheMessage) " & "values (" & "?" ? Now() & "', " Б "'Сервер', " _ & "'Всем', " _ "

& "'<B>" & Session("ChatName") & " покинул " _ & "чат.</В>')" DBInsert.Connection - DBConn DBInsert.Connection.Open DBInsert.ExecuteNonQuery() ChatNames.Remove (Session("ChatName")) End Sub

Текст SQL-запроса помещается в объект Command. Этот запрос формирует сообщение всем участникам о том, кто покинул чат:

DBInsert.CommandText - "Insert Into Chats "

& "(WhenEntered, EnteredBy, EnteredTo, TheMessage) " _ & "values (" & "'" & Now() ь "', " & "'Сервер', " & "'Всем', "