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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Web-службы

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

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

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


Страница Турнирная таблица
Страница Календарь и результаты
Страница Команда
Страница Игрок
Страница Новости

Если следует отобразить таблицу по дивизионам, то нужно скрыть элемент управления Panel, отображающий турнирную таблицу по подгруппам:

    pnlConferenceView.Visible - False

и отобразить элемент управления Panel с турнирной таблицей по дивизионам:

    pnlDivisionView.Visible = True

Далее записываем сообщение, касающееся дивизионов, в элемент Label:

    IblMessage.Text = "Турнирная таблица по дивизионам на " _
    & Today & ". <А HREF=""./index.aspx?View-Conference"">" _
    & "Щелкните здесь для отображения таблицы по подгруппам."

Потом извлекаем имена команд Пустынного дивизиона, отсортированных по набранным очкам:

    DBCommand = New OleDbDataAdapter _
    ("Select '<A HREF-""./team.aspx?TeamID=' + "
    & "Convert(varchar(10), TeamID) + '"">' " _
    & "+ TeamCity +'.''+ TeamNickName + '' as " _
    & "[Пустынный дивизион (Щелкните для получения дополнительной
    & "информации)], " _
    & "Round((Convert(float, NumWins) / " _
    & "(NumWins + NumLoses)) * 100, 0) as [Очки], " _
    & "NumWins as [Победы], NumLoses as [Поражения] " _
    & "From Teams " _
    & "Where Division = 'Пустынный' " _
    & "Order By Convert(float, NumWins) / " _
    & "(NumWins + NumLoses) DESC" _
    , DBConn)

и помещаем их в объект DataSet:

    DBCommand.Fill(DSPageData, _
    "DesertDiv")

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

    dgDesertDivision.DataSource = _
    DSPageData.Tables("DesertDiv").DefaultView
    dgDesertDivision.DataBind()

Теперь извлекаем имена команд Горного дивизиона. Обратите внимание, что название команды будет отображаться в виде ссылки на страницу Команда:

    OBCommand = New OleDbDataAdapter _
    ("Select '<A HREF=""./team.aspx?TeamID=' + "
    "Convert(varehar(10), TeamID) + '"">' "
    "+ TeamCity + ' ' + TeamNiclcName + '' as " _
    "[Горный дивизион (Щелкните для получения дополнительной" _
    "информации)], " _
    "Round«Convert(float, NumWins) / "
    "(NumWins + NumLoses)) * 100, 0) as [Очки], " _
    "NumWins as [Победы], NumLoses as [Поражения] " _
    "From Teams " _
    "Where Division = Торный' " _
    "Order By Convert(float, NumWins) / " _
    ", (NumWins + NumLoses) DESC"
    , DBConn)

Эти записи в дальнейшем помещаются в другой элемент управления DataGrid:

    dgMountainDivision.DataSource -
    DSPageData.Tables("MountainDiv").DefaultView
    dgMountainDivision.DataBind()

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

    DBCommand - New OleDbDataAdapter _
    ("Select '<A HREF=""./team.aspx?TeamID=' + "
    "Convert(varehar(10), TeamID) + '"">' "
    "+ TeamCity + ' ' + TeamNickName + '' as " _
    "[Озерный дивизион (Щелкните для получения дополнительной" _
    "информации)], " _
    "Round((Convert(float, NumWins) / "
    "(NumWins + NumLoses)) * 100, 0) as Точки],, " _
    "NumWins as [Победы], NumLoses as [Поражения] " _
    "From Teams " _
    "Where Division = 'Озерный' " _
    "Order By Convert(float, NumWins) / "
    "(NumWins + NumLoses) DESC"
    , DBConn)

Эта таблица объекта DataSet использована в третьем элементе управления DataGrid:

    dgLakeDivision.DataSource = _
    DSPageData.Tables("LakeDiv").DefaultView
    dgLakeDivision.DataBind()

Еще одна таблица объекта DataSet должна быть сформирована для команд Южного дивизиона:

    DBCommand - New OleDbDataAdapter _
    ("Select '<A HREF-""./J;eam.aspx?TeamID-' + "
    & "Convert(varchardor; TeamID) '"">" "_
    & "+ TeamCity + ' ' + TeamNickName + '' as " _
    & "[Южный дивизион (Щелкните для получения дополнительной информации)]; "
    & "Round((Convert (float, NumWins> / " _
    & "(NumWins + NumLoses)) * 100, 0) as [Очки], " _
    & "NumWins аз [Победы], NumLoses as [Поражения] " _
    & "From Teams " _
    & "Where Division = 'Южный' " _
    & "Order By Convert(float, NumWins) / " _
    & "(NumWins + NumLoses) DESC"
    , DBConn)

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

    dgDeepSouthDivision.DataSource = _
    DSPageData.Tables("DeepSouthDiv").DefaultView
    dgDeepSouthDivision.DataBind()

Далее следует код для вывода турнирной таблицы по подгруппам. В этом случае нужно отобразить элемент управления Panel с таблицей по подгруппам:

    pnlConferenceView.Visible = True

и скрыть элемент управления Panel с таблицей по дивизионам:

    pnlDivisionView.Visible = False

Также надлежит показать другое сообщение в элементе управления Label:

    IblMessage.Text = "Турнирная таблица по подгруппам на " _
    6 Today & ". <А HREF=""./index.aspx?View=Division"">" _
    & "Щелкните здесь для отображения таблицы по дивизионам."

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

    DBCommand = New OleDbDataAdapter
    ("Select '<A HREF=""./team.aspx?TeamID='+ "
    & "Convert (varchar (10), TeamID) + '"">' " _ "
    & "+ TeamCity + ' ' + TeamNickName + '' as " _
    & "[Западная подгруппа (Щелкните для получения дополнительной" _
    "информации)], " _
    "Round((Convert(float, NumWins) / " _
    "(NumWins + NumLoses)) * 100, 0) as [Очки], "
    "NumWins as [Победы], NumLoses as [Поражения] " _
    "From Teams " _
    "Where Conference= 'Западная' " _
    & "Order By Convert(float, NumWins) / " _
    &"(NumWins + NumLoses) DESC" _
    , DBConn}

и поместить их в таблицу объекта DataSet:

    DBCommand.Fill(DSPageData, _
    "WestConf")

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

    dgWestConference.DataSource = _
    DSPageData.Tables("WestConf").DefaultView
    dgWestConference.DataBind()

На данном этапе нужно извлечь названия команд Восточной подгруппы:

    DBCommand - New OleDbDataAdapter _
    ("Select '<A HREF=""./team.aspx?TeamTD=« + " _
    & "Convert(varcharf10), TeamID) + '"">' " _
    & "+ TeamCity + ' ' + TeamNickName + '' as " _
    & "[Восточная подгруппа (Щелкните для получения дополнительной" _
    & "информации)], " _
    & "Round((Convert(float, NumWins) / " _
    & "(NumWins + NumLoses)) * 100, 0) as [Очки], " _
    & "NumWins as [Победы], NumLoses as [Поражения] " _
    & "From Teams " _
    & "Where Conference = 'Западная' " _
    & "Order By Convert(float, NumWins) / " _
    & "(NumWins + NumLoses) DESC" _
    , DBConn)
    DBCommand.Fill(DSPageData, _
    "EastConf")

Hosted by uCoz