mathservice.asmx

ASP_NET程序设计教程 源代码 冶金工业出版社 肖金秀 冯沃辉 陈少涌

<%@ WebService Language="VB" Class="MathService" %>

Imports System
Imports System.Web.Services

Public Class MathService : Inherits WebService

   <WebMethod()> Public Function Add(A As System.Single, B As System.Single) As System.Single

       Return A + B
   End Function

   <WebMethod()> Public Function Subtract(A As System.Single, B As System.Single) As System.Single

       Return A - B
   End Function

   <WebMethod()> Public Function Multiply(A As System.Single, B As System.Single) As System.Single

       Return A * B
   End Function

   <WebMethod()> Public Function Divide(A As System.Single, B As System.Single) As System.Single

       If B = 0
          Return -1
       End If
       Return Convert.ToSingle(A / B)
   End Function

End Class