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
//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
浙公网安备 33010602011771号