VB.NET应用集锦(六)
VB.NET中的简单Web Service例程
[编者语]
此教程里有多个例程下载，点击此处下载:http://wwwb.pconline.com.cn/pcedu/empolder/gj/vb/doc/10712_down.htm
创建HTML 客户端
<html>
<h1> Web服务演示 </h1>
<body bgcolor = pink>
<form id = frm method=POST >
Web服务的URL，例如： http://server/service1.asmx
<input type = text id = ServiceLocation style="WIDTH:
322px;">
Num1 : <input type="text" size="5" name='Num1' \">
Num2 : <input type="text" size="5" name='Num2' \">
<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结果经过客户端的分析提取以文本方式显示出来。
例程下载:
http://wwwb.pconline.com.cn/pcedu/empolder/gj/vb/images/10712/WebService_mehta.zip
