betternewsservice.asmx

来自「asp.net技术内幕的书配源码」· ASMX 代码 · 共 31 行

ASMX
31
字号
<%@ 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       

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?