Mega Code Archive
Using the substitution control (VB)
<![CDATA[
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%@ OutputCache Duration="30" VaryByParam="None" %>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
<title>Substitution Control</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:Label ID="Label1" Runat="server" Text="Label"></asp:Label>
<br />
<asp:Substitution ID="Substitution1" Runat="server"
methodName="GetUpdatedTime" />
<br />
</div>
</form>
</body>
</html>
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
]]>