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

Проект Совет дня

Приложение Совет дня отображает текст совета дня. Хотя совет можно выводить на любую страницу, мы помещаем таковой на страницу Совет дня.

При рассмотрении этого приложения обратите внимание на использование объекта Random с целью получения случайного числа для выбора совета.

Описание проекта

Страница Совет дня показана на рис. Совет состоит из заголовка и текста. Один и тот же совет используется при каждом просмотре страницы до изменения даты на сервере. После изменения даты отобразится новый, произвольно выбранный, совет.

База данных проекта

Таблица базы данных проекта хранит заголовок и текст совета. Обзор полей таблицы Tips дан в табл.

Код проекта

Код проекта Совет дня состоит из одной ASP.NET-страницы, которая будет описана в этом разделе.

Код на странице Совет дня предназначен для отображения текущего совета и произвольного извлечения совета при изменении даты.

<asp: Label
id="lblTitle"
BorderWidth="5px"
Borders tyle=6
Width=" 90%"
Font-Size="25pt" Font-Name="Trebuchet MS"
Text="<CENTER>CoBei дня</СЕМТЕК>"
runat=" server"

<asp: Label
id="lblMessage"
BorderWidth="3px"
BorderStyle=6
Font-Size="12pt"
Font-Name="Trebuchet MS"
Width="40%"
runat="server"
/>

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSTip as New DataSet
Dim MyRandom as New Random()
Dim RowNumber as Long
If Len(Application("TipDate")) = 0 Then
Application("TipDate") = Today()
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC13;"
& "User Id=sa;" _
& "Password=yourpassword;")
DBCommand = New OleDbDataAdapter _
("Select TipTitle, TipText from " _
& "Tips",DBConn)
DBCommand.Fill(DSTip, _
"Tips")
RowNumber = MyRandom.Next _
(0, DSTip.Tables("Tips").Rows.Count)
Application("CurrentTip") = "<B>" _ & DSTip.TablesC'Tips").Rows(RowNumber).Item("TipTitle") _
& "</BÞБBR>" _
& DSTip.Tables("Tips").Rows(RowNumber).Item("TipText")
Elself Application("TipDate") <> TodayO Then
Application("TipDate") = TodayO
DBConn = New OleDbConnection("Provider-sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC13;"
& "User Id=sa;" _
& "Password=yourpassword;")
DBCommand = New OleDbDataAdapter _
("Select TipTitle, TipText from " _
& "Tips",DBConn)
DBCommand.Fill(DSTip, _
"Tips")
RowNumber = MyRandom.Next _
(0, DSTip.Tables("Tips").Rows.Count)
Application("CurrentTip") = "<B>" _
& DSTip. Tables ("Tips") .Rows (RowNumber) . Item ("TipTitle".) _
& "</B><BR>" _
& DSTip.Tables("Tips").Rows(RowNumber).Item("TipText")
End If
IblMessage.Text = Application("CurrentTip")
End Sub

Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSTip as New DataSet

Dim MyRandom as New Random))

Dim RowNumber as Long

If Len(Application("TipDate")) - 0 Then

Application("TipDate") - Today()

DBCommand = New OleDbDataAdapter _
("Select TipTitle, TipText from " _
& "Tips",DBConn)

DBCommand.Fill(DSTip, _
"Tips")

RowNumber = MyRandom.Next _
(О, DSTip.Tables("Tips").Rows.Count)

Application("CurrentTip") = "<В>" _
& DSTip.Tables("Tips").Rows(RowNumber).Item("TipTitle") _
& "</B><BR>" _
& DSTip.Tables("Tips").Rows(RowNumber).Item("TipText")

Elself Application("TipDate") <> Today() Then

Application("TipDate") = TodayO

DBCommand - New OleDbDataAdapter _
("Select TipTitle, TipText from " _
& "Tips",DBConn)
DBCommand.Fill(DSTip, _
"Tips")

RowNumber= MyRandom.Next _
(О, DSTip.Tables("Tips").Rows.Count)
Application("CurrentTip") = "<B>" _
& DSTip.TablesC'Tips").Rows(RowNumber).Item("TipTitle") _
& "</B><BR>"
& DSTip.Tables("Tips").Rows(RowNumber).ItemC'TipText")

IblMessage.Text - Application("CurrentTip")