For i= o to 4 A(1)=1*10 Return a End Function GetMode方法返回一个枚举数值 Public Function <WebMethodo> GetMode( As mode Return mode. eoff End Function GetOrder方法返回一个类 Public Function <WebMethod(> GetOrderO As Order Dim myOrder As New Order MyOrder. Price=34 My Order. OrderID=323232 Return MyOrder End function GetOrders方法返回定单对象数组。 Public Function <WebMethodo> GetOrderso As OrderO Dim MyOrder(2)As Order My Order(0)=New OrderO My Order(O). Price=34.5 My Order(o). OrderID=323232 MyOrder()= New Ordero My Order( 1). Price=99.4 My Order( 1).OrderID=645645 Return MyOrder End function End class
For I = 0 to 4 A(I) = I*10 Next Return A End Function ‘GetMode 方法返回一个枚举数值。 Public Function <WebMethod()> GetMode() As Mode Return Mode.EOff End Function ‘GetOrder 方法返回一个类。 Public Function <WebMethod()> GetOrder() As Order Dim MyOrder As New Order MyOrder.Price=34.5 MyOrder.OrderID = 323232 Return MyOrder End Function ‘GetOrders 方法返回定单对象数组。 Public Function <WebMethod()> GetOrders() As Order() Dim MyOrder(2) As Order MyOrder(0) = New Order() MyOrder(0).Price=34.5 MyOrder(0).OrderID = 323232 MyOrder(1) = New Order() MyOrder(1).Price=99.4 MyOrder(1).OrderID = 645645 Return MyOrder End Function End Class
程序运行的效果如下 文件①)铜辑①)查看①)收流工具①)帮助 SayhelloName Web Method Response type Invoke the SayHelloName Web Method Enter parameter values and then click the Invoke button to invoke the SayHelloName web method Parameter value Invoke No additional reference information about the GetIntArray web method is available at this time 本地 Intranet 当我们单击 invoke的时候,将显示 <?xml version=1.0 ? cstring xmins=htTp: //tempuri. org/>helloworld</string> 对于使用客户端应用程序而言,使用 Web Serviceutil代理生成工具配置这些数据类型是 透明的。请看关于 Web Service的一个客户端例程: 客户端访问的文件: clint. aspx,内容如下 <@ Import Namespace="Data Types Service"% background-color: cccccc, border-color black
程序运行的效果如下： 当我们单击 invoke 的时候，将显示： 对于使用客户端应用程序而言，使用 WebServiceUtil 代理生成工具配置这些数据类型是 透明的。请看关于 Web Service 的一个客户端例程： 客户端访问的文件：clint.aspx，内容如下： <%@ Import Namespace="DataTypesService" %> <html> <style> div { font: 8pt verdana; background-color:cccccc; border-color:black; border-width:1;
border-style: solid ding:l0,10,10,10 </style> <script language="VB"runat="server"> Public Sub Page Load(Sender As Object, E As EventArgs) Dim DAs Data Types New Data types Messagel. InnerHtml= D Say Helloo Messagel Inner Html= Messagel Inner Html D Say HelloName("Bob") Message3. InnerHtml= Message3 Inner Html D GetModeo Dim Mylnt Array As Integer(=D. GetIntArrayO Dim MyString As String="Contents of the Array: <BR> For 1=0 To MyInt Array Length-1 My String- My String MyIntArray()&"<B Message2. InnerHtml= Message2 Inner Html MyString Dim MyOrder As Order= D. GetOrdero Message4. InnerHtml= Message 4. Inner Html &"<BR>OrderlD: MyOrder OrderID Message4 Inner Html= Message 4. Inner Html &"<BR>Price: " MyOrder Price Dim MyOrders As Order(=D. GetOrderso Messages. InnerHtml Messages Inner Htm "<BR>OrderID. MyOrders(o). OrderID Messages. Inner Html= Messages. Inner Html &"<BR>Price: Myorders(O). Price End Sub script> <body style="font: 10pt verdana"> <H4>Using Data Types with Web Services</H4> h5>Methods that return a Primitive(String) </h5> <h5>Methods that return an Array of Primitives (Integers): </h5>
border-style:solid; padding:10,10,10,10; } </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 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>