📄 login.aspx
字号:
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.Web.Security " %>
<html>
<script language="VB" runat=server>
Sub Login_Click(Src As Object, E As EventArgs)
Dim myConnection As OleDbConnection
Dim myCommand As OleDbDataAdapter
Dim ds As New DataSet
Dim ConnStr As String
Dim SQL As String
Dim dv as DataView
'ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " & _
' "DBQ=" & Server.MapPath("security.mdb")
ConnStr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("security.mdb")
myConnection = New OleDbConnection(ConnStr)
'DataSetCommand
SQL = "select * from passwords"
myCommand = New OleDbDataAdapter(SQL, myConnection)
'use Fill method of DataSetCommand to populate dataset
myCommand.Fill(ds, "passwords")
dv = new DataView(ds.Tables("passwords"))
dv.Sort = "UserName"
dv.RowFilter = "UserName = '" + UserName.Value + "' and password = '" + UserPass.Value +"'"
if dv.count >=1 then
'CookieAuthentication.RedirectFromLoginPage(UserName.Value, PersistCookie.Checked)
FormsAuthentication.RedirectFromLoginPage(UserName.Value, PersistCookie.Checked)
Else
Msg.Text = "Sorry Invalid username or password : Please try again"
End if
End Sub
</script>
<body>
<form runat=server>
<h3><font face="Verdana">Login Page</font></h3>
<table>
<tr>
<td>User Name:</td>
<td><input id="UserName" type="text" runat=server/></td>
<td><ASP:RequiredFieldValidator ControlToValidate="UserName" Display="Static" ErrorMessage="*" runat=server/></td>
</tr>
<tr>
<td>Password:</td>
<td><input id="UserPass" type=password runat=server/></td>
<td><ASP:RequiredFieldValidator ControlToValidate="UserPass" Display="Static" ErrorMessage="*" runat=server/></td>
</tr>
<tr>
<td>Persistent Cookie:</td>
<td><ASP:CheckBox id=PersistCookie runat="server" /> </td>
<td></td>
</tr>
</table>
<asp:button text="Login" OnClick="Login_Click" runat=server/>
<p>
<asp:Label id="Msg" ForeColor="red" Font-Name="Verdana" Font-Size="10" runat=server />
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -