00001: Imports Microsoft.VisualBasic, System.Web.Security
00002: Imports System.Web
00003: 
00004: Public Class [GoTo]
00005: 
00006:     ''' <summary>
00007:     ''' Дефолтная страничка зарегистрированного юзера - контекст поздно ставновится известным. На страничке логина его нету
00008:     ''' </summary>
00009:     Public Shared ReadOnly Property UserHomePage() As String
00010:         Get
00011:             Dim CurrentUser As MembershipUser = Membership.GetUser(HttpContext.Current.User.Identity.Name)
00012:             If CurrentUser IsNot Nothing Then
00013:                 Return "~/user.aspx?i=" & CurrentUser.ProviderUserKey.ToString
00014:             Else
00015:                 'например удален юзер прям только что
00016:                 My.Log.WriteEntry("Нету юзера. " & HttpContext.Current.User.Identity.Name)
00017:                 Return CollectorPage
00018:             End If
00019:         End Get
00020:     End Property
00021: 
00022:     ''' <summary>
00023:     ''' Так можно получит персональную страничку юзера даже пока аутефикационные куки еще не пришки в реквесте
00024:     ''' </summary>
00025:     Public Shared ReadOnly Property UserHomePage(ByVal UserName As String) As String
00026:         Get
00027:             Dim CurrentUser As MembershipUser = Membership.FindUsersByName(UserName)(0)
00028:             If CurrentUser IsNot Nothing Then
00029:                 Return "~/user.aspx?i=" & CurrentUser.ProviderUserKey.ToString
00030:             Else
00031:                 'например удален юзер прям только что или прям только что зарегился
00032:                 My.Log.WriteEntry("Нету юзера. " & HttpContext.Current.User.Identity.Name)
00033:                 Return CollectorPage
00034:             End If
00035:         End Get
00036:     End Property
00037: 
00038: 
00039:     Public Shared ReadOnly Property UserFullPage(ByVal UserName As String) As String
00040:         Get
00041:             Dim CurrentUser As MembershipUser = Membership.FindUsersByName(UserName)(UserName)
00042:             If CurrentUser IsNot Nothing Then
00043:                 Return "~/user_full.aspx?i=" & CurrentUser.ProviderUserKey.ToString
00044:             Else
00045:                 'например удален юзер прям только что
00046:                 My.Log.WriteEntry("Нету юзера. " & HttpContext.Current.User.Identity.Name)
00047:                 Return CollectorPage
00048:             End If
00049:         End Get
00050:     End Property
00051: 
00052:     Public Shared ReadOnly Property UserFotoPage(ByVal UserName As String) As String
00053:         Get
00054:             Dim CurrentUser As MembershipUser = Membership.FindUsersByName(UserName)(UserName)
00055:             If CurrentUser IsNot Nothing Then
00056:                 Return "~/user_foto.aspx?i=" & CurrentUser.ProviderUserKey.ToString
00057:             Else
00058:                 'например удален юзер прям только что
00059:                 My.Log.WriteEntry("Нету юзера. " & HttpContext.Current.User.Identity.Name)
00060:                 Return CollectorPage
00061:             End If
00062:         End Get
00063:     End Property
.....

Comments ( )