00001: <%@ Page Language="VB" MasterPageFile="~/M2.master" AutoEventWireup="false" CodeFile="admin_user_activate.aspx.vb" Inherits="admin_user_activate" %>
00002: <asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
00003: <table><tr><td><asp:TextBox ID="TextBox1" runat="server" Width="300px"></asp:TextBox>
00004: </td><td><asp:Button ID="Button1" runat="server" Text="Проверить" Width="100px" />
00005: </td></tr><tr><td><asp:Label ID="Label1" runat="server"></asp:Label>
00006: </td><td><asp:Button ID="Button2" runat="server" Enabled="False" Text="Активировать" Width="100px" />
00007: </td></tr></table>
00008: </asp:Content>
.....
00001: Partial Class admin_user_activate
00002:     Inherits System.Web.UI.Page
00003:     
00004:     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
00005:         If Not IsPostBack then
00006:             TextBox1.Focus
00007:         End If
00008:     End Sub
00009: 
00010:     Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
00011:         Dim U1 As MembershipUser = Membership.GetUser(TextBox1.Text)
00012:         If U1 IsNot Nothing Then
00013:             Button2.Enabled = True
00014:             Label1.Text = U1.ProviderUserKey.ToString
00015:             TextBox1.Enabled = False
00016:             Button1.Enabled = False
00017:         End If
00018:     End Sub
00019: 
00020:     Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
00021:         Dim U1 As MembershipUser = Membership.GetUser(New Guid(Label1.Text))
00022:         Dim MyTypedProfile As New ProfileCommon
00023:         If U1 IsNot Nothing Then
00024:             MyTypedProfile = ProfileBase.Create(TextBox1.Text)
00025:             MyTypedProfile.LoginIsActivate = True
00026:             MyTypedProfile.Save()
00027:             TextBox1.Enabled = True
00028:             Button1.Enabled = True
00029:             Button2.Enabled = False
00030:             Label1.Text = ""
00031:             TextBox1.Text = ""
00032:         End If
00033:     End Sub
00034: 
00035: End Class

Comments ( )