📄 login.aspx
字号:
<%@ Page Language="VB" Inherits="IBuyAdventure.PageBase" src="components/stdpage.vb" %>
<%@ Import Namespace="System.Web.Security" %>
<%@ Register TagPrefix="IBA" TagName="Header" Src="UserControl\Header.ascx" %>
<%@ Register TagPrefix="IBA" TagName="Categories" Src="UserControl\Categories.ascx" %>
<html>
<head>
<title>IBuyAdventure Catalog</title>
</head>
<script language="VB" runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
' Store Return Url in Page State
If Request.QueryString("ReturnUrl") = "" Then
ReturnUrl.Value = Request.QueryString("ReturnUrl")
RegisterUser.NavigateUrl = "Register.aspx?ReturnUrl=" & ReturnUrl.Value
End If
End Sub
Sub LoginBtn_Click(sender As Object, e As EventArgs)
Dim users As New IBuyAdventure.UsersDB(getConnStr())
Dim cart As New IBuyAdventure.CartDB(getConnStr())
If users.ValidateLogin(UserName.Text, Password.Text) Then
' Migrate any temporary shopping cart items to logged-in username
cart.MigrateShoppingCartItems(Session("AnonUID").ToString(), UserName.Text)
' Set Client Authentication Cookie
FormsAuthentication.RedirectFromLoginPage(UserName.Text, Persist.Checked)
Else
Message.Text = "Login failed, please check your details and try again."
End If
End Sub
</script>
<body background="images/back_sub.gif">
<form method=post action="Login.aspx" runat="server">
<font face="Verdana, Arial, Helvetica" size="2">
<table border="0">
<tr>
<td colspan="5">
<IBA:Header id="Header" runat="server"/>
</td>
</tr>
<!--Begin Navigational Buttons-->
<tr>
<td rowspan="5" align="left" valign="top">
<IBA:Categories id="Categories" runat="server"/>
</td>
<td valign="top">
<center>
<br>
<input type="hidden" value="/IBuyAdventure/default.aspx" id="ReturnUrl" runat="server">
<P><font size="2">You have tried to access a secure section of the site, please login or register:<br><br>
<table cellpadding="5" colspan="2">
<tr>
<td width="310" bgcolor="#800000">
<font color="#ffffff" style="Verdana, Arial, Helvetica" size="2"><b>Login</b></font>
</td>
</tr>
<tr>
<td bgcolor="f7efde" valign=top>
<table>
<tr>
<td width=100><font size="2">Email Address: </font></td>
<td><asp:textbox id="UserName" width="160" runat="server"/></td>
</tr>
<tr>
<td><font size="2">Password: </font></td>
<td><asp:textbox id="Password" TextMode="Password" width="160" runat="server"/></td>
</tr>
<tr>
<td></td>
<td><asp:checkbox id="Persist" runat="server"/> <font size="2">Remember Password</font></td>
</tr>
<tr>
<td colspan="2" align="right">
<asp:button Text=" Login " OnClick="LoginBtn_Click" runat="server"/>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<font size="2">
<asp:HyperLink NavigateUrl="Register.aspx" id="RegisterUser" runat="server">Click Here to Register New Account </asp:hyperlink>
</font><br><br>
<font size="2" color="red">
<b><asp:label id="Message" runat="server"/></b>
</font>
</center>
</td>
</tr>
</table>
</font>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -