Vb教程 Vb.net教程 Vfp教程 C/C++教程 Vc/Vc++教程 Delphi教程 Java教程 Powerbuilder
  杀毒频道 | 短信频道 | 网络电视 | 论文中心 | 学上网 | 学软件 | 网页特效 | 电脑基础 | 论坛  
  NCRE | 软考 | CET | 职称英语 | 司法考试 | 报关员 | 公务员 | CATTI | CPA考试  
  Html教程 | Css教程 | Xml教程 | Asp教程 | Asp.net | Php教程 | Jsp教程 | Linux教程 | QQ技巧  
Photoshop Illustrator ImageReady Maya教程 3D Max教程 Lightscape Coredraw教程 Authorware Autocad教程 Freehand教程
Access教程 Mysql教程 Sql server Oracle教程 Word教程 Excel教程 Powerpoint Frontpage Asp.net源码 Php源代码
Flash教程 Fireworks Dreamweaver C#教程 outlook教程 系统安装 vbscript教程 Javascript Jsp源代码 Asp源代码
您的位置:首页 >> Vb.net教程 >> 正文

VB.NET中的简单Web Service例程

文章来源:互联网

   本文和附带的源码向您演示了在.NET开发环境下创建一个WEB服务是如何得简单,同时演示了客户端如何使用这个WEB服务。例程创建了一个计算器的简单WEB服务,它有三个方法:加、减和除。

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结果经过客户端的分析提取以文本方式显示出来。

[返回]

编程语言 web开发 数据库 网络技术 操作系统 服务器 网页设计 图形设计 办公软件 常用软件 学电脑

Copyright© www.bianceng.cn Powered by 编程入门网 All Rights Reserved.
关于本站 | 版权声明 | 联系我们 | 友情链接 |
编程入门网 版权所有