<%@ WebService Language="VB" Class="DataValidator"%>

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

Option Strict Off

Imports System.Web.Services

<WebService(Namespace:="http://localhost/" _
& "INetBook/C17/Server/")> _
Public Class DataValidator

<WebMethod()> Public Function _
DateRange(DateToTest as Date, StartDate as Date, _
EndDate as Date) as Boolean

If DateToTest < StartDate or DateToTest > EndDate Then

DateRange = False

DateRange = True

<WebMethod()> Public Function Age(FieldToTest as Integer) _
as Boolean

If FieldToTest < 0 Or FieldToTest > 140 Then

Age = False

Age = "True

<WebMethod()> Public Function NumberRange _
(FieldToTest as Single, MinNumber as Single, _
MaxNumber as Single) as Boolean

If FieldToTest < MinNumber Or FieldToTest > MaxNumber Then

NumberRange = False

NumberRange = True

Web-служба Обработка дат и строк

В 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 = TeropString.Substring(0, DesiredLength)
Elseif TempString.Length < DesiredLength Then
Do Until TempString.Length >= DesiredLength
TempString = TempString 4 PadCharacter
Loop
End If
MakeLength = TempString
End Function