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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Web-службы

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

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

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

    IblResultl.Text - "Результат: " & MyDS.DateRange _
    (txtTestDate.Text, txtStartDate.Text, txtEndDate.Text)

При нажатии второй кнопки ОК запускается вторая процедура:

    Sub SubmitBtn2_Cl";.ck(Sender As Object, E As EventArgs)
    Dim MyDS as New DataValidator()
    lblResult2.Text = "Результат: " & MyDS.Age _
    (txtAge.Text)
    End Sub

Она также создает экземпляр Web-службы:

    Dim MyDS as New DataValidator()

и отображает результат, возвращенный методом Age:

    lblResult2.Text = "Результат: " & MyDS.Age _
    (txtAge.Text)

Следующая процедура на данной странице запускается при нажатии последней, третьей, кнопки ОК:

    Sub SubmitBtn3_Click(Sender As Object, E As EventArgs)
    Dim MyDS as New DataValidator()
    IblResultS.Text = "Результат: " & MyDS.NumberRange _
    (txtTestNumber.Text, txtLowNumber.Text, txtHighNumber.Text)
    End Sub

Она также создает экземпляр Web-службы:

    Dim MyDS as New DataValidator()

и обращается к методу NumberRange:

    IblResultS.Text = "Результат: " & MyDS.NumberRange _
    (txtTestNumber.Text, txtLowNumber.Text, txtHighNumber.Text)

Страница для доступа к службе
Обработка дат и строк

Код тестовой страницы Обработка дат и строк активизируется при нажатии одной из трех кнопок. Код задействует Web-службу Обработка дат и строк и отражает результаты обращений к четырем ее методам.

Первая процедура запускается при нажатии первой кнопки ОК:

    Sub SubmitBtnl_Click(Sender As Object, E As EventArgs)
    Dim MyDS as New StringDateFunctions()
    IblResultl.Text = "Результат: " & MyDS.MakeLength _
    (txtStringToConvert.Text, _
    txtDesiredLength.Text, txtPadCharacter.Text)
    End Sub

Она создает экземпляр Web-службы Обработка дат и строк:

    Dim MyDS as New StringDateFunctionsО

а затем обращается к методу MakeLength и отражает результат:

    IblResultl.Text = "Результат: " & MyDS.MakeLength _^
    (txtStringToConvdrt.Text, _
    txtDesiredLength.Text, txtPadCharacter.Text)

Следующая процедура запускается при нажатии второй кнопки ОК:

    Sub SubmitBtn2_Click(Sender As Object, E As EventArgs)
    Dim MyDS as New StringDateFunctions()
    lblResult2.Text = "Результат: " & MyDS.ParselT _
    (txtStringToParse.Text, txtParseCharacter.Text)
    End Sub

Она создает экземпляр той же Web-службы, обращается к процедуре Parseit и помещает результат обращения в элемент управления Label:

    lblResult2.Text = "Результат: " & MyDS.ParselT _
    (txtStringToParse.Text, txtParseCharacter.Text)

Последняя процедура запускается при нажатии третьей кнопки ОК:

    Sub SubmitBtn3_Click(Sender As Object, E As EventArgs)
    Dim MyDS as New StringDateFunctions()
    IblResultS.Text = "Результат: " & MyDS.NextMonth _
    (txtBaseDate.Text) & "<BR><BR>Диапазон: " _
    & MyDS.YTDO
    End Sub

Эта процедура обращается к двум методам Web-службы. Результаты их выполнения помещаются в элемент управления Label:

    IblResultS.Text = "Результат: " & MyDS.NextMonth _
    (txtBaseDate.Text) & "<BR><BR>Диапазон: " _
    & MyDS.YTDO

Страница для доступа к службе
Количество обращений

В коде страницы Количество обращений, который активизируется при ее загрузке, содержится обращение к Web-службе с таким же названием.

    Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
    Dim MyDS as New UsageTracker()
    If Len(Session("VisitorlD")) = 0 Then
    Session("VisitorlD") = 0
    End If
    Session("VisitorlD") = MyDS.RecordPageHit _
    ("Home", Session("VisitorlD"))
    End Sub

Сначала создается экземпляр Web-службы Количество обращений:

    Dim MyDS as New UsageTracker()

Затем выполняется проверка на предмет того, является ли данная страница первой, на которую зашел посетитель:

    If Len(Session)"VisitorlD")) = 0 Then

Если это так, идентификатору посетителя присваивается значение 0:

    Session("VisitorlD") = 0

После этого происходит обращение к Web-службе, чтобы зафиксировать факт посещения страницы, а результат сохраняется в переменной сеанса, благодаря чему в дальнейшем он может быть использован другими страницами Web-узла:

    Session("VisitorlD") = MyDS.RecordPageHit _
    ("Домашняя", Session("VisitorlD"))

Hosted by uCoz