00001: 
00002: Partial Class registration
00003:     Inherits System.Web.UI.Page
00004: 
00005:     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
00006:         If Not IsPostBack Then
00007:             If User.Identity.IsAuthenticated Then
00008:                 MultiView1.ActiveViewIndex = 1
00009:                 Button1.Focus
00010:             Else
00011:                 MultiView1.ActiveViewIndex = 0
00012:                 cbYear.SelectedValue = Now.Year - 18
00013:                 TextBox1.Focus
00014:             End If
00015:         End If
00016:     End Sub
00017: 
00018:     Protected Sub btOK_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btOK.Click
00019:         If Not vbnet2000.CheckCapture.IsTrustImagePassword(TextBox6.Text, "1") Then
00020:             L10.Visible = True
00021:         Else
00022:             'проверили антибот - ничинаем юзера создавать
00023:             Try
00024:                 Dim NewUser As MembershipUser = Membership.CreateUser(TextBox1.Text, TextBox2.Text, TextBox1.Text)
00025:                 FormsAuthentication.SetAuthCookie(TextBox1.Text, True)
00026:                 'юзер создан и залогинен, теперь создаем базу профилей
00027:                 Dim MyTypedProfile As ProfileCommon = ProfileBase.Create(TextBox1.Text)
00028:                 MyTypedProfile.usPass = TextBox2.Text
00029:                 MyTypedProfile.usNik = usLogin.Text
00030:                 MyTypedProfile.usSex = DropDownList1.SelectedValue
00031:                 Dim xDate As DateTime
00032:                 Try
00033:                     xDate = New DateTime(cbYear.SelectedValue, cbMonth.SelectedValue, cbDay.SelectedValue)
00034:                 Catch ex As Exception
00035:                     'неверная дата типа 31 февраля
00036:                 End Try
00037:                 Dim DefaultDate As New DateTime(CInt(Now.Year - 18), CInt(1), CInt(1))
00038:                 If xDate <> DateTime.MinValue And xDate <> DefaultDate Then MyTypedProfile.usBirth = xDate
00039:                 MyTypedProfile.usTown = usTown.Text
00040:                 'отложенная активация
00041:                 Dim ActivateGUID As Guid = Guid.NewGuid
00042:                 Dim ClearDate As DateTime = Now.AddHours(Double.Parse(System.Configuration.ConfigurationManager.AppSettings("LoginClear")))
00043:                 MyTypedProfile.LoginClearDate = ClearDate
00044:                 MyTypedProfile.LoginIsActivate = False
00045:                 MyTypedProfile.LoginActivateGUID = ActivateGUID.ToString
00046:                 'умалчиваемые параметры профиля для рассылки мыла и выделения нового контента
00047:                 MyTypedProfile.MailAddContact = True
00048:                 MyTypedProfile.MailAddMessage = True
00049:                 MyTypedProfile.MailAddComent = True
00050:                 MyTypedProfile.MailAddToBest = True
00051:                 MyTypedProfile.MailAddToBan = True
00052:                 MyTypedProfile.MailSendStatistic = True
00053:                 MyTypedProfile.MailSendAdminMessage = True
00054:                 MyTypedProfile.SelectNewContent = True
00055:                 '
00056:                 MyTypedProfile.Save()
00057:                 'и отправляем мыло для активации логина
00058:                 'тут тоже возможен баг - SendMail_Error: Mailbox unavailable. The server response was: non-local recipient verification failed
00059:                 Mail.SendMail(TextBox1.Text, "Активация логина VOTPUSK.RU", "<html><body>Вы зарегистрированы на сайте VOTPUSK.RU<br><br><a href=""http://" & System.Configuration.ConfigurationManager.AppSettings("HostingURL") & "/ActivateLogin.aspx?i=" & NewUser.ProviderUserKey.ToString & "&j=" & ActivateGUID.ToString & """>Для активации логина кликните по этой ссылке</a><br>" & _
00060:                 "<br><br>Убедительно просим Вас соблюдать принятые правила пользования сайтом. " & _
00061:                 "<br>Рекомендуем Вам указать максимально подробные сведения о себе, что позволит Вам попадать во всевозможные отборы и составит о Вам правильное впечатление у Ваших возможных партнеров." & _
00062:                 "<br>Вы можете отбирать понравившихся вам пользователей, фотографии, рассказы на свою личную страничку. Можете вступать в переписку с теми, кто вам интересен." & _
00063:                 "<br>Вы также можете установить различную степень подробности получаемых почтовых оповещений о событиях, происходящих на сайте." & _
00064:                 "<br>Общение удобно начинать с загрузки фотографий, описания проведенных вами путешествий, обьявлений о поиске попутчиков для новых путешествий." & _
00065:                 "<br>Желаем Вам удобного, приятного общения и хорошего отдыха!" & _
00066:                 "<br><br>C уважением, Администрация <a href='htpp://votpusk.ru'>VOTPUSK.RU</a></body></html>")
00067:                 'не срабатывает тут редирект Response.Redirect([GoTo].UserHomePage(TextBox1.Text))
00068:                 System.Web.Security.FormsAuthentication.RedirectFromLoginPage(TextBox1.Text, True)
00069:                 Response.Redirect("~/MailWarning.aspx?i=" & NewUser.ProviderUserKey.ToString)
00070:             Catch ex As Exception
00071:                 lerr.Text = ex.Message
00072:             End Try
00073:         End If
00074:     End Sub
00075: 
00076:     Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
00077:         FormsAuthentication.SignOut()
00078:     End Sub
00079: 
00080:     Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
00081:         Response.Redirect([GoTo].UserHomePage)
00082:     End Sub
00083: End Class


Comments ( )
<00>  <01>  <02>  <03>  <04>  <05>  <06>  <07>  <08>  <09>  <10>  <11>  <12>  <13>  <14>  <15>  <16>  <17>  <18>  <19>  <20>  <21>  <22>  <23
Link to this page: //www.vb-net.com/asp2/35/8.htm
<SITEMAP>  <MVC>  <ASP>  <NET>  <DATA>  <KIOSK>  <FLEX>  <SQL>  <NOTES>  <LINUX>  <MONO>  <FREEWARE>  <DOCS>  <ENG>  <CHAT ME>  <ABOUT ME>  < THANKS ME>