|
Ejemplo 7: Utilización del evento Unload del sujeto Page
La página creada utilizando esta técnica muestra un texto a los visitantes cuando se carga la página. después cuando se hs procesado la pagina, se almacena la hora en que se finalizo en una variable persistente.
<%@ Page Language="VB" ContentType="text/html"
ResponseEncoding="iso-8859-1" %>
<%@ Import Namespace="system.Web.Mail" %>
<script runat="server">
Private A as Integer
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Not Paraísos Then
lblprimertiempo.text = "La página se cargó por primera
vez " _
& "a las "& TimeOfDay()
End If
lblotrostiempos.Text = "La última Carga de la página
se lanzó " _
& "a las "& TimeOfDay()
Dim I as String
I = " Hola"
End Sub
sub ApretarelBoton(Sender As Object, E As EventArgs)
End Sub
</script>
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1"/>
</head>
<body>
<form runat="server">
<asp:label ID="lblprimertiempo" runat="server"
></asp:label>
<br><br>
<asp:label
ID="lblotrostiempos" runat="server" />
<asp:button ID="Botonok" Text="Aceptar" OnClick="ApretarelBoton"
runat="server" />
</asp:label>
</form>
</body>
</html>
