📄 login.aspx

📁 Visual Basic.NET应用编程150例

💻 ASPX

字号:

<%@ Import Namespace="System.Web.Security " %>
<html>
  <script language="VB" runat=server>
    Sub Login_Click(Src As Object, E As EventArgs)
        If UserEmail.Value = "jdoe@somewhere.com"  _
					And UserPass.Value = "password"
            FormsAuthentication.RedirectFromLoginPage( _
					UserEmail.Value, false)
        Else
            Msg.Text = "Invalid Credentials: Please try again"
        End If
    End Sub
  </script>
  <body>
    <form runat=server ID="Form1">
      <h3><font face="Verdana">Login Page</font></h3>
      <table>
        <tr>
          <td>Email:</td>
          <td><input id="UserEmail" type="text" 
					 runat=server NAME="UserEmail"/></td>
          <td><ASP:RequiredFieldValidator ControlToValidate="UserEmail" 
										  Display="Static" 
										  ErrorMessage="*" 
										  runat=server 
										  ID="Requiredfieldvalidator1"/>
		  </td>
        </tr>
        <tr>
          <td>Password:</td>
          <td><input id="UserPass" type=password 
					 runat=server NAME="UserPass"/></td>
          <td><ASP:RequiredFieldValidator ControlToValidate="UserPass" 
										  Display="Static" 
										  ErrorMessage="*" 
										  runat=server 
										  ID="Requiredfieldvalidator2"/>
		  </td>
        </tr>
      </table>
      <asp:button text="Login" OnClick="Login_Click" runat=server ID="Button1"/>
      <p></p>
      <asp:Label id="Msg" ForeColor="red" Font-Name="Verdana" runat=server />
    </form>
  </body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -