<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<%@ OutputCache Duration="30" VaryByParam="None" %>
Substitution Control
File: Default.aspx.vb
Partial Class _Default
Inherits System.Web.UI.Page
Public Shared Function GetUpdatedTime(ByVal context As HttpContext) As String
Return DateTime.Now.ToLongTimeString() + " by " + _
context.User.Identity.Name
End Function
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles Me.Load
Label1.Text = DateTime.Now.ToLongTimeString()
End Sub
End Class