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 (
)
)
Link to this page:
//www.vb-net.com/asp2/35/8.htm
|
|