＜%@ WebService Language="VB" Class="HelloWorld" %＞
Imports System.Web.Services
Public Class HelloWorld :Inherits WebService
Public Function ＜WebMethod( )＞ SayHelloWorld( ) As String
Return("Hello World")
End Function
End Class

＜html＞
＜style＞
div
{
font: 8pt verdana;
background-color:cccccc;
border-color:black;
border-width:1;
border-style:solid;
padding:10,10,10,10; web教程网
}

＜/style＞

＜script language="VB" runat="server"＞

Public Sub Page_Load(Sender As Object, E As EventArgs)

Dim D As DataTypes = New DataTypes()
Message1.InnerHtml = D.SayHello()
Message1.InnerHtml = Message1.InnerHtml & D.SayHelloName("Bob")
Message3.InnerHtml = Message3.InnerHtml & D.GetMode()

Dim MyIntArray As Integer() = D.GetIntArray()
Dim MyString As String = "Contents of the Array:＜BR＞"

For I = 0 To MyIntArray.Length - 1
MyString = MyString & MyIntArray(I) & "＜BR＞"
Next

Message2.InnerHtml = Message2.InnerHtml & MyString

Dim MyOrder As Order = D.GetOrder()
Message4.InnerHtml = Message4.InnerHtml & "＜BR＞OrderID: " & MyOrder.OrderID
Message4.InnerHtml = Message4.InnerHtml & "＜BR＞Price: " & MyOrder.Price

Dim MyOrders As Order() = D.GetOrders()
Message5.InnerHtml = Message5.InnerHtml & "＜BR＞OrderID: " & MyOrders(0).OrderID web教程网
Message5.InnerHtml = Message5.InnerHtml & "＜BR＞Price: " & MyOrders(0).Price

End Sub

＜/script＞

＜body style="font: 10pt verdana"＞
＜H4＞Using DataTypes with Web Services＜/H4＞

＜h5＞Methods that return a Primitive (String): ＜/h5＞
＜div id="Message1" runat="server"/＞

＜h5＞Methods that return an Array of Primitives (Integers): ＜/h5＞
＜div id="Message2" runat="server"/＞

＜h5＞Method that returns an Enum: ＜/h5＞
＜div id="Message3" runat="server"/＞

＜h5＞Method that returns a Class/Struct: ＜/h5＞
＜div id="Message4" runat="server"/＞

＜h5＞Method that returns an array of Classes/Structs: ＜/h5＞
＜div id="Message5" runat="server"/＞

＜/body＞
＜/html＞