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

<asp:TextBox
id="txtChatName"
Columns="25"
MaxLength="30"
runat=server

<asp:RequiredFieldValidator
id="гfvMembe rName"
ControlToValidate="txtChatName"
Display="Dynamic"
Font-Name="Trebuchet MS"
ForeColor="Yellow"
Font-Size="llpt"
runat=server>
Необходимо ввести имя!
</asp:RequiredFieldValidator>

<asp:RegularExpressionValidator id="revMemberName"
ControlToValidate-"txtChatName"
ValidationExpression="[^']*"
Display="Dynamic"
Font-Name="Trebuchet MS"
ForeColor="Yellow"
Font-Size="llpt"
runat=server>
Имя не должно содержать символ
</asp:RegularExpressionValidator>

ControlToValidate="txtChatName"

ValidationExpression-"[^']*"

Display="Dynamic"

Имя не должно содержать символ

<asp:button
id="butsignln"
text="Регистрация"
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"
/>

OnClick-"SubmitBtn_Click"

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
IblMessage.Text щ "Введите имя, которое "
& "вы хотите использовать в чате.*"
End Sub

IblMessage.Text = "Введите имя, которое " _
& "вы хотите использовать в чате."

Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
If ChatNames.BinarySearch _
(txtChatName.Text, New CaselnsensitiveComparer) >= 0 Then
IblMessage.Text = "Введенное имя уже используется " _
& "другим участником чата."
Else
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSStartingPoint as New DataSet
Dim DBInsert As New OleDbCommand
ChatNames.Add(txtChatName.Text)
Session("ChatName") = txtChatName.Text
DBConn - New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETCIS;"
& "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"). _
Rowa(O).Item("MaxID")
Response.Redirect("./chat.aspx")
End If
End Sub