Часть 3. Регистрация пользователя
Для отображения различной информации разным категориям пользователей используется контрол asp:LoginView.
Добавляем его на нашу страницу MasterPage.master
| HTML5 | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| <asp:LoginView ID="LoginView1" runat="server">
<AnonymousTemplate>
<!-- В этом секторе указываются элементы, которые видны для всех. У нас это кнопка «Вход» -->
<div style="text-align: right; width: 300px; float: right;">
<a class="but_bl" style="margin-top: 10px" href="javascript: showL()" >Войти</a>
</div>
</AnonymousTemplate>
<LoggedInTemplate>
<!-- В этом секторе указываются элементы, которые видны зарегистрированным пользователям -->
</LoggedInTemplate>
<RoleGroups>
<asp:RoleGroup Roles="admin">
<ContentTemplate>
<!-- В этом секторе указываются элементы, которые видны ТОЛЬКО группе пользователей «admin» -->
</ContentTemplate>
</asp:RoleGroup>
</RoleGroups>
</asp:LoginView> |
|
| HTML5 | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
| <asp:Login ID="Login1" runat="server"
BorderPadding="4"
FailureText="Неудачная попытка входа. Повторите попытку." Font-Names="Verdana"
Font-Size="0.8em" ForeColor="#000067" LoginButtonText="Вход"
PasswordLabelText="Пароль:" RememberMeText="запомнить" TitleText=""
UserNameLabelText="Логин:" Orientation="Vertical" TextLayout="TextOnTop"
PasswordRecoveryText=""
>
<textboxstyle Font-Size="1.3em" />
<hyperlinkstyle Font-Underline="False" Font-Strikeout="False" ForeColor="#E0E3C4" />
<loginbuttonstyle />
<instructiontextstyle Font-Italic="True" ForeColor="Black" />
<titletextstyle BackColor="#5D7B9D" Font-Bold="True" Font-Size="0.9em" ForeColor="#000067" />
</asp:Login> |
|
| HTML5 | 1
2
3
4
5
6
| <p>Восстановление пароля</p>
Ваш E-mail:<br />
<asp:TextBox ID="EmailTextBox" Columns="25" runat="server" />
<br />
<asp:Button ID="EmailPasswordBut" Text="Отправить" OnClick="EmailPasswordBut_OnClick" runat="server" /> |
|
| vb.net | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
| Public Sub EmailPasswordBut_OnClick()
Dim Ms As Label = DirectCast(LoginView2.FindControl("Msg"), Label)
Try
Dim Email As TextBox = DirectCast(LoginView2.FindControl("EmailTextBox"), TextBox)
Dim username As String = Membership.GetUserNameByEmail(Email.Text)
Dim password As String = Membership.Provider.GetPassword(username, "")
Dim u As MembershipUser = Membership.GetUser(username, False)
If Request.ServerVariables("SERVER_NAME") = "localhost" Then
MsgBox("Ваш пароль: " & Server.HtmlEncode(password))
Else
EmailPassword(username, u.Email, password)
End If
Catch e As MembershipPasswordException
Ms.Text = "Пользователь с указанным E-mail не зарегистрирован."
Catch e As System.Configuration.Provider.ProviderException
Ms.Text = "Произошла ошибка при восстановлении вашего пароля. Проверьте свои значения и попробуйте снова."
Catch
Ms.Text = "Пользователь с указанным E-mail не зарегистрирован."
End Try
End Sub
'---------------------------------------------------------------------------------------------------------
Private Sub EmailPassword(ByVal username As String, ByVal email As String, ByVal password As String)
Dim Ms As Label = DirectCast(LoginView2.FindControl("Msg"), Label)
Dim Message As MailMessage = New MailMessage("admin@mysite.ru", email)
Dim SmtpMail As SmtpClient = New SmtpClient("robots.host.ru") 'mail-сервер на хостинге
Message.Subject = "Ваш пароль"
Message.Body = "Напоминаем вам ваш логин и пароль на сайте artisan74.ru" & vbCrLf & "Login: " & Server.HtmlEncode(username) & vbCrLf & "password: " & Server.HtmlEncode(password) & vbCrLf & vbCrLf & "C уважением, администрация сайта"
Try
SmtpMail.Send(Message)
Ms.Text = "Ваш пароль был выслан на указанный E-mail."
Catch
Ms.Text = "An exception occurred while sending your password. Please try again."
End Try
End Sub |
|
| HTML5 | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
| <asp:CreateUserWizard ID="CreateUserWizard1" runat="server"
InvalidPasswordErrorMessage="Минимальная длина пароля: {0} знаков."
DuplicateUserNameErrorMessage="Такое имя уже зарегистрировано."
CreateUserButtonText="Создать пользователя">
<WizardSteps>
<asp:CreateUserWizardStep ID="CreateUserWizardStep1" runat="server">
<ContentTemplate>
<table border="0">
<tr>
<td style="text-align:center" colspan="2">
Регистрация новых пользователей</td>
</tr>
<tr>
<td style="text-align:right">Логин (Ник):</td>
<td>
<asp:TextBox ID="UserName" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="UserNameRequired" runat="server"
ControlToValidate="UserName" ErrorMessage="User Name is required."
ToolTip="User Name is required."
ValidationGroup="CreateUserWizard1" ForeColor="red">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td style="text-align:right">Пароль:</td>
<td>
<asp:TextBox ID="Password" runat="server" TextMode="Password"></asp:TextBox>
<asp:RequiredFieldValidator ID="PasswordRequired" runat="server"
ControlToValidate="Password" ErrorMessage="Password is required."
ToolTip="Password is required."
ValidationGroup="CreateUserWizard1" ForeColor="red">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td style="text-align:right">Повторите пароль:</td>
<td>
<asp:TextBox ID="ConfirmPassword" runat="server" TextMode="Password"></asp:TextBox>
<asp:RequiredFieldValidator ID="ConfirmPasswordRequired" runat="server"
ControlToValidate="ConfirmPassword"
ErrorMessage="Confirm Password is required."
ToolTip="Confirm Password is required."
ValidationGroup="CreateUserWizard1" ForeColor="red">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td style="text-align:right">
<asp:Label ID="EmailLabel" runat="server" AssociatedControlID="Email">E-mail:</asp:Label>
</td>
<td>
<asp:TextBox ID="Email" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="EmailRequired" runat="server"
ControlToValidate="Email" ErrorMessage="E-mail is required."
ToolTip="E-mail is required."
ValidationGroup="CreateUserWizard1" ForeColor="red">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td style="text-align:right">Имя Отчество:</td>
<td>
<asp:TextBox ID="FirstName" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td style="text-align:right"></td>
<td>
</td>
</tr>
<tr>
<td style="text-align:center; color:red;" colspan="2">
<asp:CompareValidator ID="PasswordCompare" runat="server"
ControlToCompare="Password" ControlToValidate="ConfirmPassword"
Display="Dynamic"
ErrorMessage="Пароли должны совпадать."
ValidationGroup="CreateUserWizard1"></asp:CompareValidator>
</td>
</tr>
<tr>
<td style="text-align:center; color:Red;" colspan="2">
<asp:Literal ID="ErrorMessage" runat="server" EnableViewState="False"></asp:Literal>
</td>
</tr>
</table>
</ContentTemplate>
</asp:CreateUserWizardStep>
<asp:CompleteWizardStep ID="CompleteWizardStep1" runat="server">
<ContentTemplate>
<table border="0">
<tr>
<td style="text-align:center" colspan="2">
Регистрация прошла успешно.</td>
</tr>
<tr>
<td style="text-align:right" colspan="2">
<asp:Button ID="ContinueButton" runat="server" CausesValidation="False"
CommandName="Continue" PostBackUrl="~/default.aspx" Text="Продолжить"
ValidationGroup="CreateUserWizard1" />
</td>
</tr>
</table>
</ContentTemplate>
</asp:CompleteWizardStep>
</WizardSteps>
</asp:CreateUserWizard> |
|
| vb.net | 1
2
3
| Protected Sub CreateUserWizard1_CreatedUser(ByVal sender As Object, ByVal e As System.EventArgs) Handles CreateUserWizard1.CreatedUser
Roles.AddUserToRole(CreateUserWizard1.UserName, "users")
End Sub |
|
| HTML5 | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
| <table style="width:100%;">
<tr>
<td colspan="2">
<p><span class="zagolovok_txt">Регистрационная информация</span></p>
</td>
</tr>
<tr>
<td style="width: 150px">
Логин (Ник):</td>
<td>
<asp:TextBox ID="UserName" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td colspan="2">
<asp:LinkButton ID="LinkButton1" runat="server"
ForeColor="#333399" Text="Смена пароля" Font-Underline="False"></asp:LinkButton>
<asp:Panel ID="Panel2" runat="server">
<asp:ChangePassword ID="ChangePassword1" runat="server"
EditProfileUrl="EditUser.aspx" CancelButtonText="" CancelButtonType="Link"
ChangePasswordButtonType="Link" ChangePasswordTitleText=""
ContinueButtonType="Link" ChangePasswordButtonText="Сменить"
ChangePasswordFailureText="Неверный пароль или новый пароль является недействительным. Минимальная длина нового пароля: {0}."
ConfirmNewPasswordLabelText="Подтвердите новый пароль:"
ConfirmPasswordCompareErrorMessage="Значение "Подтвердите новый пароль" должно совпадать со значением "Новый пароль"."
ContinueButtonText="" NewPasswordLabelText="Новый пароль:"
PasswordLabelText="Пароль:" SuccessText="Пароль был изменен!"
SuccessTitleText="Смена пароля завершена">
</asp:ChangePassword>
</asp:Panel>
<cc1:CollapsiblePanelExtender ID="CollapsiblePanelExtender2" runat="server"
TargetControlID="Panel2"
CollapseControlID="LinkButton1" Collapsed="True"
BehaviorID="CollapsiblePanelExtender2" SuppressPostBack="True"
CollapsedText="X" ExpandControlID="LinkButton1"
ExpandedText="Сменить" >
</cc1:CollapsiblePanelExtender>
</td>
</tr>
<tr>
<td>
</td>
<td>
</td>
</tr>
<tr>
<td>
E-mail:</td>
<td>
<asp:TextBox ID="Email" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="EmailRequired" runat="server"
ControlToValidate="Email" ErrorMessage="E-mail is required."
ToolTip="E-mail is required." ForeColor="red" Display="Static">*</asp:RequiredFieldValidator></td>
</tr>
<tr>
<td>
</td>
<td>
</td>
</tr>
<tr>
<td colspan="2">
<span class="main_text">Профиль</span>
</td>
</tr>
<tr>
<td>
Имя Отчество:</td>
<td>
<asp:TextBox ID="FirstName" runat="server"></asp:TextBox>
</td>
</tr>
<tr style="vertical-align: top">
<td>
Ваше изображение<br />
(аватар: 90x90 px)<br />
<br />
</td>
<td>
<asp:Image ID="Image1" runat="server" GenerateEmptyAlternateText="True"
ToolTip="Ваше изображение" Height="90px" Width="90px"
BorderStyle="Solid" ImageUrl="~/IMG/avatars/NOavatar.gif"
BorderWidth="1px" />
<asp:ImageButton ID="ImageButton3" runat="server"
AlternateText="Удалить изображение" ImageUrl="/App_Themes/delete.gif"
Width="16px" ToolTip="Удалить изображение" ImageAlign="Top" /><br />
<asp:Label ID="MsgIMG" runat="server" ForeColor="maroon"></asp:Label>
<br />
<asp:FileUpload ID="FileUpload1" runat="server" />
<asp:Button ID="UploadButton" runat="server" Text="Добавить"
ToolTip="Добавить изображение" />
</td>
</tr>
<tr>
<td>
</td>
<td>
</td>
</tr>
<tr>
<td>
</td>
<td style="padding-top: 10px">
<asp:Label id="Msg" ForeColor="maroon" runat="server" /><br />
<asp:Button ID="Button1" runat="server" Text="Сохранить изменения" />
</td>
</tr>
</table> |
|
| vb.net | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
| Imports System.IO
Partial Class private_default
Inherits System.Web.UI.Page
Dim u As MembershipUser
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
u = Membership.GetUser(User.Identity.Name)
If Not u Is Nothing Then
Session("Name") = u.UserName
Else
Response.Redirect("/")
End If
If Not IsPostBack Then
UserName.Text = u.UserName
UserName.Enabled = False
Email.Text = u.Email
FirstName.Text = Profile.FirstName
Image1.ImageUrl = "~/IMG/avatars/" & Profile.Avatar
End If
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
u.Email = Server.HtmlEncode(Email.Text)
Profile.FirstName = Server.HtmlEncode(FirstName.Text)
Membership.UpdateUser(u)
'SqlMSG.Update()
Msg.Text = "Ваши данные изменены."
Catch err As System.Configuration.Provider.ProviderException
Msg.Text = err.Message
End Try
End Sub
Protected Sub UploadButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles UploadButton.Click
If (FileUpload1.HasFile AndAlso FileUpload1.FileBytes.Length < 30000) Then
Dim saveDir As String = "IMG\avatars"
Dim fileOK As Boolean = False
Dim fileName As String = Server.HtmlEncode(FileUpload1.FileName)
Dim extension As String = System.IO.Path.GetExtension(fileName)
Dim savePath As String = Request.PhysicalApplicationPath & saveDir & u.UserName & extension
Dim ext() As String = {".jpg", ".JPG", ".gif", ".GIF", ".bmp", ".BMP"}
For i As Integer = 0 To ext.Length - 1
If extension = ext(i) Then fileOK = True
Next
If fileOK Then
FileUpload1.SaveAs(savePath)
Profile.Avatar = u.UserName & extension
Image1.ImageUrl = "~/IMG/avatars/" & Profile.Avatar
Else
MsgIMG.Text = "Файл должен иметь расширение: jpg, gif, bmp. Объем не больше 30 кб."
End If
MsgIMG.Text = "Изображение загружено!"
Else
MsgIMG.Text = "Файл должен иметь расширение: jpg, gif, bmp. Объем не больше 30 кб."
End If
End Sub
Protected Sub ImageButton3_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton3.Click
'Удалить изображение
If Not (Profile.Avatar = "NOavatar.gif") Then
Dim saveDir As String = "IMG\avatars"
Dim Path As String = Request.PhysicalApplicationPath & saveDir & Profile.Avatar
Dim file As New FileInfo(Path)
If file.Exists Then file.Delete()
Profile.Avatar = "NOavatar.gif"
Image1.ImageUrl = "~/IMG/avatars/" & Profile.Avatar
MsgIMG.Text = "Изображение удалено!"
End If
End Sub
End Class |
|
Исходник проекта: WebSite3.rar
ссылка с Я.Диска |
