📄 register.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") Is Nothing Then
ReturnUrl.Value = Request.QueryString("ReturnUrl")
End If
End Sub
Sub RegisterBtn_Click(sender As Object, e As EventArgs)
Dim users As New IBuyAdventure.UsersDB(getConnStr())
Dim cart As New IBuyAdventure.CartDB(getConnStr())
If users.UserExists(emailAddr.Text) Then
emailAddr.Text = ""
Message.Text = "User Already Exists!!"
return
End If
If Password.Text <> ConfirmPassword.Text Then
Message.Text = "Password Mismatch!!"
return
End If
' Create new user account
users.AddNewUser(emailAddr.Text, Password.Text)
' Set Client Authentication Cookie
FormsAuthentication.SetAuthCookie(emailAddr.Text, (Persist.Checked = true))
' Migrate any temporary shopping cart items to logged-in username
cart.MigrateShoppingCartItems(Session.SessionID, emailAddr.Text)
' Redirect user back to where they came from
Response.Redirect(ReturnUrl.Value)
End Sub
</script>
<body background="images/back_sub.gif">
<form method=post action="Register.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="default.aspx" id="ReturnUrl" runat="server">
<P><font size="2">Please enter your details below:<br><br>
<table cellpadding="5" colspan="2">
<tr>
<td width="310" bgcolor="#800000">
<font color="#FFFFFF" style="Verdana, Arial, Helvetica" size="2"><b>Register</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="emailAddr" 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><font size="2">Confirm Password: </font></td>
<td><asp:textbox id="ConfirmPassword" 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="Register" OnClick="RegisterBtn_Click" runat="server"/>
</td>
</tr>
</table>
</font>
</td>
</tr>
</table>
<br><br>
<font size="5" 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 + -