Sys.Net.ServerTime Sample
vb/ServerTime.asmx
<%@ WebService Language="VB" Class="Samples.AspNet.ServerTime" %>
Imports System.Web
Imports System.Web.Services
Imports System.Xml
Imports System.Web.Services.Protocols
Imports System.Web.Script.Services
Namespace Samples.AspNet
<WebService(Namespace:="http://tempuri.org/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<ScriptService()> _
Public Class ServerTime
Inherits System.Web.Services.WebService
<WebMethod()> _
Public Function GetServerTime() As String
Return String.Format("The current time is {0}.", _
DateTime.Now)
End Function
End Class
End Namespace