login.ascx

来自「《精通ASP.NET网络编程》附带实例」· ASCX 代码 · 共 37 行

<Script language="VB" runat="server">
  '单纯的属性
  Public BackColor As String="white"
  'UserID:帐号的属性
  Public Property UserID As String 
   Get
     Return Text1.Text  '传回Text1的内容，成为UserID的属性值
   End Get
   Set
     Text1.Text=Value  '将UserID的属性值设定给Text1
   End Set
  End Property
 'UserID:密码的属性
  Public Property Password As String 
   Get
     Return Text2.Text  '传回Text2的内容，成为Password的属性值
   End Get
   Set
     Text2.Text=Value  '将Password的属性值设定给Text2
   End Set
  End Property
</Script>
<Table Bgcolor="<%=BackColor%>" BorderColor="Black" CellSpacing="10">
 <tr>
  <td>帐号:</td>
  <td><asp:TextBox id="Text1" runat="server"/></td>
 </tr>
 <tr>
  <td>密码:</td>
  <td><asp:TextBox id="Text2" runat="server"/></td>
 </tr>
 <tr>
  <td></td>
  <td><asp:Button Text="登录" runat="server"/></td>
 </tr>
</Table>