>Public Class datecheck
> Inherits System.Web.UI.Page
> Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
> Protected WithEvents Button1 As System.Web.UI.WebControls.Button
>#Region " Web Form Designer Generated Code "
> ' Этот код создан конструктором Web-форм.
>
> InitializeComponent()
> End Sub
> Private Sub Page_Init(ByVal sender As System.Object, _
> ByVal e As System.EventArgs) Handles MyBase.Init
> ' CODEGEN: Этот вызов метода организован конструктором Web-форм.
> ' Не изменяйте его вручную в окне редактора кода.
> InitializeComponent()
> End Sub
>#End Region
> Dim Msg As String
> Private Sub Page_Load(ByVal sender As System.Object, _
> ByVal e As System.EventArgs) Handles MyBase.Load
> Button1.Text = "Check Date"
> TextBox1.Text = DateTime.Now.ToString
> End Sub
> Private Sub Button1_Click(ByVal sender As System.Object, _
> ByVal e As System.EventArgs) Handles Button1.Click
> Msg = IsDate(Request.Form.Item("TextBoxl")).ToString
> Msg += "
"
> Msg += Request.Form.Item("TextBox1")
> If Page.IsPostBack Then
> Response.Write(Msg)
> Button1.Text = "Date Checked"
> End If
> End Sub
>End Class
В листинге 12.1 нет никаких следов взаимодействия с клиентской частью.
><%@ Page Language="vb" AutoEventWireup="false" Codebehind="datecheck.aspx.vb" Inherits="Novelty1.datecheck" %>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
В листинге 12.2 элементы управления формы содержат директиву runat=server, которая указывает на выполнение сервером действий, определенных во вспомогательном коде datecheck.aspx.vb. В листинге 12.3 приведен фактически генерируемый HTML-код, который передается клиенту. Код серверного элемента управления никогда не передается клиенту. Клиент получает только HTML-результат выполнения сервером кода данного элемента управления.
>
>
>
>
>
>
>
>