第五章 Web Service

第一章 Web service简介

现在Internet正在不断地发展着，在互联网应用刚开始的时候，我们浏览的网页只是静态的，不可交互的。而现在随着技术的日益发展，将提供给网页浏览者一个可编程的Web 站点。这些站点将在组织、应用、服务、驱动上更加紧密的结合在一起，这些站点将通过一些应用软件直接连接到另一个Web 站点，这些可编程的Web 站点相比传统的web站点来说，将变得更加能重复使用，也更加智能化！

.net平台给我们提供了一种运行环境，即公用语言运行环境（CLR，Common Language Runtime）。对 CLR来说，它提供了一种内置机制来创建一个可编程的站点，、对于Web 程序开发者和VB 程序员来说，这将是一致、熟悉的。这种模型是可以重复使用，也可以再扩展。 它包含了开放的Internet标准（HTTP, XML, SOAP, SDL）。以便它能被网页浏览者访问。

ASP.NET 使用.asmx 文件来对Web Services的支持。.asmx 文件和.aspx文件一样都属于文本文件。它包含在.aspx文件之中，成为ASP.NET应用程序的一部分。

下面我们将举一个简单的例子来介绍.asmx文件，我们还是从“Hello，World”这个经典的例子说起，代码如下：

<!-- 文件名：webservice\sisam.asmx -->

<%@ 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

说明：

1．编码最开始必须进行WebService声明，从而定义这个文件为一个Web Service。而且，在同一行中设置好编程语言的类型。

2．然后，引入名字空间System.Web.Services。注意，这个名字空间属于最基本的元素，必须要包含它。

3．接着，声明service中的功能模块，也就是类模块，这里的类名叫HelloWorld。这个类来源于基类WebService，而且应该是public类型。

4．最后，定义service的可访问方法。在表示方法的符号前面，要设置好自定义属性。对应于C#语言，属性值就是[WebMethod]；对应于VB，就是。如果没有设置这个属性，那么这个方法就不能从service中访问。一个局部应用可以使用任何的public类型的类，但是只有具备[WebMethod]的类才可以通过SOAP被远程地访问。

当对service的请求发生时，.asmx文件将自动地被ASP.NET运行环境所编译。随后的请求就可以由缓冲的预编译类型对象执行。

为了测试编写好的代码，我们需用一个支持ASP.NET的Web服务器。假设这个Web服务器的名称叫做server1，其上有一个虚拟目录test。请跟随下面步骤开始测试：

1．将代码保存为HelloWorld.asmx

2．放到Web服务器Foo的虚拟目录Bar下

3．打开Internet Explorer5，在地址栏输入http://server1/test/HelloWorld.asmx

这时，我们将看到关于这个Web Service的公用方法－也就是那些标记为WebMethod属性的字符，并得知调用这些方法可以使用的协议，比如SOAP或者HTTP GET。

在Internet Explorer的地址栏中输入http://Foo/Bar/HelloWorld.asmx?SDL后，将产生基于服务描述语言（Service Description Language ：SDL）语法的具备相同信息的XML文件。这个SDL文件非常重要，客户端就是使用它来访问service。

我们来看一下程序运行的效果：

从客户端进行访问：

除了允许开发者使用的创建Web Services的技术以外，Microsoft的.NET框架给客户端提供了一套访问并使用Web Services的精致且高深的工具和代码。由于Web Services是基于如简单对象访问协议SOAP（Simple Object Access Protocol）和HTTP这样的开放协议标准的，从而，我们就可以使用这种客户端技术使用非ASP.NET的Web Services。当然，这也需用高水平地合成ASP.NET Web Services和这种客户端技术。

SDK中有一个工具叫做WebServiceUtil.exe，我们可以使用它来下载一个Web Services的SDL描述语言，并创建表达这个Service的代理类。比如，当我们输入以下命令，就可以创建一个叫做HelloWorld.cs的代理类：

WebServiceUtil /c:proxy /pa:http://someDomain.com/someFolder/HelloWorld.asmx?SDL

这个类看起来与前面创建的类非常相似。它包含一个方法SayHelloWorld，该方法返回一个字符串。将这个代理类编译到一个应用程序中，然后调用这个代理类的方法，结果就是：通过HTTP，这个代理类包装SOAP请求，然后接收SOAP编码响应，最后汇集成为一个字符串。

从客户端来看，代码是很简单的，返回的结果也很简单，就是一个字符串"Hello World"。同样为了对照方便，我们列出了使用VB、C#以及JScript三种语言编写的代码：

C#

HelloWorld myHelloWorld = new HelloWorld();

String sReturn = myHelloWorld.SayHelloWorld();

VB

Dim myHelloWorld As New HelloWorld()

Dim sReturn As String = myHelloWorld.SayHelloWorld()

JScript

var myHelloWorld:HelloWorld = new HelloWorld();

var sReturn:String = myHelloWorld.SayHelloWorld();

通过上面的例程，你可能对Web Services有了初步的印象。下面，我们将介绍Web Services中涉及到的各种数据类型，也就是Web Services方法的输入/输出参数类型。因为Web Services的执行是建立在XML架构之上的，所以它能够支持丰富的数据类型。下表列出了使用SOAP协议时Web Services支持的数据类型：

类型	描述
基础类型	也即标准基础类型，包括： String、Int32、Byte、Boolean、Int16、Int64、Single、Double、Decimal、DateTime(类似XML中的timeInstant)、 DateTime(类似XML中的date)、DateTime(类似XML中的time)以及XmlQualifiedName(类似XML中的QName)。
枚举类型	枚举类型。例如：. "public enum color { red=1, blue=2 }"
基础，枚举数组	上面提到的类型数组。例如：string[] 和 int[]
类和结构	带有公用域或属性的类和结构，公用域和属性是串行结构的
类和结构体数组	上述类型的数组
DataSet	ADO.NET DataSet 类型。DataSets能在类和结构体作为字段来使用。
DataSet数组	上述类型的数组
XmlNode	XmlNode是XML文档片断的内存表示，就好像一个轻量级的XML文档对象模型。比如说，"" 就可以存储在一个XmlNode类型变量中。我们可以将XmlNodes作为参数传递，以SOAP兼容方式附加到传递给Web Services的XML文档上。返回值也是同样原理。XmlNode也可看成是类或结构中的字段。
XmlNode数组	上述类型的数组

当通过SOAP或者HTTP GET/POST调用Web Services时，返回值可以是上述提到的任何一种数据类型。

参数的数据类型

使用SOAP协议时，"通过值"以及"通过引用"这两种输入/输出参数形式都可被支持。如果是"通过引用"的参数类型，就会产生两种方式的数据发送效果：到服务器的以及返回到客户端的。但是，当通过HTTP GET/POST传递输入参数给Web Services时，就只支持有限的数据类型了，而且还必须是"通过值"形式的参数。这些类型如下：

类型	描述
基础类型 (有限的)	支持大多数标准基础类型，包括： Int32、String、Int16、Int64、Boolean、Single、Double、Decimal、DateTime、TimeSpan、UInt16、UInt32、UInt64和Currency。从客户端来看，所有这些类型都转变为string。
枚举类型	比如： "public enum color { red=1, blue=2 }"。
基础类型数组，枚举类型数组	上述类型的数组，比如 string[]和int[]

现在我们将举一个例子，来说明上面我们介绍的数据类型：

这个例子利用WebServiceUtil.exe建立的SOAP代理来使用上面列出的数据类型。注意：因为在.asmx文件中定义了多于一个的公用类，所以，我们必须要指定哪一个作为WebService类，这可以通过设置WebService标识的Class属性来实现，代码如下：

<%@ WebService Language="C#" Class="DataTypes" %>

源文件webservice\datatype.asmx的内容如下：

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

Imports System

Imports System.Web.Services

Public Enum Mode

    EOn = 1

    EOff = 2

End Enum

Public Class Order

   Public OrderID As Integer

   Public Price As Double

End Class

Public Class DataTypes

‘SayHello方法显示从service中返回的一个字符串信息。

   Public Function <WebMethod()> SayHello() As String

       Return "Hello World!"

   End Function

‘SayHelloName方法返回一个字符串，并接受一个字符串参数。

   Public Function <WebMethod()> SayHelloName(Name As String) As String

       Return "Hello" & Name

   End Function

‘GetIntArray方法显示了如何返回一个整数数组。

   Public Function <WebMethod()> GetIntArray() As Integer()

       Dim I As Integer

       Dim A(5) As Integer

       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

程序运行的效果如下：

当我们单击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;

    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>

  <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>

在客户端程序中，我们使用<%@ Import Namespace="DataTypesService" %>来引入DataTypesService这个我们自定义的名字空间。然后在程序中只是调用了DataTypesService中的方法。

现在我们来看如何生成名字空间：

1．Datatype.vb中的内容：

Imports System.Xml.Serialization

Imports System.Web.Services.Protocols

Imports System.Web.Services

Namespace DataTypesService

 Public Class  DataType

   Inherits System.Web.Services.Protocols.SoapClientProtocol

Public Sub New()

MyBase.New      Me.Url="http://localhost/QuickStart/aspplus/samples/services/DataTypes/VB/DataTypes.asmx"        End Sub

Public Function

<System.Web.Services.Protocols.SoapMethodAttribute("http://tempuri.org/SayHello")> SayHello() As String

            Dim results() As Object = Me.Invoke("SayHello", New Object(0) {})

            Return CType(results(0),String)

        End Function

        Public Function BeginSayHello(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult

            Return Me.BeginInvoke("SayHello", New Object(0) {}, callback, asyncState)

        End Function

        Public Function EndSayHello(ByVal asyncResult As System.IAsyncResult) As String

            Dim results() As Object = Me.EndInvoke(asyncResult)

            Return CType(results(0),String)

        End Function

        Public Function <System.Web.Services.Protocols.SoapMethodAttribute("http://tempuri.org/SayHelloName")> SayHelloName(ByVal <System.Xml.Serialization.XmlElementAttribute("Name", IsNullable:=true)> name As String) As String

            Dim results() As Object = Me.Invoke("SayHelloName", New Object() {name})

            Return CType(results(0),String)

        End Function

        Public Function BeginSayHelloName(ByVal name As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult

            Return Me.BeginInvoke("SayHelloName", New Object() {name}, callback, asyncState)

        End Function

        Public Function EndSayHelloName(ByVal asyncResult As System.IAsyncResult) As String

            Dim results() As Object = Me.EndInvoke(asyncResult)

            Return CType(results(0),String)

        End Function

        Public Function <System.Web.Services.Protocols.SoapMethodAttribute("http://tempuri.org/GetIntArray"),  _

        System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true, ArrayType:=System.Xml.Serialization.XmlArrayType.Soap),  _

        System.Xml.Serialization.XmlArrayItemAttribute("int", IsNullable:=false)> GetIntArray() As Integer()

            Dim results() As Object = Me.Invoke("GetIntArray", New Object(0) {})

            Return CType(results(0),Integer())

        End Function

        Public Function BeginGetIntArray(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult

            Return Me.BeginInvoke("GetIntArray", New Object(0) {}, callback, asyncState)

        End Function

        Public Function EndGetIntArray(ByVal asyncResult As System.IAsyncResult) As Integer()

            Dim results() As Object = Me.EndInvoke(asyncResult)

            Return CType(results(0),Integer())

        End Function

        Public Function <System.Web.Services.Protocols.SoapMethodAttribute("http://tempuri.org/GetMode")> GetMode() As Mode

            Dim results() As Object = Me.Invoke("GetMode", New Object(0) {})

            Return CType(results(0),Mode)

        End Function

        Public Function BeginGetMode(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult

            Return Me.BeginInvoke("GetMode", New Object(0) {}, callback, asyncState)

        End Function

        Public Function EndGetMode(ByVal asyncResult As System.IAsyncResult) As Mode

            Dim results() As Object = Me.EndInvoke(asyncResult)

            Return CType(results(0),Mode)

        End Function

        Public Function <System.Web.Services.Protocols.SoapMethodAttribute("http://tempuri.org/GetOrder")> GetOrder() As Order

            Dim results() As Object = Me.Invoke("GetOrder", New Object(0) {})

            Return CType(results(0),Order)

        End Function

        Public Function BeginGetOrder(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult

            Return Me.BeginInvoke("GetOrder", New Object(0) {}, callback, asyncState)

        End Function

        Public Function EndGetOrder(ByVal asyncResult As System.IAsyncResult) As Order

            Dim results() As Object = Me.EndInvoke(asyncResult)

            Return CType(results(0),Order)

        End Function

        Public Function <System.Web.Services.Protocols.SoapMethodAttribute("http://tempuri.org/GetOrders"),  _

        System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true, ArrayType:=System.Xml.Serialization.XmlArrayType.Soap),  _

        System.Xml.Serialization.XmlArrayItemAttribute("Order", IsNullable:=true)> GetOrders() As Order()

            Dim results() As Object = Me.Invoke("GetOrders", New Object(0) {})

            Return CType(results(0),Order())

        End Function

        Public Function BeginGetOrders(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult

            Return Me.BeginInvoke("GetOrders", New Object(0) {}, callback, asyncState)

        End Function

        Public Function EndGetOrders(ByVal asyncResult As System.IAsyncResult) As Order()

            Dim results() As Object = Me.EndInvoke(asyncResult)

            Return CType(results(0),Order())

        End Function

    End Class

    Public Enum <System.Xml.Serialization.XmlRootAttribute("result", [Namespace]:="http://tempuri.org/", IsNullable:=false)> Mode

         EOn

         EOff

    End Enum

    Public Class <System.Xml.Serialization.XmlRootAttribute("result", [Namespace]:="http://tempuri.org/", IsNullable:=true)> Order

        Public  OrderID As Integer

        Public  Price As Double

    End Class

End Namespace

在这个vb文件中，我们定义了一个名字空间DataTypesService。

请看vb文件的其中一段代码段：

Public Function  <System.Web.Services.Protocols.SoapMeth_&

 odAttribute("http://tempuri.org/SayHello")> SayHello() As String

            Dim results() As Object = Me.Invoke("SayHello", New Object(0) {})

            Return CType(results(0),String)

        End Function

Public Function BeginSayHello(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult

            Return Me.BeginInvoke("SayHello", New Object(0) {}, callback, asyncState)        End Function

Public Function EndSayHello(ByVal asyncResult As System.IAsyncResult) As String

            Dim results() As Object = Me.EndInvoke(asyncResult)

            Return CType(results(0),String)

End Function

上面的代码，是触发invoke的单击事件。然后，调用我们在datatype.asmx中定义的方法。

要生成上面的名字空间，我们使用webserviceutil.exe来编译。

webserviceutil -c:proxy /pa:DataTypes.sdl /l:VB /n:DataTypesService

5.1.1 小结

web service提供了在不同体系机构下构建的网站之间相互提供应用接口服务、数据的一种方案。它采用通用的SOAP、HTTP以及XML，就可以把原本互不相干的站点服务形成一整套分布的、自动化和智能化的网络应用，大大减轻了程序员的开发工作量，充分地利用了已经拥有的网络资源和开发资源。在asp.net中，web service文件后缀名采用.asmx，开始应使用<%@ WebService …%>申明，接着引用System.Web.Services命名空间，然后定义一个公用类继承自WebService基类，最后实现自己的类，其中向网络开放的功能，应在其方法前面加上WebMethod属性。

第二章 一个简单的Web Service案例

在这个例子中，我们将定义一个mathservice类，来对两个数字分别进行加，减，乘，除。当然这个类需要从基类web service中继承。请先看该程序的源代码：

源文件：webservice\math.asmx

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

Imports System

Imports System.Web.Services

Public Class MathService : Inherits WebService

   Public Function <WebMethod()> Add(A As Integer, B As Integer) As Integer

       Return A + B

   End Function

   Public Function <WebMethod()> Subtract(A As Integer, B As Integer) As Integer

       Return A - B

   End Function

   Public Function <WebMethod()> Multiply(A As Integer, B As Integer) As Integer

       Return A * B

   End Function

   Public Function <WebMethod()> Divide(A As Integer, B As Integer) As Integer

       If B = 0

          Return -1

       End If

       Return CInt(A / B)

   End Function

End Class

对于该程序，我们首先要用<%@ WebService Language="vb" Class="MathService" %>来标识。然后定义对应的方法。程序很简单，我们来看一下运行效果，假使我们使用“加”。如图：

我们要计算5+1的值：

通过上面的计算，结果就显示出来了。

一个代理类（proxy class）被创建出来的，我们就可以很容易的创建对象。当然，类中的方法就能够被对象调用。创建代理类，我们可以使用WebServiceUtil.exe来创建一个代理类。

我们还是举“加”，“减”，“乘”，“除”的例子。

我们先创建一个文件用于客户端的用户浏览：

<%@ Import Namespace="MathServiceSpace" %>

<html>

<script language="VB" runat="server">

  Dim Op1 As Integer = 0

  Dim Op2 As Integer = 0

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

      Try

        Op1 = Int32.Parse(Operand1.Text)

        Op2 = Int32.Parse(Operand2.Text)

      Catch Exp As Exception

          ' Ignored

      End Try

      Dim Service As MathService = New MathService()

      Select (CType(sender,Control).ID)

        Case "Add" :

            Result.Text = "<b>Result</b> = " & Service.Add(Op1, Op2).ToString()

        Case "Subtract" :

            Result.Text = "<b>Result</b> = " & Service.Subtract(Op1, Op2).ToString()

        Case "Multiply" :

            Result.Text = "<b>Result</b> = " & Service.Multiply(Op1, Op2).ToString()

        Case "Divide" :

            Result.Text = "<b>Result</b> = " & Service.Divide(Op1, Op2).ToString()

      End Select

  End Sub

</script>

<body style="font: 10pt verdana">

  <h4>Using a Simple Math Service </h4>

  <form runat="server"> 

  <div style="padding:15,15,15,15;background-color:beige;width:300;border-color:black;border-width:1;border-style:solid">

    Operand 1: <br><asp:TextBox id="Operand1" Text="15" runat="server"/><br>

    Operand 2: <br><asp:TextBox id="Operand2" Text="5" runat="server"/><p>

    <input type="submit" id="Add" value="Add" OnServerClick="Submit_Click" runat="server">

    <input type="submit" id="Subtract" value="Subtract" OnServerClick="Submit_Click" runat="server">

    <input type="submit" id="Multiply" value="Multiply" OnServerClick="Submit_Click" runat="server">

    <input type="submit" id="Divide" value="Divide" OnServerClick="Submit_Click" runat="server">

    <p>

    <asp:Label id="Result" runat="server"/>

  </div>

  </form>

</body>

</html>

我们还需要一个sdl文件，当然这个文件不用手工输入，我们在浏览一个.asmx的时候，在后缀名后直接加上？sdl可以自动生成sdl文件。

然后我们在一个.vb文件里，将定义一个名字空间，.vb文件的内容：

Imports System.Xml.Serialization

Imports System.Web.Services.Protocols

Imports System.Web.Services

Namespace MathServiceSpace

    Public Class  MathService

        Inherits System.Web.Services.Protocols.SoapClientProtocol

        Public Sub New()

            MyBase.New

            Me.Url = "http://localhost/QuickStart/aspplus/samples/services/MathService/VB/MathService.a"& _

"smx"

        End Sub

       Public Function <System.Web.Services.Protocols.SoapMethodAttribute("http://tempuri.org/Add")> Add(ByVal <System.Xml.Serialization.XmlElementAttribute("A", IsNullable:=false)> a As Integer, ByVal <System.Xml.Serialization.XmlElementAttribute("B", IsNullable:=false)> b As Integer) As Integer

            Dim results() As Object = Me.Invoke("Add", New Object() {a, b})

            Return CType(results(0),Integer)

        End Function

        Public Function BeginAdd(ByVal a As Integer, ByVal b As Integer, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult

            Return Me.BeginInvoke("Add", New Object() {a, b}, callback, asyncState)

        End Function

        Public Function EndAdd(ByVal asyncResult As System.IAsyncResult) As Integer

            Dim results() As Object = Me.EndInvoke(asyncResult)

            Return CType(results(0),Integer)

        End Function

        Public Function <System.Web.Services.Protocols.SoapMethodAttribute("http://tempuri.org/Subtract")> Subtract(ByVal <System.Xml.Serialization.XmlElementAttribute("A", IsNullable:=false)> a As Integer, ByVal <System.Xml.Serialization.XmlElementAttribute("B", IsNullable:=false)> b As Integer) As Integer

            Dim results() As Object = Me.Invoke("Subtract", New Object() {a, b})

            Return CType(results(0),Integer)

        End Function

        Public Function BeginSubtract(ByVal a As Integer, ByVal b As Integer, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult

            Return Me.BeginInvoke("Subtract", New Object() {a, b}, callback, asyncState)

        End Function

        Public Function EndSubtract(ByVal asyncResult As System.IAsyncResult) As Integer

            Dim results() As Object = Me.EndInvoke(asyncResult)

            Return CType(results(0),Integer)

        End Function

        Public Function <System.Web.Services.Protocols.SoapMethodAttribute("http://tempuri.org/Multiply")> Multiply(ByVal <System.Xml.Serialization.XmlElementAttribute("A", IsNullable:=false)> a As Integer, ByVal <System.Xml.Serialization.XmlElementAttribute("B", IsNullable:=false)> b As Integer) As Integer

            Dim results() As Object = Me.Invoke("Multiply", New Object() {a, b})

            Return CType(results(0),Integer)

        End Function

        Public Function BeginMultiply(ByVal a As Integer, ByVal b As Integer, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult

            Return Me.BeginInvoke("Multiply", New Object() {a, b}, callback, asyncState)

        End Function

        Public Function EndMultiply(ByVal asyncResult As System.IAsyncResult) As Integer

            Dim results() As Object = Me.EndInvoke(asyncResult)

            Return CType(results(0),Integer)

        End Function

        Public Function <System.Web.Services.Protocols.SoapMethodAttribute("http://tempuri.org/Divide")> Divide(ByVal <System.Xml.Serialization.XmlElementAttribute("A", IsNullable:=false)> a As Integer, ByVal <System.Xml.Serialization.XmlElementAttribute("B", IsNullable:=false)> b As Integer) As Integer

            Dim results() As Object = Me.Invoke("Divide", New Object() {a, b})

            Return CType(results(0),Integer)

        End Function

        Public Function BeginDivide(ByVal a As Integer, ByVal b As Integer, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult

            Return Me.BeginInvoke("Divide", New Object() {a, b}, callback, asyncState)

        End Function

        Public Function EndDivide(ByVal asyncResult As System.IAsyncResult) As Integer

            Dim results() As Object = Me.EndInvoke(asyncResult)

            Return CType(results(0),Integer)

        End Function

    End Class

End Namespace

有了这四个文件，我们可以编辑一个批处理文件，执行如下的语句：

    webserviceutil -c:proxy /pa:MathService.sdl /l:VB /n:MathServiceSpace

这样，我们就可以在客户端执行了。

5.2.1 小结

在这一章中，我们以提供计算加、减、乘、除的网络应用为例，详细的介绍了如何建立起一个完整的web service服务的步骤和注意事项，虽然这个例子和实际使用的应用环境有较大的差异，但基本方法应该是一致的。

第三章 数据交换

我们的这个例子说明了DataSet-----一个基于XML技术的强大的数据分离技术，能够用Web Service方法返回。DataSet能够在一个智能化的结构中存储复杂的信息和关系，这是Web Service的一个非常有用的方法。

通过DataSets的显示，你能够限制通过连接你的数据库服务器的测试。

GetTitleAuthors方法连接一个数据库并且运行两个SQL语句，第一个返回颜色的列表，另外一个返回字体大小的列表。方法把两个结果用一个DataSet来存储，并返回一个DataSet。

PutTitleAuthors说明一个Web Service方法把DataSet当作一个参数并返回一个整数，这个整数就是在DataSet中的“Table“表的行数。虽然这个方法执行起来有点简单，但是这个方法也能够与数据库服务器把过剩的数据聪明的合并在一起。

我们来看看这个例子，首先：

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

这句话应该包括。我们还要引入这个名字空间：

       Imports System.Web.Services

第一我们两个方法，Getcolor()：

          Public Function <WebMethod()> Getcolor() As DataSet

        Dim MyConnection As SQLConnection = New

SQLConnection("server=localhost;uid=sa;pwd=;database=howff")

        Dim MyCommand1 As SQLDataSetCommand = New

SQLDataSetCommand("select * from color", MyConnection)

        Dim MyCommand2 As SQLDataSetCommand = New

SQLDataSetCommand("select * from size", MyConnection)

              '数据的填充

        Dim DS As New DataSet

        MyCommand1.FillDataSet(DS, "color")

        MyCommand2.FillDataSet(DS, "size")

        Return DS

   End Function

Putcolor()方法：

       Public Function <WebMethod()> Putcolor(DS As DataSet) As Integer

        '返回行数

        Return DS.Tables(0).Rows.Count

   End Function

文件保存为webservice.asmx，放在虚拟目录下，具体代码如下：

源文件：webservice\webservice.asmx

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

Imports System

Imports System.Data

Imports System.Data.SQL

'引入System.Web.Services名字空间

Imports System.Web.Services

Public Class DataService

   Public Function <WebMethod()> Getcolor() As DataSet

       '创建数据库连接和命令集

        Dim MyConnection As SQLConnection = New

SQLConnection("server=localhost;uid=sa;pwd=;database=howff")

        Dim MyCommand1 As SQLDataSetCommand = New

SQLDataSetCommand("select * from color", MyConnection)

        Dim MyCommand2 As SQLDataSetCommand = New

SQLDataSetCommand("select * from size", MyConnection)

       '数据的填充

        Dim DS As New DataSet

        MyCommand1.FillDataSet(DS, "color")

        MyCommand2.FillDataSet(DS, "size")

        Return DS

   End Function

   '

   Public Function <WebMethod()> Putcolor(DS As DataSet) As Integer

        '返回行数

        Return DS.Tables(0).Rows.Count

   End Function

End Class

运行：

点击“Invoke“按钮，我们可以浏览到一个xml形式的文件。

如果我们点击了“putcolor“连接后再点击“Invoke“按钮，则得到不同的结果，有兴趣的读者不妨试一试，就象我们在上面的例子上所看到的一样。

5.3.1 小结

这一章我们学习了web service采用xml的方式在不同平台间传递数据的例子，xml标准将是今后数据相互传输和转化的通用标准。

第四章 存取站点对象

我们的例子说明怎么样通过Web Service来访问Web站点的固有的东西如：Session和Application属性，以及如何关闭Session。

       asmx文件例子中的第一个方法，UHC访问Session，并在“HitCount“变量上加1。我们定义Session计数器方法：

           Public Function <WebMethod(EnableSession:=true)> UHC() As String

           If Session("HitCounter") Is Nothing

              Session("HitCounter") = 1

           Else

              Session("HitCounter") = Cint(Session("HitCounter")) + 1

           End If

         Return "你已经访问这个服务器 " & Session("HitCounter").ToString() & " 次了."

   End Function

注意在方法名称的前面，我们加上了”<WebMethod(EnableSession:=true)>” 这个修饰语句。在更新计数器的方法中：

          Public Function <WebMethod(EnableSession:=false)> UAC() As String

        If Application("HitCounter") = Nothing

             Application("HitCounter") = 1

         Else

             Application("HitCounter") = CInt(Application("HitCounter")) + 1

         End If

         Return "服务被访问了 " & Application("HitCounter").ToString() & " 次."

   End Function

注意与上面方法的区别，我们在修饰方法名称的语句

“<WebMethod(EnableSession:=false)> “不一样。下面是我们完整的例子代码：

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

Imports System

Imports System.Web.Services

Public Class SessionService1 : Inherits WebService

    '增加计数器的值方法

Public Function <WebMethod(EnableSession:=true)> UHC() As String

        If Session("HitCounter") Is Nothing

            Session("HitCounter") = 1

        Else

            Session("HitCounter") = Cint(Session("HitCounter")) + 1

        End If

        Return "你已经访问这个服务器 " & Session("HitCounter").ToString() & " 次了."

   End Function

   '更新计数器值的方法

   Public Function <WebMethod(EnableSession:=false)> UAC() As String

        If Application("HitCounter") = Nothing

            Application("HitCounter") = 1

        Else

            Application("HitCounter") = CInt(Application("HitCounter")) + 1

        End If

        Return "服务被访问了 " & Application("HitCounter").ToString() & " 次."

   End Function

End Class

下面是我们的运行效果：

点击上面的“Invoke“按钮，有如下结果：

点击下面的“Invoke“按钮，有如下结果（在此之前我们已经点击了很多回）：

5.4.1 小结

本章通过对传统记数器在web service中的实现为例，介绍了web service Application如何使用session对象、application对象的方法。