Проект Чат
Проект Запрос SQL
Проект Совет дня
Проект Полезные ссылки

Сначала в процедуре проверяется, не используется ли введенный посетителем чат-псевдоним. Делается это посредством вызова метода BinarySearch объекта Аг-rayList. В качестве параметров данному методу передаются искомый текст (в нашем случае — введенное имя) и условие, что при поиске не учитывается регистр клавиатуры. Другими словами, текст «Боб» будет соответствовать тексту «БОБ».

Метод возвращает позицию найденного текста в массиве. Если текст не был найден, возвращается отрицательное число. Следовательно, числа от нуля и выше свидетельствуют о том, что чат-псевдоним найден:

If ChatNames.BinarySearch _
(txtChatName.Text, New CaselnsensitiveComparer) >= 0 Then

IblMessage.Text = " Введенное имя уже используется " _
& "другим участником чата."

ChatNames.Add(txtChatName.Text)

Session("ChatName") = txtChatName.Text

DBConn = New OleDbConnection("Provider=sqloledb;" __
& "server=localhost;" _
& "Initial Catalog=INETC13;" _
& "User Id=sa;" _
& "Password=yourpassword; ")

DBInsert.CommandText = "Insert Into Chats " _
& "(WhenEntered, EnteredBy, EnteredTo, TheMessage) " _
& "values (" _
& " ' " & Now ()&"',"_
& " ' Сервер', " _
& " ' Всем', " _
& '"<B>" & Session("ChatName") & " вошел " _
& "в чат.</В>')"

DBInsert.Connection = DBConn
DBInsert.Connection.Open

DBInsert.ExecuteNonQuery()

DBCommand = New OleDbDataAdapter _
("Select Max(ChatlD) as MaxID "
& "from Chats " _
,DBConn)

DBCommand.Fill(DSStartingPoint, _
"StartingPoint")

Session("StartingPoint") = DSStartingPoint.Tables("StartingPoint"). _
Rows(0).Item("MaxID")

Response.Redirect("./chat.aspx")

На странице Чат заданы два кадра. При загрузке страницы выполняется следующий блок кода:

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Len(Session("ChatName")) = 0 Then
Response.Redirect("./index.aspx")
End If
End Sub

If Len(Session("ChatName")) = 0 Then

Если участник не зарегистрирован, он направляется на страницу Регистрация. Это предотвращает просмотр сообщений чата без предварительной регистрации.