Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Проект Доска объявлений
Проект Поздравительная открытка
Проект Расписание сеансов
Запрос, применяемый для извлечения названий и идентификаторов всех категорий, помещается в объект DataAdapter:
-
DBCommand = New OleDbDataAdapter _ ("Select * from Categories " _ S "Order By CategoryName", DBConn)
-
DBCommand.Fill(DSPageData, _
"Categories")
-
ddlCategorylD.DataSource = _
DSPageData.Tables("Categories").DefaultView
ddlCategoryID.DataBind()
-
Sub SubmitCategory_Click(Sender As Object, E As EventArgs)
Response.Redirect("./ad_list.aspx?CategoryID=" _
& ddlCategorylD.Selectedltem.Value)
End Sub
Этот код обеспечивает переход на страницу Список объявлений и передает ей идентификатор категории, выбранной пользователем.
Третья процедура запускается при щелчке на кнопке ОК в разделе поиска объявлений:-
Sub SubmitSearch_Click(Sender As Object, E As EventArgs)
Response.Redirect("./ad_list.aspx?SearchTerm=" _
& txtSearchWord.Text)
End Sub
Она также обеспечивает переход на страницу Список объявлений, но в этот раз передается текст для поиска.
С помощью кода страницы Список объявлений на экран выводится перечень всех объявлений, которые соответствуют критерию, заданному пользователем, независимо от того, ищет он конкретные объявления или хочет просмотреть все объявления определенной категории.
В первом элементе управления Label выводится заголовок страницы:-
<asp:Label
id="lblTitle"
BorderWidth-"7px"
Borderstyle-7
Width="90%"
Font-Size="25pt"
Font-Name="Comic Sans MS"
Text="<CENTER>CrmcoK объявлений</CENTER>"
runat="server"
/>
-
<asp:Label
id="lblMessage"
Font-Size="12pt"
Font-Name="Comic Sans MS"
runat="server"
/>
-
<ASP:DataGrid
id="dgAds"
AutoGenerateColumns="false"
Width="90%"
BackColor="beige"
AlternatingItemStyle-BackColor="cornsilk"
BorderColor="blaclc"
ShowFooter="false"
CellPadding=3
CellSpacing="0"
Font-Name="Comic Sans MS"
Font-Size="8pt"
ForeColor="Black"
HeaderStyle-BackColor="bur'lywood"
HeaderStyle-Font-Bold="True"
runat="server">
<Columns>
<asp:HyperLinkColumn
HeaderText=''Объявление (Щелкните для получения
дополнительной информации)"
DataNavigateUrlFieid="ClassifiedID"
DataNavigateUrlFormatString="./ad.aspx?ClassifiedID={0}"
DataTextField="TitleText"
Target="_self"
/>
<asp:BoundColumn
HeaderText=''Дата размещения"
DataField="TheDate"
/> <asp:BoundColumn
HeaderText""UeHa"
DataField="Price"
/>
</Columns>
</asp:DataGrid>
 |
 |
|
