simple.asmx

来自「This is a book about vb.you could learn 」· ASMX 代码 · 共 32 行

<%@ WebService Language="VB" class="Fibonacci" %>

Imports System.Web.Services
Imports System.Web.Services.Protocols

Public Class SimpleSoapHeader
  Inherits SoapHeader
 
  public value As string
End Class

public class Fibonacci
  Inherits WebService

  public simpleHeader As SimpleSoapHeader

  <WebMethod, SoapHeader("simpleHeader")> _
  public Function GetSeqNumber (FibIndex as Integer) as Integer
   Dim FibArray(2) as Integer
   Dim i as Integer

   FibArray(0) = 0
   FibArray(1) = 1

   For i = 3 to FibIndex
     FibArray(1) = FibArray(1) + FibArray(0)
     FibArray(0) = FibArray(1) - FibArray(0)
   Next

   return FibArray(1)
  End Function
end class