<%@ webservice Language="VB" Class="NewService" %> 
Imports System
Imports System.Web.Services
Public Enum ThisBook
    Pages = 700
End Enum
public class NewService :Inherits WebService
	<WebMethod()> public Function GetBookName() as string
		return "ASP.NET与数据库程序设计"
	end function
	<WebMethod(EnableSession:=true)> Public Function GetBookWriter() As String
		Return "桂思强 编著"
	End Function
	<WebMethod()> Public Function GetBookPage() As Integer
		Return ThisBook.Pages
	End Function
end class