Web Service 實例
2018-03-05 15:02 更新
Web Services 實例
本節(jié)通過相應的實例來讓您更加了解 Web Service 的使用。
任何應用程序都可擁有 Web Service 組件。
Web Services 的創(chuàng)建與編程語言的種類無關。
一個實例：ASP.NET Web Service
在這個例子中，我們會使用 ASP.NET 來創(chuàng)建一個簡單的 Web Service。
<%@ WebService Language="VBScript" Class="TempConvert" %>
Imports System
Imports System.Web.Services
Public Class TempConvert :Inherits WebService
<WebMethod()> Public Function FahrenheitToCelsius
(ByVal Fahrenheit As String) As String
dim fahr
fahr=trim(replace(Fahrenheit,",","."))
if fahr="" or IsNumeric(fahr)=false then return "Error"
return ((((fahr) - 32) / 9) * 5)
end function
<WebMethod()> Public Function CelsiusToFahrenheit
(ByVal Celsius As String) As String
dim cel
cel=trim(replace(Celsius,",","."))
if cel="" or IsNumeric(cel)=false then return "Error"
return ((((cel) * 9) / 5) + 32)
end function
end class
Imports System
Imports System.Web.Services
Public Class TempConvert :Inherits WebService
<WebMethod()> Public Function FahrenheitToCelsius
(ByVal Fahrenheit As String) As String
dim fahr
fahr=trim(replace(Fahrenheit,",","."))
if fahr="" or IsNumeric(fahr)=false then return "Error"
return ((((fahr) - 32) / 9) * 5)
end function
<WebMethod()> Public Function CelsiusToFahrenheit
(ByVal Celsius As String) As String
dim cel
cel=trim(replace(Celsius,",","."))
if cel="" or IsNumeric(cel)=false then return "Error"
return ((((cel) * 9) / 5) + 32)
end function
end class
此文檔是一個 .asmx 文件。這是用于 XML Web Services 的 ASP.NET 文件擴展名。
實例 Explained
注意： 要運行這個例子，我們需要一個 .NET 服務器
此文檔中第一行表明這是一個 Web Service，由 VB 編寫，其 class 名稱是 "TempConvert"。
<%@ WebService Language="VBScript" Class="TempConvert" %>
接下來的代碼行從 .NET 框架導入了命名空間 "System.Web.Services"。
Imports System
Imports System.Web.Services
Imports System.Web.Services
下面這一行定義 "TempConvert" 類是一個 WebSerivce 類：
Public Class TempConvert :Inherits WebService
接下來的步驟是基礎的 VB 編程。此應用程序有兩個函數(shù)。一個把華氏度轉換為攝氏度，而另一個把攝氏度轉換為華氏度。
與普通的應用程序唯一的不同是，此函數(shù)被定義為 "WebMethod"。
請在您希望其成為 web services 的應用程序中使用 "WebMethod" 來標記函數(shù)。
<WebMethod()> Public Function FahrenheitToCelsius
(ByVal Fahrenheit As String) As String
dim fahr
fahr=trim(replace(Fahrenheit,",","."))
if fahr="" or IsNumeric(fahr)=false then return "Error"
return ((((fahr) - 32) / 9) * 5)
end function
<WebMethod()> Public Function CelsiusToFahrenheit
(ByVal Celsius As String) As String
dim cel
cel=trim(replace(Celsius,",","."))
if cel="" or IsNumeric(cel)=false then return "Error"
return ((((cel) * 9) / 5) + 32)
end function
(ByVal Fahrenheit As String) As String
dim fahr
fahr=trim(replace(Fahrenheit,",","."))
if fahr="" or IsNumeric(fahr)=false then return "Error"
return ((((fahr) - 32) / 9) * 5)
end function
<WebMethod()> Public Function CelsiusToFahrenheit
(ByVal Celsius As String) As String
dim cel
cel=trim(replace(Celsius,",","."))
if cel="" or IsNumeric(cel)=false then return "Error"
return ((((cel) * 9) / 5) + 32)
end function
最后要做的事情是終止函數(shù)和類：
end class
假如您把此文件另存為 .asmx 文件，并發(fā)布于支持 .NET 的服務器上，那么您就擁有了第一個可工作的 Web Service。
ASP.NET 的自動化處理
通過 ASP.NET，你不必親自編寫 WSDL 和 SOAP 文檔。
如果您仔細研究我們的這個例子，您會發(fā)現(xiàn) ASP.NET 會自動創(chuàng)建 WSDL 和 SOAP 請求。
相關教程
以上內容是否對您有幫助：
更多建議：