مثال Web Services

任何应用程序都可拥有 Web Service 组件。

Web Services 的创建与编程语言的种类无关。

一个实例：ASP.NET Web Service

在这个例子中，我们会使用 ASP.NET 来创建一个简单的 Web Service。

<%@ WebService Language="VB" Class="TempConvert" %>
Imports System
Imports System.Web.Services
Public Class TempConvert :Inherits WebService
<WebMethod()> Public Function FahrenheitToCelsius
(ByVal Fahrenheit As Int16) As Int16
	Dim celsius As Int16 
	celsius = ((((Fahrenheit) - 32) / 9) * 5) 
	Return celsius
End Function
<WebMethod()> Public Function CelsiusToFahrenheit
(ByVal Celsius As Int16) As Int16
	Dim fahrenheit As Int16
	fahrenheit = ((((Celsius) * 9) / 5) + 32) 
	Return fahrenheit
End Function
End Class

此文档是一个 .asmx 文件。这是用于 XML Web Services 的 ASP.NET 文件扩展名。

要运行这个例子，我们需要一个 .NET 服务器

此文档中第一行表明这是一个 Web Service，由 VB 编写，其 class 名称是 "TempConvert"。

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

接下来的代码行从 .NET 框架导入了命名空间 "System.Web.Services"。

Imports System
Imports System.Web.Services

下面这一行定义 "TempConvert" 类是一个 WebSerivce 类：

Public Class TempConvert :Inherits WebService

接下来的步骤是基础的 VB 编程。此应用程序有两个函数。一个把华氏度转换为摄氏度，而另一个把摄氏度转换为华氏度。

与普通的应用程序唯一的不同是，此函数被定义为 "WebMethod"。

请在您希望其成为 web services 的应用程序中使用 "WebMethod" 来标记函数。

<WebMethod()> Public Function FahrenheitToCelsius
(ByVal Fahrenheit As Int16) As Int16
	Dim celsius As Int16 
	celsius = ((((Fahrenheit) - 32) / 9) * 5) 
	Return celsius
End Function
<WebMethod()> Public Function CelsiusToFahrenheit
(ByVal Celsius As Int16) As Int16
	Dim fahrenheit As Int16
	fahrenheit = ((((Celsius) * 9) / 5) + 32) 
	Return fahrenheit
End Function

آخرين كاري كه بايد انجام دهيد، كنار گذاشتن تابع و كلاس است:

End Function
End Class

اگر شما این فایل را به عنوان فایل .asmx ذخيره كنيد و آن را در سروري كه از .NET پشتيباني مي‌كند منتشر كنيد، شما اولين Web Service كار كننده خود را داريد.

كار كردن خودكار ASP.NET

با ASP.NET، شما مجبور نيست به طور دستي WSDL و مستندات SOAP را بنويسيد.

اگر شما به دقت به اين مثال ما بنگريد، خواهيد ديد كه ASP.NET به طور خودكار WSDL و درخواست SOAP را ایجاد می‌کند.