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

Страница Основной кадр используется для отображения всех сообщений, отправленных участником чата, адресованных лично ему или всем участникам. На странице содержится важный HTML-тег Meta:

<МЕТА HTTP-EQUIV="REFRESH" CONTENT="15;URL=body_chat.aspx">

Этот тег обеспечивает отображение новых сообщений для участника чата, обновляя содержимое страницы каждые 15 секунд.

<asp:Label
id="lblTitle"
BorderWidth="5px"
BorderStyle=6
Width="90%"
Font-Size="25pt"
Font-Name="Trebuchet MS"
Text="<CENTER>чaт</CENTER>"
runat="server"
/>

<ASP:DataGrid
id="dgChats"
гunat="server"
Width="90%"
BackColor="#ccccff"
BorderColor="black"
CellPadding=3
Cellspacing="0"
Font-Name="Trebuchet MS"
Font-Size="8pt"
ForeColor="Black"
HeaderStyle-BackColor="taaaadd"
/>

Sub Page_Load(ByVal Sender as Object, ByVal E as BventArgs)
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSChats as New DataSet
DBConn = New OleDbConnection("Provider-sqloledb;" _
& "server-localhost;" _
& "Initial Catalog=INETC13;"
& "User Id=sa;" _
& "Password=yourpassword;")
DBCommand = New OleDbDataAdapter _
("Select EnteredBy as [От], " _
& "EnteredTo as [Кому], " _
& "TheMessage as [Сообщение] from Chats " _
& "Where ChatID >= " & Session("StartingPoint") _
& " and (EnteredTo = 'Всем' or EnteredTo - "' _
& Session("ChatName") & "' or EnteredBy = "'
& Session("ChatName") & "') Order By " _
& "WhenEntered",DBConn)
DBCommand.Fill(DSChats, _
"TheChats")
dgChats.DataSource = _
DSChats.Tables("TheChats").Defaultview
dgChats.DataBind
End Sub

DBCommand - New OleDbDataAdapter _
("Select EnteredBy as [От], "
& "EnteredTo as [Кому], "
& "TheMessage as [Сообщение] from Chats " _

& "Where ChatID >= " & Session("StartingPoint") _

& " and (EnteredTo = 'Всем' or EnteredTo = '" '_

& Session("ChatName") & "' or EnteredBy= '" _

& Session("ChatName") & "') Order By " _
& "WhenEntered",DBConn)

DBCoiranand.FilKDSChats, _
"TheChats")

dgChats.DataSource = _
DSChats.Tables("TheChats").DefaultView
dgChats.DataBind