listing0603.ascx

来自「asp入门到精通的源代码」· ASCX 代码 · 共 32 行

<script language="VB" runat="server">
   public BackColor as String = "White"
   public UserName as string
   public Password as string
   
   public sub Submit(obj as object, e as eventargs)
      Label1.Text = "Username: <b>" & User.Text & "</b><br>" & _
	                "Password: <b>" & Pass.Text & "</b><p>"
   end sub
</script> 

<table style="background-color:<%=BackColor%>;
   font: 10pt verdana;border-width:1;
   border-style:solid;border-color:black;" 
   cellspacing=15>
   <tr>
      <td><b>Login: </b></td>
      <td><ASP:TextBox id="User" runat="server"/></td>
   </tr>
   <tr>
      <td><b>Password: </b></td>
      <td><ASP:TextBox id="Pass" TextMode="Password" 
             runat="server"/></td>
   </tr>
   <tr>
      <td></td>
      <td><ASP:Button Text="Submit" runat="server" 
             OnClick="Submit" /></td>
   </tr>
</table>
<p>
<ASP:Label id="Label1" runat="server"/>