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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Web-службы

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

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

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

    <WebMethod()> Public Function MakeLength _
    (StringToConvert as String, DesiredLength as Long, _
    PadCharacter as String) as String

Нам понадобится временная строковая переменная

    Dim TempString as String

для хранения преобразуемой строки:

    TempString = StringToConvert

Далее мы проверяем, не превышает ли длина строки желаемую длину:

    If TempString.Length > DesiredLength Then

Если строка длиннее, чем это нужно, укорачиваем ее до указанного значения:

    TempString = TempString.Substring(0, DesiredLength)

Если же исходная строка короче, чем это нужно:

    Elseif TempString.Length < DesiredLength Then

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

    Do Until TempString.Length >= DesiredLength

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

    TempString = TempString & PadCharacter

Затем метод возвращает новую строку:

    MakeLength = TempString

Следующий метод выделяет фрагмент строки — от ее начала до позиции разделяющего символа:

    <WebMethod()> Public Function Parselt _
    (StringToParse as String, ParseChar as String) as String
    If StringToParse.IndexOf(ParseChar) <> =1 Then
    Parselt = StringToParse.Substring _
    (0, StringToParse. IndexOf (ParseChar) )
    Else
    Parselt = StringToParse
    End If
    End Function

Метод имеет два параметра. Первый — это исходная строка, второй — разделяющий символ:

    <WebMethod()> Public Function Parselt _
    (StringToParse as String, ParseChar as String) as String

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

    If StringToParse.IndexOf(ParseChar) <> -1 Then

Если таковой обнаружен, возвращается фрагмент строки от начала до разделяющего знака:

    Parselt = StringToParse.Substring _
    (О, StringToParse.IndexOf(ParseChar))

в противном случае — вся строка:

    Parselt = StringToParse

Следующий метод возвращает в виде строки диапазон дат от 1 января текущего года до текущей даты:

    <WebMethod()> Public Function YTD() as String
    Dim CurrentDate as Date
    YTD = "01/01/" & CurrentDate.Year & " - " & CurrentDate.Today
    End Function

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

    <WebMethod()> Public Function YTD() as String

Вначале задается переменная для хранения даты:

    Dim CurrentDate as Date

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

    YTD = "01/01/" & CurrentDate.Year & " - " & CurrentDate.Today

Второй метод в данной Web-службе возвращает первый день следующего месяца, основываясь на введенной дате:

    <WebMethod()> Public Function NextMonth _
    (BaseDate as Date) as String
    Dim TheDate as String
    If BaseDate.Month = 12 Then
    TheDate = "01/01/" & (BaseDate.Year + 1)
    Else
    TheDate = (BaseDate.Month + 1) & "/01/" & BaseDate.Year
    End If
    NextMonth = TheDate
    End Function

Hosted by uCoz