betternewsservice.asmx

asp.net技术内幕的书配源码

<%@ WebService Class="BetterNewsService" %>

Imports System
Imports System.Web.Services
Imports myComponents

<WebService( Namespace:="http://yourdomain.com/webservices" )> _
Public Class BetterNewsService : Inherits WebService

<WebMethod( CacheDuration:=30 )> Public Function GetNews() As NewsItem()
  Dim arrNews( 2 ) As NewsItem
    
  arrNews( 0 ) = New NewsItem
  arrNews( 0 ).Headline = "Visit superexpert.com for ASP.NET News!"
  arrNews( 0 ).Posted = #12/12/2002#
  arrNews( 0 ).URL = "http://www.superexpert.com"

  arrNews( 1 ) = New NewsItem
  arrNews( 1 ).Headline = "Visit ASPWorkshops for ASP.NET Training!"
  arrNews( 1 ).Posted = #2/1/2002#
  arrNews( 1 ).URL = "http://www.AspWorkshops.com"

  arrNews( 2 ) = New NewsItem
  arrNews( 2 ).Headline = "Visit superexpertControls.com for ASP.NET Controls!"
  arrNews( 2 ).Posted = #2/14/2002#
  arrNews( 2 ).URL = "http://www.superexpertControls.com"

  Return arrNews
End Function

End Class