VB.NET中的簡單Web Service常式

來源:互聯網
上載者:User
web VB.NET中的簡單Web Service常式

本文和附帶的源碼向您示範了在.NET開發環境下建立一個WEB服務是如何得簡單,同時示範了用戶端如何使用這個WEB服務。常式建立了一個計算機的簡單WEB服務,它有三個方法:加、減和除。

下載檔案包WebService_mehta.zip包含所有示範檔案: Calculator.asmx

HTMLClient.Html

InetClient (VB6 Project)

Calculator.asmx代碼

<%@ WebService Language ="Vb" Class="Calculator" %>
'這個執行個體示範了簡單的WEB服務
'計算機有三個WEB方法作基本計算
'標記 <WebMethord()>匯出方法

option strict off
Imports System.Web.Services

Public Class Calculator: Inherits WebService

Public Function <WebMethod()> Add(Num1 as integer,Num2 as integer)
As Integer
return Num1 + Num2
End Function

Public Function <WebMethod()> Substract(Num1 as integer,Num2 as
integer) As Integer
return Num1 - Num2
End Function

Public Function <WebMethod()> Divide(Num1 as integer,Num2 as
integer) As Integer
return Num1 / Num2
End Function
End class

Calculator.asmx有三個方法,它們都接受參數Num1和Num2,然後執行算數計算返回一個整數值。

在IIS下將Calculator.asmx發布到任何一個虛擬目錄下,從瀏覽器中訪問,如下:

http://<server>/<virtualdirectory>/Calculator.asmx

你會看到一個“計算機Web服務”的描述頁面,頁面顯示被匯出的並且可以在同一個頁面調用的三個方法。

建立HTML 用戶端

<html>
<h1> Web服務示範 </h1>
<body bgcolor = pink>
<form id = frm method=POST >
Web服務的URL,例如: http://server/service1.asmx <br>
<input type = text id = ServiceLocation style="WIDTH:
322px;"><br><br>
Num1 : <input type="text" size="5" name='Num1' \"><br>
Num2 : <input type="text" size="5" name='Num2' \"><br><br> <input type = button Value = 加 onclick = "Add()">
<input type = button Value = 減 onclick = "Substract()">
<input type = button Value = 除 onclick = "Divide()">
</form>
<script Language = "vbScript">
Sub Add
msgbox frm.ServiceLocation.value
frm.action = frm.ServiceLocation.value & "/Add"

frm.submit
end sub
sub Substract
frm.action = frm.ServiceLocation.value & "/Substract"
frm.submit
end sub

sub Divide
frm.action = frm.ServiceLocation.value & "/Divide"
frm.submit
end sub
</script>
</body>
</html>

用戶端頁面提交資料到Calculator.asmx的Web服務頁面,返回的結果是XML形式的。

WinInet 用戶端

WinInet 用戶端使用 win32 使用者介面接受資料,然後提交給Calculator.asxm Web 服務,返回的XML結果經過用戶端的分析提取以文本方式顯示出來。



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。