Знакомство с ASP.NET

Что еще нужно знать об ASP.NET

Взаимодействие с клиентом

Создание интерактивных приложений для intranet-сетей

Расширение функциональных возможностей intarnet

Создание спортивного Web-узла

Управление содержимым Web-узла

Отслеживание действий посетителейa

Виртуальный университет

 Использование специализированных приложений на узлах компаний

Виртуальная риэлтерская контора

Персонализация узла для посетителей

Интерактивные возможности узла

Увеличение посещаемости узла

Создание интерактивного магазина

Создание интерактивного аукциона

Web-службы

Справочник по языку ASP.NET/VB.

Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET". Москва: BHV, 2002.

Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов


Проект Анкета
Проект Подробности
Проект Поиск магазина

Следующая процедура выполняется при выборе значения в элементе DropDownList. Она заполняет элемент DataGrid данными в соответствии с выбранным почтовым индексом.

    Sub ddl_Change(Sender As Object, E As EventArgs)
    Dim DBConh as OleDbConnection
    Dim DBCommand As OleDbDataAdapter
    Dim DSPageData as New DataSet
    DBConn = New OleDbConnection("Provider=sqloledb;" _
    & "server=localhost;" _
    & "Initial Catalog=INETC3;"
    & "User Id=sa;" _
    & "Password=yourpassword;")
    DBCommand = New OleDbDataAdapter _ ("Select FriendlyName as [Название], " _
    & "StoreAddress as [Адрес], " _
    & "StoreDirections as [Как проехать] " _
    & "From StoreLocations Where " _
    & "ZipCode = '"
    & ddlZipCode.Selectedltem.Text
    & "' Order By FriendlyName " _ , DBConn)
    DBCommand.Fill(DSPageData, ._ "Stores")
    dgStores.DataSource = _
    DSPageData.Tables("Stores").DefaultView
    dgStores.DataBind()
    End Sub

Из базы данных выбираются сведения обо всех магазинах, соответствующих заданному почтовому индексу:

    DBCommand = New
    OleDbDataAdapter _ ("Select FriendlyName as [Название], " _
    & "StoreAddress as [Адрес], " _
    & "StoreDirections as [Как проехать] " _
    & "From StoreLocations Where " _
    & "ZipCode = '"
    &
    ddlZipCode.Selectedltem.Text _
    & "' Order By FriendlyName " _
    , DBConn)

и помещаются в объект DataSet:

    DBCommand.Fill(DSPageData, _ "Stores")

к которому привязывается элемент DataGrid:

    dgStores.DataSource=_ DSPageData.Tables("Stores").DefaultView
    dgStores.DataBind()

Третья процедура на этой странице выполняется при щелчке на одном из заголовков столбцов в элементе DataGrid. Она обеспечивает сортировку данных по соответствующему столбцу:

    Sub Sort_Grid(ByVal Sender as Object, _ ByVal
    E as DataGridSortConunandEventArgs)
    Dim DBConn as OleDbConnectionDim DBCommand As OleDbDataAdapter
    Dim DSPageData as New DataSet
    Dim SortField as StringIf E.SortExpression.ToStringO -
    "Название"Then SortField = "FriendlyName"
    Elself E.SortExpression.ToStringO - "Адрес"
    Then SortField ="StoreAddress"
    Else SortField = "StoreDirections"
    End If
    DBConn= New OleDbConnection("Provider=sqloledb;" _
    & "server= localhost;" _
    &"Initial Catalog = INETC3;" _
    & "User Id = sa;"
    & "Password = yourpassword;")
    DBCommand = New OleDbDataAdapter _ ("Select FriendlyName as [Название], " _
    & "StoreAddress as [Адрес], " _
    & "StoreDirections as [Как проехать) " _
    & "From StoreLocations Where " _
    & "ZipCode = '"
    & ddlZipCode.Selectedltem.Text _
    & "' Order By "
    & SortField _ , DBConn)
    DBCommand.Fill(DSPageData, _ "Stores")
    dgStores.DataSource = _
    DSPageData.Tables("Stores").DefaultView
    dgStores.DataBind()
    End Sub

Объявляется переменная для хранения имени поля, по которому выполняется сортировка данных:

    Dim SortField as String

Заголовок столбца, на котором щелкнул посетитель, определяется посредством объекта SortExpression.Следующий оператор проверяет,не щелкнул ли посетитель на заголовке столбца с названием магазина:

    If E.SortExpression.ToStringO - "Название" Then

В случае щелчка на заголовке столбца с названием необходимо произвести сортировку по содержимому поля FriendlyName:

    SortField = "FriendlyName"

Иначе проверяется, не щелкнул ли посетитель на заголовке столбца с адресом магазина:

    Elself
    E.SortExpression.ToStringO = "Адрес"
    Then SortField = "StoreAddress"

Если такой щелчок не был выполнен, то, очевидно, посетитель щелкнул на заголовке Как проехать:

    Else SortField = "StoreDirections"

После этого устанавливается соединение с базой данных, из которой выбирается информация о магазинах для заполнения элемента управления DataGrid, но на этот раз она сортируется по выбранному посетителем полю:

    DBCommand = New
    OleDbDataAdapter _
    ("Select FriendlyName as [Название]/ " _
    & "StoreAddress as [Адрес], " _
    & "StoreDirections as [Как проехать] " _
    & "From StoreLocations Where " _
    & "ZipCode = '"
    & ddlZipCode.Selectedltem.Text _
    & '" Order By5 "=
    & SortField _ , DBConn)

Приведенные данные помещаются в объект Data Set:

    DBCommand.Fill(DSPageData, _ "Stores")

который связывается с элементом управления DataGrid:

    dgStores.DataSource = _
    DSPageData.Tables("Stores").DefaultView
    dgStores.DataBind()

Hosted by uCoz