stockquote.asmx

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

<%@ WebService Class="QuoteService" %>

Imports System.Web.Services

Public Class QuoteService
  <WebMethod()> Public Function GetQuotes() As QuoteDetails()
    ' Create an array of 3 Quote objects for our return
    Dim quotes(3) As QuoteDetails

    quotes(0) = New QuoteDetails()
    quotes(0).Symbol = "MSFT"
    quotes(0).Price = 89.34F

    quotes(1) = New QuoteDetails()
    quotes(1).Symbol = "SUNW"
    quotes(1).Price = 11.13F

    quotes(2) = New QuoteDetails()
    quotes(2).Symbol = "ORCL"
    quotes(2).Price = 22.93F

    return quotes
  End Function
End Class

Public Class QuoteDetails
  Public Symbol As String
  Public Price As Single
End Class