Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Проект Чат
Проект Запрос SQL
Проект Совет дня
Проект Полезные ссылки
Объект ArrayList напоминает массив: он позволяет хранить группу элементов. Мы можем добавлять элементы в массив и удалять их оттуда. Как вы увидите при рассмотрении одной из страниц, в таком массиве можно даже осуществлять поиск.
В нашем случае массив содержит список всех чат-псевдонимов и позволяет удостовериться в том, что посетитель вводит никем не занятый чат-псевдоним. Помимо этого, данный массив применяется для заполнения элемента DropDown-List на странице Чат.
Следующие две строки кода в файле Global.asax служат для импорта библиотек, необходимых для работы кода в файле:-
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OLEDB" %>
-
Sub Application_OnStart
ChatNames.Add ("Всем")
End Sub
Псевдоним «Всем» добавляется кодом в список участников при запуске приложения. Таким образом предотвращается возможность использования участником чата этого зарезервированного имени.
Ниже приведен блок кода, выполняемый по завершении сеанса участника, то есть тогда, когда-таковой покидает чат.-
Sub SessionjOnEnd
Dim DBConn as OleDbConnection
Dim DBInsert As New OleDbCoiranand
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "serverrlocalhost;" _
& "Initial Catalog=INETC13;"
& "User Id=sa;" _ v
& "Password=yourpassword;")
DBInsert.CommandText = "Insert Into Chats " _
& "(WhenEntered, EnteredBy, EnteredTo, TheMessage) " _
& "values (" _
& " '" & Now ()&'","_
& "'Сервер', "
& "'Всем', "
& "'<В>" & Session("ChatName") & " покинул " _
& "чат.</В>')"
DBInsert.Connection = DBConn'
DBInsert.Connection.Open
DBInsert.ExecuteNonQuery()
ChatNames.Remove (Session("ChatName"))
End Sub
-
DBInsert.CommandText = "Insert Into Chats " _
& "(WhenEntered, EnteredBy, EnteredTo, TheMessage) " _
& "values ("
& " ' " & Now ()&"',"_
& "'Сервер', " _
& "'Всем', "
& n'<B>" & Session("ChatName") & " покинул " _
& "чат.</В>')"
-
OBInsert.Connection = DBConn
DBInsert.Connection.Open
BBInsert.ExecuteNonQuery()
-
ChatNames.Remove (Session("ChatName"))
Назначение страницы Регистрация состоит во включении посетителя в число участников чата. Посетитель должен ввести чат-псевдоним, а код страницы проверит, используется уже кем-то этот псевдоним или нет.
На странице задается элемент управления Label, предназначенный для вывода на экран текста заголовка:-
<asp:Label
id="lblTitle"
BorderWidth="5px"
BorderStyle=6
Width="90%"
Font-Size="25pt"
Font-Name="Trebuchet MS"
Text=''Добро пожаловать на узел Чат"
runat="server"
-
<asp:Label
id="lblMessage"
Font-Size="12pt"
Font-Name="Trebuchet MS"
runat="server"
 |
 |
|
