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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Web-службы

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

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

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


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

Представленная процедура определяет исходный текст и внешний вид страницы. Она должна выполняться при передаче идентификатора OrderChoiceiD со страницы Спецификация:

    If Len(Page.Request.QueryString("OrderChoiceiD")) = 0 Then

Если идентификатор не получен, посетитель перенаправляется на страницу Сборка компьютера:

Response.Redirect("./index.aspx")

Если же идентификатор выбранного объекта получен, он сохраняется в переменной сеанса, благодаря чему становится доступным при повторных обращениях к странице.

    Session ("CurrentOrderChoicelD") =_
    Page.Request.QueryString("OrderChoiceiD")

На страницу передается идентификатор элемента списка, выбранного посетителем на странице Спецификация. Однако нам необходимо извлечь из базы данных идентификатор конкретного компонента.

    DBCommand = New OleDbDataAdapter _
    ("Select ChoicelD from OrderChoices " _
    & "Where OrderChoiceiD = " _
    & Session("CurrentOrderChoicelD"),DBConn)
    DBCommand.Fill(DSQuestion, _
    "CurrentChoicelD")

Он, в свою очередь, используется для извлечения идентификатора соответствующего вопроса:

    DBCommand = New OleDbDataAdapter _
    ("Select ObjectQuestionID from QuestionChoices " _
    & "Where ChoicelD = " _
    & DSQuestion.Tables("CurrentChoicelD").Rows(O).Item("ChoiceID") _
    ,DBConn)
    DBCommand.Fill(DSQuestion, _
    "CurrentQuestionID")

Это значение применяется для получения информации, связанной с тем вопросом, который выводится на данной странице:

    DBCommand = New OleDbDataAdapter _
    ("Select ObjectQuestionID, " _
    & "ObjectQuestionText, PicPath, " _
    & "PicAltText from ObjectQuestions " _
    & "Where ObjectQuestionID = " _
    & DSQuestion.Tables("CurrentQuestionID"). _
    Rows(O) .Item("ObjectQuestionID") _
    ,DBConn)
    DBCommand.Pill(DSQuestion, _
    "CurrentQuestion")

Оно также учитывается при извлечении предлагаемых вариантов:

    DBCommand = New OleDbDataAdapter _
    ("Select ChoicelD, ChoiceText " _
    & "From QuestionChoices " _
    & "Where ObjecteQuestionID = " _
    & DSQuestion.Tables("CurrentQuestion"). _
    Rows(0).ItemC'ObjectQuestionID") _
    ,DBConn)
    DBCommand.Fill(DSQuestion, _
    "CurrentResponses")

Теперь, когда присутствуют все необходимые данные, можно определить внешний вид заголовка:

    IblTitle.BorderWidth = New Unit("7px")
    IblTitle.BorderStyle = 9
    IblTitle.Width = New Unit("90%")
    IblTitle.Font.Size = New FontUnit("25pt")
    IblTitle.Font.Name = "Arial"

а также задать его формулировку:

    IblTitle.Text - Application("TitleText") _
    & " - изменение"

После этого определяются параметры и содержимое элемента управления image:

    imgStepPicture.AlternateText = _
    DSQuestion.Tables("CurrentQuestion").Rows(0).Item("PicAltText")
    imgStepPicture.ImageUrl = _
    DSQuestion.Tables("CurrentQuestion").Rows(0).Item("PicPath")
    imgStepPicture.BorderWidth = New Unit("7px")

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

    IblQuestion.Font.Size = New FontUnit("12pt")
    IblQuestion.Font.Name = "Verdana"
    IblQuestion.Text = DSQuestion.Tables("CurrentQuestion"). _
    Rows(O).Item("ObjectQuestionText")

Список DropDownList должен быть связан с таблицей CurrentResponses объекта DataSet:

    ddlResponses.DataSource = _
    DSQuestion.Tables("CurrentResponses").DefaultView
    ddlResponses.DataBindO

Hosted by uCoz