newsservice.asmx

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

<%@ WebService Class="NewsService" %>

Imports System
Imports System.Web.Services

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

<WebMethod( CacheDuration:=30 )> Public Function GetNews() As String()
  Dim arrNews( 2 ) As String

  arrNews( 0 ) = "Visit superexpert.com for ASP.NET News!"
  arrNews( 1 ) = "Visit AspWorkshops.com for ASP.NET Training!"
  arrNews( 2 ) = "Visit superexpertControls.com for ASP.NET Controls!"
  Return arrNews
End Function

End Class