textbox.aspx

asp.net技术内幕的书配源码

<%@ Page Inherits="System.Web.UI.MobileControls.MobilePage" %>

<Script Runat="Server">

Sub Command_Click( s As Object, e As EventArgs )
  lblContactName.Text = txtContactName.Text
  lblContactPhone.Text = txtContactPhone.Text 
  ActiveForm = frmDisplayContact
End Sub

</Script>

<Mobile:Form id="frmAddContact" runat="Server">

<b>Name:</b>
<Mobile:Textbox 
  ID="txtContactName"
  Runat="Server"/>
<br/>
<b>Phone:</b>
<Mobile:Textbox 
  ID="txtContactPhone"
  Runat="Server"/>
<br/>
<Mobile:Command
  Text="Submit!"
  OnClick="Command_Click"
  Runat="Server" /> 
</Mobile:Form>

<Mobile:Form id="frmDisplayContact" runat="Server">
<b>You Entered:</b>
<br/>
<Mobile:Label
  ID="lblcontactName"
  Runat="Server"/>
<br/>
<Mobile:Label
  ID="lblContactPhone"
  Runat="Server"/>

</Mobile:Form>