Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Проект Доска объявлений
Проект Поздравительная открытка
Проект Расписание сеансов
Сначала проверяется, вошел ли пользователь на данную страницу путем выбора категории на домашней странице:
-
If Len(Request.QueryString("CategorylD")) Then
-
DBCommand = New•OleDbDataAdapter _
("Select CategoryName from Categories " _
& "Where CategqrylD= " _
& Request.QueryString("CategorylD"), DBConn)
-
DBCommand.Fill(DSPageData, _
"CategoryName")
-
DBCommand = New OleDbDataAdapter _
("Select ClassifiedID, TitleText, " _
& "Convert(varchar(12),DatePlaced,107) " _
& "as TheDate, Price from Classifieds " _
& "Where CategorylD = " _
& Request.QueryString("CategorylD") _
& " Order By DatePlaced DESC" _
, DBConn)
-
DBCommand.Fill(DSPageData, _
"Ads")
-
IblMessage.Text = "В категории "'"' _
& DSPageData.Tables("CategoryName"). _
Rows (0) .Item ("CategoryNaine") _
& """ имеется " _
& DSPageData.Tables("Ads").Rows.Count _
& " объявлений."
-
dgAds.DataSource = _
DSPageData.Tables("Ads").DefaultView
dgAds.DataBind
-
Elself Len(Request.QueryString("SearchTerm")) Then
-
DBCommand = New OleDbDataAdapter _
("Select ClassifiedID, TitleText, "
& "Convert(varchar(12),DatePlaced,107) " _
& "as TheDate, Price from Classifieds " _
& "Where TitleText Like '%"
& Replace (Request. QueryString ("SearchTerm"), "'","'")_
& "%' or Description Like '%" _
& Replace(Request.QueryString("SearchTerm"), "'", "'"') _
& "%' Order By DatePlaced DESC" _
, DBConn)
-
DBCommand.Fill(DSPageData, _
"Ads")
-
dgAds.DataSource = _
DSPageData.Tables("Ads").DefaultView
dgAds.DataBind
-
IblMessage.Text = "Искомое слово """ _
& Request.QueryString("SearchTerm") _
& """ было найдено в " _
& DSPageData.Tables("Ads").Rows.Count _
& " объявлениях."
-
Response.Redirect("./index.aspx")
 |
 |
|
