
Проект Доска объявлений
Проект Поздравительная открытка
Проект Расписание сеансов
Код проекта
Приложение Доска объявлений состоит из пяти страниц ASP.NET. В настоящем разделе мы проанализируем код этих страниц, а также рассмотрим используемые элементы управления.
Домашняя страница
Домашняя страница содержит список категорий, по которым распределяются объявления, и ссылки для перехода на другие страницы узла.
В первом элементе управления Label выводится заголовок страницы:
<asp:Label
id="lblTitle"
BorderWidth="7px"
BorderStyle=7
Width="90%"
Font-Size="25pt"
Font-Name="Comic Sans MS"
Text="<CENTER>Доска объявлений</center>"
runat="server"
/>
Следующий элемент Label содержит инструкции по работе с данной страницей:
<asp:Label
id="lblMessagel"
Font-Size="12pt"
Font-Name="Comic Sans MS"
runat="server"
Text-''Выберите категорию для просмотра:"
/>
Полный перечень категорий демонстрируется в элементе управления DropDownList:
<asp:dropdownlist
id="ddlCategoryID"
runat-server
DataTextField="CategoryName"
DataValueField="CategoryID">
</asp:dropdownlist>
Посетитель видит в списке название категории:
DataTextField="CategoryName"
Однако в коде употребляется ее идентификатор:
DataValueField="CategoryID"
Далее в коде определяется кнопка, необходимая для просмотра объявлений по категориям:
<asp:button
'id="butCategory"
text=" OK "
Type="Submit"
OnClick="SubmitCategory_Click"
runat="server"
/>
Еще один элемент Label применяется для отображения инструкций, касающихся поиска объявлений:
<asp:Label
id="lblMessage2"
Font-Size="12pt"
Font-Name="Comic Sans MS"
runat="server"
Text="vuui введите искомое слово:"
/>
После него определяется элемент управления тextBox, предназначенный для ввода образца поиска:
<asp:TextBox
( id="txtSearchWord"
Columns="25"
MaxLength="50"
runat=server
/>
Наконец, описывается еще одна кнопка, посредством которой инициируется поиск объявлений по заданному образцу:
<asp:button
id="butSearch"
text=" OK "
Type="Submit"
OnClick="SubmitSearch_Click"
runat="server"
/>
Код страницы состоит из трех процедур. Первая процедура активизируется при загрузке страницы. С помощью этой части кода заполняется список DropDown-List.
Sub Page_Load(ByVal'Sender as Object, ByVal E as EventArgs)
If Not IsPostBack Then
Dim DBCqnn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New OleDbConnection("Provider=sqloledb;" _
5 "server=localhost;" _
6 "Initial Catalog=INETC14;" _
& "User Id=sa;"
& "Password=yourpassword;")
DBCommand = New OleDbDataAdapter _
("Select * from Categories " _
& "Order By CategoryName", DBConn)
DBCommand.Fill(DSPageData, _
"Categories")
ddlCategorylD.DataSource = _
DSPageData.Tables("Categories").DefaultView
ddlCategorylD.DataBind()
End If
End Sub
Dim DSPageData as New DataSet
|