featuredservice.asmx

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

<%@ WebService Language="VB" Class="FeaturedService" %>

Imports System
Imports System.Web.Services
Imports System.Data
Imports System.Data.SqlClient

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

  <WebMethod(CacheDuration:=60)> _ 
  Public Function GetFeatured() As DataSet
    Dim dstDataSet As DataSet
    Dim conNorthwind As SqlConnection
    Dim dadProducts As SqlDataAdapter

    conNorthwind = New SqlConnection( "Server=Localhost;UID=sa;PWD=secret;Database=Northwind" )
    dadProducts = New SqlDataAdapter( "Select * From Products", conNorthwind )
    dstDataSet = New DataSet()
    dadProducts.Fill( dstDataSet, "Products" )

    Return dstDataSet
  End Function

End Class