Форум программистов, компьютерный форум, киберфорум
Andrey PSt
Войти
Регистрация
Восстановить пароль
Рейтинг: 5.00. Голосов: 2.

Создание своего сайта на VB.NET. Создание ФОРМ регистрации, входа на сайт и напоминания пароля.

Запись от Andrey PSt размещена 20.02.2016 в 22:58
Метки asp, vb.net, сайт

Часть 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>
Для входа на веб-узел используется контрол asp:Login

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>
Сразу же на «форме» рядом с контролом Login размещаем блок кода «Напоминание пароля» по Email.

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" />
В файле MasterPage.master.vb размещаем процедуру EmailPasswordBut_OnClick, в которой реализуем метод получения пароля из БД и отправки его на Email:

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
Теперь создаем форму регистрации. Добавляем в директиву registration страницу Web Form - default.aspx, при добавлении не забываем указывать главную страницу. На созданную страницу добавляем контрол asp:CreateUserWizard

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>
                                &nbsp;
                            </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>
В файл registration\default.aspx.vb добавляем процедуру

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
Создаем форму редактирования профиля. Добавляем в директиву private страницу Web Form - default.aspx, при добавлении не забываем указывать главную страницу. На созданную страницу добавляем следующий код:

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="Значение &quot;Подтвердите новый пароль&quot; должно совпадать со значением &quot;Новый пароль&quot;." 
                        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>
                &nbsp;
            </td>   
            <td>
                &nbsp;
            </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>
                &nbsp;
            </td>   
            <td>
                &nbsp;
            </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" />&nbsp;&nbsp;
                
                <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" />&nbsp;&nbsp;
                                    
                
                
                <asp:Button ID="UploadButton" runat="server" Text="Добавить" 
                    ToolTip="Добавить изображение" />
                    
                
                
            </td>
        </tr>
        <tr>
            <td>
                &nbsp;
            </td>
            <td>
                &nbsp;
            </td>
        </tr>
      
        <tr>
            <td>
                &nbsp;</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>
На странице private\default.aspx.vb добавляем процедуры

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

ссылка с Я.Диска
Размещено в Без категории
Просмотров 647 Комментарии 0
Всего комментариев 0
Комментарии
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.