VB.NET中的简单Web Service例程
2024-07-10 13:01:48
供稿：网友
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结果经过客户端的分析提取以文本方式显示出来。
