📄 login.aspx
字号:
<%@Page Language="VB" %>
<html>
<head>
<title>Login Form</title>
<style type="text/css">
body, input {font-family:Tahoma,Arial,sans-serif; font-size:10pt }
</style>
</head>
<body>
<form runat="server">
UserName: <input id="txtUsr" type="text" runat="server" /><p />
Password: <input id="txtPwd" type="password" runat="server" /><p />
<ASP:CheckBox id="chkPersist" runat="server" />
Remember my credentials<p />
<input type="submit" value="Login" runat="server" onserverclick="DoLogin" /><p />
<div id="outMessage" runat="server" />
</form>
<hr />
<b>The web.config file used in this example is:</b><pre>
<configuration>
<system.web>
<authentication mode="Forms">
<forms name="MyApp02" path="/" loginUrl="login.aspx"
protection="All" timeout="30">
<credentials passwordFormat="Clear">
<user name="billjones" password="test" />
<user name="marthasmith" password="test" />
<user name="joesoap" password="test" />
</credentials>
</forms>
</authentication>
<authorization>
<allow users="billjones,marthasmith,joesoap" />
<deny users="?" />
</authorization>
</system.web>
</configuration></pre>
</body>
</html>
<script language="VB" runat="server">
Sub DoLogin(objSender As Object, objArgs As EventArgs)
If FormsAuthentication.Authenticate(txtUsr.Value, txtPwd.Value) Then
FormsAuthentication.RedirectFromLoginPage(txtUsr.Value, chkPersist.Checked)
Else
outMessage.InnerHtml = "<b>Invalid credentials</b> please re-enter..."
End If
End Sub
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -