我的第一个web service

Posted on 2004-11-04 14:21  生活即技术  阅读(335)  评论(0)    收藏  举报
web service是个激动人心的技术,下面是我的第一个web service
//service1.asmx
Imports System.Web.Services
System.Web.Services.WebService(Namespace:=http://tempuri.org/WebApplication1/Service1)
Public Class webService1
    Inherits System.Web.Services.WebService
   Public Function HelloWorld(ByVal x, ByVal y) As Single
        HelloWorld = x + y
        Return HelloWorld
    End Function
End class
然后在项目上新建一个引用,引用一下service1.asmx
//webform1.aspx
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     Dim fristwebService As New webService1
     Label4.Text = "WebService: " & (fristwebService.HelloWorld(CSng(TextBox1.Text), CSng(TextBox2.Text)))//调用web service 服务
END sub