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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Web-службы

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

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

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


Проект Конструктор
Проект Поиск решения
Проект Бронирование номеров

Поскольку мы определим собственные столбцы, функцию автоматического создания столбцов надлежит отключить:

    AutoGenerateColumns="false"

Определим вид и размер таблицы, а также ее составляющие:

    Width="90%"
    BackColor="#ccccff"
    BorderColor="black"
    ShowFooter="false"
    CellPadding=3
    CellSpacing="0"
    Font-Name="Verdana"
    Font-Size="8pt" .
    HeaderStyle-BackColor="#aaaadd"

При щелчке посетителя на одной из ссылок в таблице активизируется процедура Click_Grid:

    OnItemCommand="Click_Grid"

После этого необходимо создать столбцы элемента DataGrid:

    <Columns>

Первый столбец связан с полем объекта Data Set:

    <asp:BoundColumn
    HeaderText="Выбранный объект"

Этим полем является choiceText:

    DataField="ChoiceText"
    Второй столбец
    <asp:BoundColumn
    HeaderText="Щeлкнитe здесь для замены объекта"

связан с идентификатором объекта выбора и не виден посетителю:

    DataField="OrderChoiceID"
    Visible="False"
    />

Как вы убедитесь в дальнейшем, он используется в коде.

Третий столбец содержит ссылки:

    <asp:ButtonColumn
    HeaderText=''Замена объекта"
    ButtonType="LinkButton"
    Text=''Изменить "
    CommandName"="cmdModifyItem"
    />

С данной страницей связаны две процедуры. Первая процедура активизируется во время загрузки страницы.

    Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
    If Len(Session("ObjectOrderlD")) = 0 Then
    Response.Redirect("./index.aspx")
    End If
    Dim DBConn as OleDbConnection
    Dim DBCommand As OleDbDataAdapter
    Dim DSSummaryData as New DataSet
    DBConn = New OleDbConnection("Provider=sqloledb;" _
    & "server=localhost;" _
    & "Initial Catalog=INETCIO;"
    & "User Id=sa;" _
    & "Password=yourpassword;")
    DBCommand = New OleDbDataAdapter _
    ("Select ChoiceText, OrderChoicelD "
    & "from OrderChoices " _
    & "Where ObjectOrderlD = " _
    & Session ("ObjectOrderlD"),DBConn)
    DBCommand.Fill(DSSummaryData, _
    "Gridlnfo")
    DBCommand = New OleDbDataAdapter _
    ("Select Sum(ChoiceCpst) as TheTotal "
    & "from OrderChoices " _
    & "Where ObjectOrderlD = " _
    & Session("ObjectOrderlD"),DBConn)
    DBCommand.Fill(DSSummaryData, _
    "OrderTotal")
    dgSummarylnfo.DataSource = _
    DSSummaryData.Tables("Gridlnfo").DefaultView
    dgSummarylnfо.DataBind()
    IblTitle.BorderWidth = New Onit("7px")
    IblTitle.BorderStyle = 9
    IblTitle.Width = New Unit("90%")
    IblTitle.Font.Size = New FontOnit("25pt")
    IblTitle.Font.Name = "Arial"
    IblTitle.Text = Application("TitleText")
    IblTotal.Width = New Unit("90%")
    IblTotal.BorderWidth = New Unit("4px")
    IblTotal.BorderStyle = 9
    IblTotal.Font.Size = New FontUnit("12pt")
    IblTotal.Font.Bold = True
    IblTotal.Font.Name = "Verdana"
    IblTotal.Text = "Сумма заказа: " _
    & FormatCurrency( _
    DSSummaryData.Tables("OrderTotal").Rows(O).Item("TheTotal"))
    End Sub

Hosted by uCoz