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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Web-службы

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

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

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

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

Если нет, посетитель возвращается на стартовую страницу:

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

Сначала создаем объект DataAdapter для получения запрошенного описания:

    DBCommand=- New OleDbDataAdapter _
    "Select * from Listings Where HLCN=- '" _
    & Page. Request. QueryString ("HLCN") & ""',DBConn)

Данные эти находятся в таблице Listing объекта DataSet:

    DBCommand.Fill (DSHomeData, _
    "Listing"),

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

    If DSHomeData. Tables ("Listing") .Rows. Count = 0 Then

При отсутствии описания на экран выводится специальное сообщение:

    IblHomelnfoBlob.Text = " Введенный код не найден. " _ & "Возможно, дом продан или снят с продажи. <BR>" _ & "<А HREF="" . /index. аsрх"">Возврат на стартовую страницу</А>"

Если описание обнаружено, формируется HTML-таблица, содержащая всю информацию о доме:

    IblHomelnfoBlob.Text = _
    "<TABLE CellPadding=""3"" style=""font: lOpt verdana"">"

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

    & "<TR><TD></td><B>UeHa: </В>" _
    & FormatCurrency(DSHomeData.Tables("Listing"). _
    Rows(O).Item("HousePrice"))
    & "</ТD><тd><в>Район: </В>" _
    & DSHomeData.Tables("Listing").
    Rows(0).Item("HomeLocation") _
    & "</TD></TR>"

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

    & "<TR><TD><B>Cпaлeн: </В>" _
    & DSHomeData.Tables("Listing"). _
    Rows(0).Item("Bedrooms")
    & "</Тd><Тd><В>Ванных комнат: </В>" _
    & DSHomeData.Tables("Listing").
    Rows(0).Item("Bathrooms") _
    & "</TD></TR>" _

В третьей строке посетители увидят адрес, по которому расположен дом, и дату его постройки:

    & "<TR><TD><B>Aдpec: </В>" _
    & DSHomeData.Tables("Listing"). _
    Rows{0).Item("Address")
    & "</ТR><ТD><В>Год постройки: " _
    & DSHomeData.Tables("Listing"). _
    Rows(O) .ItemC'YearBuilt") _
    & "</TD></TR>" _

В четвертой строке выводятся данные о площади дома и участка:

    & "<Тr><Тd><В>Площадь дома: </В>" _
    & DSHomeData.Tables("Listing"). _
    Rows(O) .Item("SquareFeet")
    & "</Тd><Тd><В>Площадь участка: </В>" _
    & DSHomeData.Tables("Listing"). _
    Rows(O) .ItemC'LotSize")
    & "</TD></TR>" _

Затем следует информация о гараже и контактном лице:

    & "<TR><TD><B>Гapaж: </В>" _
    & DSHomeData.Tables("Listing"). _
    Rows(O).Item("Garage") _
    & "</Тd><Тd><В>Контактное лицо: </В>" _
    & DSHomeData.Tables("Listing"). _
    Rows(O) .ItemC'ContactName")
    & "</TD></TR>" _

В последней строке посетители найдут дополнительные данные для контактов:

    & "<TR><Тd><В>Телефон: </В>" _
    & DSHomeData.Tables("Listing"). _
    Rows(O) . item("PhoneContact") _
    & "</Тd><Тd><В>Электронная почта: </В>" _
    & "<A HREF=""mailto:"
    & DSHomeData.Tables("Listing"). _
    Rows(0),Item("EmailContact") _
    & """>" _
    & DSHomeData.Tables("Listing"). _
    Rows(O) .Item("EmailContact") _
    & "</A>"
    & "</TD></TR>" _
    & "</Table><BR>" _

Hosted by uCoz