Profile的介绍 (asp.net 2.0)

Profile的介绍 (asp.net 2.0)
概要：许多ASP.NET应用程序需要跨访问的用户属性跟踪功能，在ASP.NET1.1中，我们只能人工实现这一功能。但如今，使用 ASP.NET 2.0的Profile对象，这个过程变得异常简单。Stephen Walther将验证该对象，并向你展示如何使用Profile来跟踪用户属性、创建一个购物篮，及其他一些例子。

总目录
介绍
 User Profile总揽
 定义User Profile
使用Profile组
 使用复杂的Profile属性
 继承一个Profile
迁移匿名Profile设置
 配置Profile Provider
管理Profiles并生成Profile报告
 总结
 相关书籍

Microsoft ASP.NET 2.0支持被称为Profile的新对象，它可以自动在多个Web应用程序的访问之间存储用户信息。一个User Profile中可以存储各种类型的信息，这些信息既可以是简单的string和integer类型，也可以是复杂的自定义类型。例如，你可以存储用户的姓、购物篮、用户属性或网站使用情况统计。
本文中，你将学习如何在一个应用中定义user profile。我们也会向你演示如何配置使用不同provider的profile。最后，你将学习如何管理和生成user profile的报告。

User Profiles总揽
Profile 对象与Session对象十分相似，但是更好用一些。与Session相似的地方在于，Profile是相对于一个特定的用户的，也就是说，每个Web应用程序的用户都有他们自己的profile对象。与Session不同的是，Profile对象是持久对象。如果你向Session中添加一个项，在你离开网站时，该项就会消失。而Profile则完全不同，当你修改Profile的状态时，修改在多个访问之间均有效。

profile使用provider模式来存储信息，默认情况下，user profile的内容会保存在SQL Server Express数据库中，该数据库位于网站的App_Data目录。然而，在本文的后半部分，你将了解如何使用其他数据提供者(data provider)来存储信息，如完整版的SQL Server中的一个数据库或者一个Oracle数据库。

与Session不同，Profile是强类型的，Session对象仅仅是一个项集合而已，而profile对象则有强类型属性。
使用强类型是有它的道理的。例如，使用强类型，你就可以在Microsoft Visual Web Developer中使用智能感知技术，当你键入Profile和一个点的时候，智能感知会弹出你已经定义过的profile属性列表。

定义user profile
你既可以在machine.config中，也可以在web.config中定义一个user profile，由于你不能在应用程序的二级目录中创建一个包含文件profile节的web.config文件，这意味着你将无法在一个应用程序中定义两个以上的profile。
在列表1的web.config中，列举了一个简单的profile定义的实例，该profile有三个属性，FirstName, LastName和PageVisits。

列表1
<configuration>
<system.web>
   <authentication mode="Forms" />

           <anonymousIdentification enabled="true" />

   <profile>
               <properties>
                  <add
        name="FirstName"
        defaultValue="??"
        allowAnonymous="true" />
      <add
        name="LastName"
        defaultValue="??"
        allowAnonymous="true" />
      <add
        name="PageVisits"
        type="Int32"
        allowAnonymous="true"/>
               </properties>
           </profile>
</system.web>
</configuration>

    由于该profile需要同时被匿名用户和已认证用户使用，因此我们在web.config文件中增加包含一个< anonymousIdentification>元素，有了这个元素，系统就会自动为匿名用户生成唯一的ID。仔细看的话我们会发现，每一个 profile属性都有一个allowAnonymous特性，该特性表明这个profile属性是否允许被匿名用户使用。

    默认的profile属性类型是System.String类型。列表1中，由于没有为FirstName和LastName这两个profile属性增加type特性，那么系统默认它们是string类型，而PageVisits属性则指定了type特性为Int32，因此该profile属性可用于表示一个整型值。

    最后，注意FirstName和LastName属性都有defaultValue特性。你可以为简单的数据类型设置defaultValue特性，但你不能为复杂类型设置defaultValue特性。

    当你定义好一个profile之后，系统会自动在下一次页面被调用时，生成一个与该profile相对应的类。这个类会被保存在"Temporary ASP.NET Files Directory"目录(该目录也用于存放用于动态生成页面的类）。你可以使用HttpContext的Profile属性(Property)调用该类。
    当你定义好一个profile后，你可以使用如下方法为profile属性赋值。

[Visual Basic .NET]
Profile.FirstName = "Bill"

[C#]
Profile.FirstName = "Bill";

任何在web.config中定义的profile属性都会在Profile对象中呈现。
列表2演示了你该如何使用profile来持久化保存用户信息。这个页显示了FirstName,LastName, PageVisits三个属性的值，同时它包含了一个能够用于修改这三个属性的表单(form)。在Page_Load中更新PageVisits的值，这意味着每一次刷新页面，PageVisits的值都会改变。

图1 使用简单的profile

列表 2. Simple.aspx (Visual Basic .NET)
<%@ Page Language="VB" %>
<script runat="server">

    Sub Page_Load()
        Profile.PageVisits += 1
    End Sub

    Sub UpdateProfile(ByVal s As Object, ByVal e As EventArgs)
        Profile.FirstName = txtFirstName.Text
        Profile.LastName = txtLastName.Text
    End Sub

</script>

<html>
<head>
    <title>Simple</title>
</head>
<body>
    <form id="form1" runat="server">
    <b>Name:</b> <%= Profile.FirstName %> <%= Profile.LastName %>
    <br />
    <b>Page Visits:</b> <%= Profile.PageVisits %>

    <hr />

    <b>First Name:</b>
    <asp:TextBox ID="txtFirstName" Runat="Server" />
    <br />
    <b>Last Name:</b>
    <asp:TextBox ID="txtLastName" Runat="Server" />
    <br />
    <asp:Button
        Text="Update Profile"
        OnClick="UpdateProfile"
        Runat="server" />

    </form>
</body>
</html>

列表 2. Simple.aspx (C#)
<%@ Page Language="C#" %>
<script runat="server">

    void Page_Load() {
        Profile.PageVisits ++;
    }

    void UpdateProfile(Object s, EventArgs e) {
        Profile.FirstName = txtFirstName.Text;
        Profile.LastName = txtLastName.Text;
    }

</script>

<html>
<head>
    <title>Simple</title>
</head>
<body>
    <form id="form1" runat="server">
    <b>Name:</b> <%= Profile.FirstName %> <%= Profile.LastName %>
    <br />
    <b>Page Visits:</b> <%= Profile.PageVisits %>

    <hr />

    <b>First Name:</b>
    <asp:TextBox ID="txtFirstName" Runat="Server" />
    <br />
    <b>Last Name:</b>
    <asp:TextBox ID="txtLastName" Runat="Server" />
    <br />
    <asp:Button ID="Button1"
        Text="Update Profile"
        OnClick="UpdateProfile"
        Runat="server" />

    </form>
</body>
</html>

如果你多次访问列表2中的页面，你会注意到PageVisits在不断增大。如果你关闭的浏览器，并在一周之后调用该页面，PageVisits属性仍然会保留原值。从这一点可以看出Profile为每个用户自动保存一个副本。

使用Profile组

尽管你仅可以为一个应用程序定义一个profile，但如果你需要让几个profile属性一起工作，把它们放在组中，会让你觉得它们更易管理。

例如，在列表3中，有一个带有两个组的profile，这两个组分别是Address和Preferences

列表3. Web.Config
<configuration>
<system.web>

   <anonymousIdentification enabled="true" />

   <profile>
               <properties>
   <group name="Address">
                  <add
         name="Street"
         allowAnonymous="true" />
                 <add
         name="City"
         allowAnonymous="true" />
   </group>
   <group name="Preferences">
      <add
         name="ReceiveNewsletter"
         type="Boolean"
         defaultValue="false"
         allowAnonymous="true" />
   </group>
              </properties>
        </profile>
</system.web>
</configuration>

当你用组来定义profile时，你应该使用组名来设置或读取profile属性。例如，在列表3中，你可以使用以下一些句子来完成三个profile属性的赋值。

[Visual Basic .NET]

Profile.Address.City = "Modesto"
Profile.Address.Street = "111 King Arthur Ln"
Profile.Preferences.ReceiveNewsletter = False

[C#]

Profile.Address.City = "Modesto";
Profile.Address.Street = "111 King Arthur Ln";
Profile.Preferences.ReceiveNewsletter = false;

一个profile的定义只能包含一层组，换句话说，你不能把其他的组放在一个profile组的下面一层。

使用复杂的profile属性

到目前为止，我们已经介绍了声明包含简单类型（如string或整型）属性的profile，其实你也可以在profile中声明复杂属性。
举个例子，假设你现在需要在profile中存储一个购物篮，如果这样做的话，你就可以在每次访问网站时获得自己的购物篮。
列表4 声明了一个包含profile，这个profile包含一个名为ShoppingCart的属性，而该属性的type特性是一个叫ShoppingCart的类（我们接下来会创建该类），该类名是有效的。
我们还会注意到，该声明中包含一个serializeAs特性，该特性可以帮助ShoppingCart使用二进制序列化器(binary serializer)进行持久化，而不是使用xml序列化器。

列表4 Web.config

<configuration>
<system.web>

  <anonymousIdentification enabled="true" />

  <profile>
    <properties>
    <add
       name="ShoppingCart"
       type="ShoppingCart"
       serializeAs="Binary"
       allowAnonymous="true" />
    </properties>
  </profile>
</system.web>
</configuration>

列表5 中有一个简单购物篮的实现代码，该购物篮拥有添加和删除项(item)的方法(method)，同时它还拥有两个属性(property)，一个是用于获得该购物篮中的所有项的，一个是用于表示所有商品的总价的。
列表5 ShoppingCart (Visual Basic.NET)

Imports Microsoft.VisualBasic

<Serializable()> _
Public Class ShoppingCart
    Public _CartItems As New Hashtable()

    ' Return all the items from the Shopping Cart
    Public ReadOnly Property CartItems() As ICollection
        Get
            Return _CartItems.Values
        End Get
    End Property

    ' The sum total of the prices
    Public ReadOnly Property Total() As Decimal
        Get
            Dim sum As Decimal
            For Each item As CartItem In _CartItems.Values
                sum += item.Price * item.Quantity
            Next
            Return sum
        End Get
    End Property

    ' Add a new item to the shopping cart
    Public Sub AddItem(ByVal ID As Integer, _
      ByVal Name As String, ByVal Price As Decimal)
        Dim item As CartItem = CType(_CartItems(ID), CartItem)
        If item Is Nothing Then
            _CartItems.Add(ID, New CartItem(ID, Name, Price))
        Else
            item.Quantity += 1
            _CartItems(ID) = item
        End If
    End Sub

    ' Remove an item from the shopping cart
    Public Sub RemoveItem(ByVal ID As Integer)
        Dim item As CartItem = CType(_CartItems(ID), CartItem)
        If item Is Nothing Then
            Return
        End If
        item.Quantity -= 1
        If item.Quantity = 0 Then
            _CartItems.Remove(ID)
        Else
            _CartItems(ID) = item
        End If
    End Sub

End Class

<Serializable()> _
Public Class CartItem

    Private _ID As Integer
    Private _Name As String
    Private _Price As Decimal
    Private _Quantity As Integer = 1

    Public ReadOnly Property ID() As Integer
        Get
            Return _ID
        End Get
    End Property

    Public ReadOnly Property Name() As String
        Get
            Return _Name
        End Get
    End Property

    Public ReadOnly Property Price() As Decimal
        Get
            Return _Price
        End Get
    End Property

    Public Property Quantity() As Integer
        Get
            Return _Quantity
        End Get
        Set(ByVal value As Integer)
            _Quantity = value
        End Set
    End Property

    Public Sub New(ByVal ID As Integer, _
      ByVal Name As String, ByVal Price As Decimal)
        _ID = ID
        _Name = Name
        _Price = Price
    End Sub
End Class

列表5 ShoppingCart (c#)

using System;
using System.Collections;

[Serializable]
public class ShoppingCart
{
    public Hashtable _CartItems = new Hashtable();

    // Return all the items from the Shopping Cart
    public ICollection CartItems
    {
        get { return _CartItems.Values; }
    }

    // The sum total of the prices
    public decimal Total
    {
        get
        {
            decimal sum = 0;
            foreach (CartItem item in _CartItems.Values)
                sum += item.Price * item.Quantity;
            return sum;
        }
    }

    // Add a new item to the shopping cart
    public void AddItem(int ID, string Name, decimal Price)
    {
        CartItem item = (CartItem)_CartItems[ID];
        if (item == null)
            _CartItems.Add(ID, new CartItem(ID, Name, Price));
        else
        {
            item.Quantity++;
            _CartItems[ID] = item;
        }
    }

    // Remove an item from the shopping cart
    public void RemoveItem(int ID)
    {
        CartItem item = (CartItem)_CartItems[ID];
        if (item == null)
            return;
        item.Quantity--;
        if (item.Quantity == 0)
            _CartItems.Remove(ID);
        else
            _CartItems[ID] = item;
    }

}

[Serializable]
public class CartItem
{
    private int _ID;
    private string _Name;
    private decimal _Price;
    private int _Quantity = 1;

    public int ID
    {
        get { return _ID; }
    }

    public string Name
    {
        get { return _Name; }
    }

    public decimal Price
    {
        get { return _Price; }
    }

    public int Quantity
    {
        get { return _Quantity; }
        set { _Quantity = value; }
    }

    public CartItem(int ID, string Name, decimal Price)
    {
        _ID = ID;
        _Name = Name;
        _Price = Price;
    }
}

如果你把列表5中的代码添加到应用程序的App_Code目录中，购物篮会自动被编译。

在列表5中有一点值得注意，那就是ShoppingCart和CartItem类都加上了可序列化的特性，这一点对于他们能否被序列化十分重要，只有这样才能保存在Profile对象中。
最后，列表6的页面显示了可以被添加到购物篮中的产品。购物篮是通过BindShoppingCart方法从Profile对象中载入，该方法把购物篮中的对象绑定到一个GridView对象上，这些对象可以通过ShoppingCart类的CartItems属性获得。

图2 在profile中存储购物篮

AddCartItem方法用于在购物篮中添加一个产品，该方法中包含了检测Profile是否存在ShoppingCart的代码。对于Profile中存储的对象，你必须自己实例化这些对象，他们不会自动实例化。

RemoveCartItem方法用于从购物篮中移除一个产品，该方法只是简单地通过调用Profile中的ShoppingCart对象的RemoveItem方法。

列表 6 - Products.aspx (Visual Basic .NET)

<%@ Page Language="VB" %>

<script runat="server">

    Sub Page_Load()
        If Not IsPostBack Then
            BindShoppingCart()
        End If
    End Sub

    Sub BindShoppingCart()
        If Not Profile.ShoppingCart Is Nothing Then
            CartGrid.DataSource = Profile.ShoppingCart.CartItems
            CartGrid.DataBind()
            lblTotal.Text = Profile.ShoppingCart.Total.ToString("c")
        End If
    End Sub

    Sub AddCartItem(ByVal s As Object, ByVal e As EventArgs)
        Dim row As GridViewRow = ProductGrid.SelectedRow

        Dim ID As Integer = CInt(ProductGrid.SelectedDataKey.Value)
        Dim Name As String = row.Cells(1).Text
        Dim Price As Decimal = CDec(row.Cells(2).Text)

        If Profile.ShoppingCart Is Nothing Then
            Profile.ShoppingCart = New ShoppingCart
        End If
        Profile.ShoppingCart.AddItem(ID, Name, Price)
        BindShoppingCart()
    End Sub

    Sub RemoveCartItem(ByVal s As Object, ByVal e As EventArgs)
        Dim ID As Integer = CInt(CartGrid.SelectedDataKey.Value)
        Profile.ShoppingCart.RemoveItem(ID)
        BindShoppingCart()
    End Sub
</script>

<html>
<head>
    <title>Products</title>
</head>
<body>
    <form id="form1" runat="server">

    <table width="100%">
    <tr>
        <td valign="top">
    <h2>Products</h2>
    <asp:GridView
        ID="ProductGrid"
        DataSourceID="ProductSource"
        DataKeyNames="ProductID"
        AutoGenerateColumns="false"
        OnSelectedIndexChanged="AddCartItem"
        ShowHeader="false"
        CellPadding="5"
        Runat="Server">
        <Columns>
            <asp:ButtonField
                CommandName="select"
                Text="Buy" />
            <asp:BoundField
                DataField="ProductName" />
            <asp:BoundField
                DataField="UnitPrice"
                DataFormatString="{0:c}" />
        </Columns>
    </asp:GridView>


    <asp:SqlDataSource
        ID="ProductSource"
        ConnectionString=
"Server=localhost;Database=Northwind;Trusted_Connection=true;"
        SelectCommand=
          "SELECT ProductID,ProductName,UnitPrice FROM Products"
        Runat="Server" />
        </td>
        <td valign="top">
        <h2>Shopping Cart</h2>
        <asp:GridView
            ID="CartGrid"
            AutoGenerateColumns="false"
            DataKeyNames="ID"
            OnSelectedIndexChanged="RemoveCartItem"
            CellPadding="5"
            Width="300"
            Runat="Server">
            <Columns>
            <asp:ButtonField
                CommandName="select"
                Text="Remove" />
            <asp:BoundField
                DataField="Name"
                HeaderText="Name" />
            <asp:BoundField
                DataField="Price"
                HeaderText="Price"
                DataFormatString="{0:c}" />
            <asp:BoundField
                DataField="Quantity"
                HeaderText="Quantity" />
            </Columns>
        </asp:GridView>
        <b>Total:</b>
        <asp:Label ID="lblTotal" Runat="Server" />
        </td>
     </tr>
     </table>
    </form>
</body>
</html>

列表 6. Products.aspx (C#)

<%@ Page Language="C#" %>
<%@ Import Namespace="System.Globalization" %>
<script runat="server">

    void Page_Load() {
        if (!IsPostBack)
            BindShoppingCart();
    }

    void BindShoppingCart()
    {
        if (Profile.ShoppingCart != null)
        {
            CartGrid.DataSource = Profile.ShoppingCart.CartItems;
            CartGrid.DataBind();
            lblTotal.Text = Profile.ShoppingCart.Total.ToString("c");
        }
    }

    void AddCartItem(Object s, EventArgs e)
    {
        GridViewRow row = ProductGrid.SelectedRow;

        int ID = (int)ProductGrid.SelectedDataKey.Value;
        String Name = row.Cells[1].Text;
        decimal Price = Decimal.Parse(row.Cells[2].Text,
          NumberStyles.Currency);

        if (Profile.ShoppingCart == null)
            Profile.ShoppingCart = new ShoppingCart();

        Profile.ShoppingCart.AddItem(ID, Name, Price);
        BindShoppingCart();
    }

    void RemoveCartItem(Object s, EventArgs e)
    {
        int ID = (int)CartGrid.SelectedDataKey.Value;
        Profile.ShoppingCart.RemoveItem(ID);
        BindShoppingCart();
    }
</script>

<html>
<head>
    <title>Products</title>
</head>
<body>
    <form id="form1" runat="server">

    <table width="100%">
    <tr>
        <td valign="top">
    <h2>Products</h2>
    <asp:GridView
        ID="ProductGrid"
        DataSourceID="ProductSource"
        DataKeyNames="ProductID"
        AutoGenerateColumns="false"
        OnSelectedIndexChanged="AddCartItem"
        ShowHeader="false"
        CellPadding="5"
        Runat="Server">
        <Columns>
            <asp:ButtonField
                CommandName="select"
                Text="Buy" />
            <asp:BoundField
                DataField="ProductName" />
            <asp:BoundField
                DataField="UnitPrice"
                DataFormatString="{0:c}" />
        </Columns>
    </asp:GridView>


    <asp:SqlDataSource
        ID="ProductSource"
        ConnectionString=
"Server=localhost;Database=Northwind;Trusted_Connection=true;"
        SelectCommand=
          "SELECT ProductID,ProductName,UnitPrice FROM Products"
        Runat="Server" />
        </td>
        <td valign="top">
        <h2>Shopping Cart</h2>
        <asp:GridView
            ID="CartGrid"
            AutoGenerateColumns="false"
            DataKeyNames="ID"
            OnSelectedIndexChanged="RemoveCartItem"
            CellPadding="5"
            Width="300"
            Runat="Server">
            <Columns>
            <asp:ButtonField
                CommandName="select"
                Text="Remove" />
            <asp:BoundField
                DataField="Name"
                HeaderText="Name" />
            <asp:BoundField
                DataField="Price"
                HeaderText="Price"
                DataFormatString="{0:c}" />
            <asp:BoundField
                DataField="Quantity"
                HeaderText="Quantity" />
            </Columns>
        </asp:GridView>
        <b>Total:</b>
        <asp:Label ID="lblTotal" Runat="Server" />
        </td>
     </tr>
     </table>
    </form>
</body>
</html>

继承一个profile
你也可以通过从一个已经存在的profile类中继承一个profile来完成对profile的定义，这种特性能够帮助你在多个应用程序中使用相同的profile。
例如，列表7中列出了一个拥有多个用户属性的类，该类是从ProfileBase类继承而来的（你可以在System.Web.Profile中找到）

在列表8中的Web.config包含一个从UserInfo类继承而来的profile，通过该声明，新的profile可以获得UserInfo类的所有属性。

列表 7. UserInfo (Visual Basic .NET)

Imports Microsoft.VisualBasic
Imports System.Web.Profile

Public Class UserInfo
    Inherits ProfileBase

    Private _FirstName As String
    Private _LastName As String

    Public Property FirstName() As String
        Get
            Return _FirstName
        End Get
        Set(ByVal value As String)
            _FirstName = value
        End Set
    End Property

    Public Property LastName() As String
        Get
            Return _LastName
        End Get
        Set(ByVal value As String)
            _LastName = value
        End Set
    End Property

End Class
列表 7. UserInfo (C#)
```
using System;
using System.Web.Profile;

public class UserInfo : ProfileBase
{
    private string _FirstName;
    private string _LastName;

    public string FirstName 
    {
        get { return _FirstName; }
        set { _FirstName = value; }
    }
    public string LastName
    {
        get { return _LastName; }
        set { _LastName = value; }
    }
}
```
using System;
using System.Web.Profile;

public class UserInfo : ProfileBase
{
    private string _FirstName;
    private string _LastName;

    public string FirstName
    {
        get { return _FirstName; }
        set { _FirstName = value; }
    }
    public string LastName
    {
        get { return _LastName; }
        set { _LastName = value; }
    }
}
列表 8. Web.Config

<configuration>
    <system.web>
           <anonymousIdentification enabled="true" />
   <profile inherits="UserInfo" />
    </system.web>
</configuration>

迁移匿名Profile设置
Profile对象既可用于匿名用户也可以用于已认证用户。然而，当用户从匿名用户状态转换为已认证用户状态时，Profile对象能够以一种令人难以理解的方式完成任务。
当匿名用户使用Profile对象时，用户profile是与一个随机生成的号码相关联的，该号码是根据每个用户唯一生成的，它保存在浏览器的cookie中，无论何时该用户返回应用程序，该用户的Profile设置会被自动加载。
如果匿名用户通过认证的话，所有与该用户相关的profile就会丢失，同时系统会生成一个新的profile。这时该Profile信息将与用户名相关联，而非唯一识别号。
要想理解所有这些工作，最好的方法就是看看下面的例子。列表9中的web.config定义了一个profile，该profile只有一个FavoriteColor属性。

列表 9 Web.config

<configuration>
<system.web>

   <authentication mode="Forms" />

           <anonymousIdentification enabled="true" />

   <profile>
   <properties>
                  <add
         name="FavoriteColor"
         allowAnonymous="true"
         defaultValue="Red" />
               </properties>
           </profile>
</system.web>
</configuration>

列表10中有一个包含两个按钮的页面，分别是login和logout按钮，其中还有一个用于更新FavoriteColor属性的表单。

列表10. Anonymous.aspx (Visual Basic .NET)

<%@ Page Language="VB" %>

<script runat="server">

    Sub Login(ByVal s As Object, ByVal e As EventArgs)
        FormsAuthentication.SetAuthCookie("Bill", False)
        Response.Redirect(Request.Path)
    End Sub

    Sub Logout(ByVal s As Object, ByVal e As EventArgs)
        FormsAuthentication.SignOut()
        Response.Redirect(Request.Path)
    End Sub

    Sub UpdateProfile(ByVal s As Object, ByVal e As EventArgs)
        Profile.FavoriteColor = txtFavoriteColor.Text
    End Sub

    Sub Page_PreRender()
        lblUsername.Text = Profile.UserName
        lblFavoriteColor.Text = Profile.FavoriteColor
    End Sub

</script>

<html>
<head>
    <title>Anonymous</title>
</head>
<body>
    <form id="form1" runat="server">

    <asp:Button ID="Button1"
        Text="Login"
        OnClick="Login"
        Runat="Server" />
    <asp:Button ID="Button2"
        Text="Logout"
        OnClick="Logout"
        Runat="Server" />
    <hr />
    <asp:TextBox
        id="txtFavoriteColor"
        Runat="Server" />
    <asp:Button ID="Button3"
        Text="Update Profile"
        OnClick="UpdateProfile"
        Runat="Server" />
    <hr />
    <b>Username:</b>
    <asp:Label
        id="lblUsername"
        Runat="Server" />
    <br />
    <b>Favorite Color:</b>
    <asp:Label
        id="lblFavoriteColor"
        Runat="Server" />

    </form>
</body>
</html>

列表10. Anonymous.aspx (C#)

<%@ Page Language="C#" %>

<script runat="server">

    void Login(Object s, EventArgs e)
    {
        FormsAuthentication.SetAuthCookie("Bill", false);
        Response.Redirect(Request.Path);
    }

    void Logout(Object s, EventArgs e)
    {
        FormsAuthentication.SignOut();
        Response.Redirect(Request.Path);
    }

    void UpdateProfile(Object s, EventArgs e)
    {
        Profile.FavoriteColor = txtFavoriteColor.Text;
    }

    void Page_PreRender()
    {
        lblUsername.Text = Profile.UserName;
        lblFavoriteColor.Text = Profile.FavoriteColor;
    }

</script>

<html>
<head>
    <title>Anonymous</title>
</head>
<body>
    <form id="form1" runat="server">

    <asp:Button
        Text="Login"
        OnClick="Login"
        Runat="Server" />
    <asp:Button ID="Button1"
        Text="Logout"
        OnClick="Logout"
        Runat="Server" />
    <hr />
    <asp:TextBox
        id="txtFavoriteColor"
        Runat="Server" />
    <asp:Button
        Text="Update Profile"
        OnClick="UpdateProfile"
        Runat="Server" />
    <hr />
    <b>Username:</b>
    <asp:Label
        id="lblUsername"
        Runat="Server" />
    <br />
    <b>Favorite Color:</b>
    <asp:Label
        id="lblFavoriteColor"
        Runat="Server" />

    </form>
</body>
</html>

当你打开第一个页面时，UserName的值是一个随机生成的唯一识别号（见图3）。当你按下Login按钮后，你就完成了身份认证，它是通过用户票据(User Bill)完成的。

图3 使用匿名和认证profile

列表10的页面中包含一个用于更新FavoriteColor的表单，要注意的是，在你登录登出的时候，会分别生成两个不同的profile。例如当你先登录，后登出的话，那么系统会生成一个随机的唯一识别号。

在很多情况下，你需要把匿名profile迁移到认证profile状态，如果你需要迁移profile属性值的话，你可以利用 ProfileModule类的MigrateAnonymous事件完成该任务，该事件只能在Global.asax文件中进行处理。列表11中的 Global.asax演示了你如何才能实现FavoriteColor属性的迁移。

列表 11. Global.asax (Visual Basic .NET)

<%@ Application Language="VB" %>
<script runat="server">

    Sub Profile_MigrateAnonymous(ByVal s As Object, _
      ByVal e As ProfileMigrateEventArgs)
        Dim anonProfile As ProfileCommon = _
          Profile.GetProfile(e.AnonymousId)
        Profile.FavoriteColor = anonProfile.FavoriteColor
    End Sub
</script>

列表 11. Global.asax (C#)

<%@ Application Language="C#" %>
<script runat="server">

    void Profile_MigrateAnonymous(Object s,
      ProfileMigrateEventArgs e)
    {
        ProfileCommon anonProfile =
          Profile.GetProfile(e.AnonymousId);
        Profile.FavoriteColor = anonProfile.FavoriteColor;
    }
</script>

通过Profile类的GetProfile()方法你可以获得匿名profile，该方法接收一个唯一识别号，并且返回与唯一识别号对应的profile。ProfileMigrateEventArgs对象包含一个匿名识别号。

配置Profile Provider
默认情况下，profile被保存在sqlserver 2005 express数据库，它位于App_Data目录中，这或许在你开发一些普通的asp.net应用程序时是没有问题的，但很有可能，你需要把你的应用程序的profile保存在另一个数据库中，比如一个完整版的SqlServer 2005的实例中，而该数据库又位于你局域网的某个位置。

Profile使用Provider模式，通过修改web.config或machine.config的设置来告诉系统把信息存储在哪里。
ASP.NET本身配了一个profile provider，叫SqlProfileProvider。如果你感到困惑，你可以通过继承ProfileProvider基类来创建一个自己的 provider。例如，你可以创建一个基于Oracle数据库或MySql数据库的Provider。在这里，我们将只讨论最简单的方法，即通过SqlServer数据库来保存profile信息。

要使用Microsoft SQL Server存储profile信息，必须完成两个步骤。首先，你必须安装SQL Server数据库，然后你必须重新设置配置文件。

ASP.NET 2.0框架提供了一个用于配置SQL Server来存储Profile信息的工具，该工具叫做aspnet_regsql，它位于Windows\Microsoft.NET\ Framework\[.NET版本号]。执行该工具后，你会看到图4中的ASP.NET SQL Server安装向导。

图4 使用ASP.NET SQL Server安装程序

SQL Server安装向导会指导你完成必要的步骤，完成这些步骤后，向导会自动创建用于存储profile信息的存储过程和表结构。

在你完成SQL Server数据库的配置后，你需要修改web.config或machine.config中的数据库连接设置来指向服务器上的SQL Server数据库，本例中该数据库的实例名为MyServer，列表12列出了该配置文件。

列表 12. Web.Config

<configuration>
<connectionStrings>
<add
name="myConnectionString"
connectionString=
"Server=MyServer;Trusted_Connection=true;database=MyDatabase" />
</connectionStrings>
<system.web>
<anonymousIdentification enabled="true" />
<profile defaultProvider="MyProfileProvider">
<providers>
<add
name="MyProfileProvider"
type="System.Web.Profile.SqlProfileProvider"
connectionStringName="myConnectionString" />
</providers>
<properties>
<add
name="FirstName"
allowAnonymous="true" />
<add
name="LastName"
allowAnonymous="true" />
</properties>
</profile>
</system.web>
</configuration>

在列表12中的profile配置中，包含了一个defaultProvider特性，这个特性指向一个叫MyProfileProvider的 profile provider，而这个provider定义是在profile标记的<providers>节中完成的。 MyProfileProvider则使用一个叫MyConnectionString的连接字符串完成数据库连接，并保存profile信息到数据库中。MyConnectionString可以在位于web.config开头的<connectionStrings>节中找到。

管理profile并生成profile报告
Profile会对象自动保存用户profile信息，这既是好事业是坏事。说它是好事，是因为你不需要写存储信息的所有逻辑代码，说它是坏事，是因为这样可能造成一大堆无用的信息被保存在数据库中。

幸运的是，ASP.NET 2.0框架包含一个叫做ProfileManager的类，你可以使用它来管理profile信息。它包含了相当多的方法使你能够有效地管理profile并且生成profile报表，下面列出了一些该类的重要方法：
- DeleteInactiveProfiles. 删除一个特定日期之前的所有profile
- DeleteProfile. 删除特定用户的profile
- DeleteProfiles. 删除一个profile集合
- FindInactiveProfilesByUserName. 返回一个ProfileInfo对象的集合，该集合表示的profile是匹配一个某个名字，并且是从某个特定日期开始一直未被使用
- FindProfilesByUserName. 返回一个ProfileInfo对象集合，该集合与某个用户名相关联
- GetAllInactiveProfiles. 返回一个ProfileInfo对象集合，该集合表示的profile是从某个特定日期开始一直未被使用的profile
- GetAllProfiles. 返回一个ProfileInfo对象集合，该集合表示所有的profile
- GetNumberOfInactiveProfiles. 返回从某个特定日期开始一直未被使用的profile的数量
- GetNumberOfProfiles. 返回profile总数
这些方法中，虽然所有的方法都返回一个ProfileInfo对象集合，但没有一个返回一个真正的profile。ProfileInfo对象包含以下profile属性
- IsAnonymous. 表示该profile是否为匿名profile
- LastActivityDate. 最后一次profile被访问的时间和日期
- LastUpdatedDate. 最后一次profile被升级的时间和日期
- Size. 表示profile的大小，这是在profile provider存储profile信息时记录的
- UserName. 与profile关联的用户名
ProfileManager有几个方法提供了额外的参数用于支持分页。例如，GetAllProfiles方法的一个重载版本就提供了专门用于设置页面索引、页面大小、总共的记录数的参数，这些参数在需要分页的页面中十分有用。

ProfileManager既可以在asp.net页面下使用，也可以在其它程序中使用。例如，你可能需要做一个控制台程序用于每天清除长时间未使用的 profile。列表14的控制台程序会删除七天未使用的profile，你可以使用Windows计划任务（Windows Scheduled Tasks）来安排该程序的执行时间。

列表 14. DeleteInactiveProfiles (Visual Basic .NET)

Imports System.Web.Profile

Public Class DeleteInactiveProfiles

    Public Shared Sub Main()
      Dim deleted As Integer
      deleted =
        ProfileManager.DeleteInactiveProfiles(
          ProfileAuthenticationOption.All,
          DateTime.Now.AddDays(-7))
      Console.WriteLine("Deleted " & deleted & " profiles" )
    End Sub

End Class

列表 14. DeleteInactiveProfiles (C#)

using System;
using System.Web.Profile;

public class DeleteInactiveProfiles
{
    public static void Main()
    {
      int deleted = 0;
      deleted =
        ProfileManager.DeleteInactiveProfiles(
        ProfileAuthenticationOption.All,
        DateTime.Now.AddDays(-7));
      Console.WriteLine("Deleted " +
        deleted.ToString() + " profiles" );
    }
}

你可以通过一下的命令行指令对列表14进行编译

[Visual Basic .NET]
C:\WINDOWS\Microsoft.NET\Framework\v2.0.40607\vbc
  /r:System.Web.dll DeleteInactiveProfiles.vb

[C#]
C:\WINDOWS\Microsoft.NET\Framework\v2.0.40607\csc
  DeleteInactiveProfiles.cs

你还可以使用ProfileManager类生成profile信息报表。例如，如果你打算生成一个用户调查的报表，你可以把用户调查保存在profile中，这样就可以轻易的使用ProfileManager生成你需要的报表。

列表15中的web.config中有三个属性：SurveyCompleted、FavoriteLanguage 和 FavoriteEnvironment

Listing 15. Web.Config

<configuration xmlns="http://schemas.microsoft.com/.NetConfiguration/v2.0">

   <system.web>


              <anonymousIdentification enabled="true" />

      <profile>
      <properties>
                      <add
            name="SurveyCompleted"
            type="Boolean"
            allowAnonymous="true" />
                      <add
            name="FavoriteLanguage"
            allowAnonymous="true" />
                     <add
            name="FavoriteEnvironment"
            allowAnonymous="true" />
      </properties>
              </profile>
</system.web>
</configuration>

列表16中的页面演示了一个简单的用户调查。该页面包含两个Panel控件，第一个控件中有两个调查问题，当用户完成调查后，第一个控件会自动隐藏，而第二个会显示出来，第二个Panel有一段表示感谢的文字。

列表 16. Survey.aspx (Visual Basic .NET)

<%@ Page Language="VB" %>
<script runat="server">

    Sub SaveSurvey(ByVal s As Object, ByVal e As EventArgs)
        Profile.FavoriteLanguage = rdlLanguage.SelectedItem.Text
        Profile.FavoriteEnvironment = rdlEnvironment.SelectedItem.Text
        Profile.SurveyCompleted = True
    End Sub

    Sub Page_PreRender()
        If Profile.SurveyCompleted Then
            pnlSurvey.Visible = False
            pnlSurveyCompleted.Visible = True
        Else
            pnlSurvey.Visible = True
            pnlSurveyCompleted.Visible = False
        End If
    End Sub

</script>

<html>
<head>
    <title>Survey</title>
</head>
<body>
    <form id="form1" runat="server">

    <asp:Panel ID="pnlSurvey" Runat="Server">
    What is your favorite programming language?
    <br />
    <asp:RadioButtonList
        id="rdlLanguage"
        runat="Server">
        <asp:ListItem Text="VB.NET" Selected="True" />
        <asp:ListItem Text="C#" />
        <asp:ListItem Text="J#" />
    </asp:RadioButtonList>
    <p> </p>
    What is your favorite development environment?
    <br />
    <asp:RadioButtonList
        id="rdlEnvironment"
        runat="Server">
        <asp:ListItem Text="VS.NET" Selected="True" />
        <asp:ListItem Text="Web Matrix" />
        <asp:ListItem Text="Notepad" />
    </asp:RadioButtonList>
    <p> </p>
    <asp:Button
        Text="Submit Survey"
        Onclick="SaveSurvey"
        Runat="Server" />
    </asp:Panel>
    <asp:Panel ID="pnlSurveyCompleted" Runat="Server">
    Thank you for completing the survey!
    </asp:Panel>
    </form>
</body>
</html>

列表 16. Survey.aspx (C#)

<%@ Page Language="C#" %>
<script runat="server">

    void SaveSurvey(Object s, EventArgs e)
    {
        Profile.FavoriteLanguage = rdlLanguage.SelectedItem.Text;
        Profile.FavoriteEnvironment = rdlEnvironment.SelectedItem.Text;
        Profile.SurveyCompleted = true;
    }

    void Page_PreRender()
    {
        if (Profile.SurveyCompleted)
        {
            pnlSurvey.Visible = false;
            pnlSurveyCompleted.Visible = true;
        }
        else
        {
            pnlSurvey.Visible = true;
            pnlSurveyCompleted.Visible = false;
        }
    }

</script>

<html>
<head>
    <title>Survey</title>
</head>
<body>
    <form id="form1" runat="server">

    <asp:Panel ID="pnlSurvey" Runat="Server">
    What is your favorite programming language?
    <br />
    <asp:RadioButtonList
        id="rdlLanguage"
        runat="Server">
        <asp:ListItem Text="VB.NET" Selected="True" />
        <asp:ListItem Text="C#" />
        <asp:ListItem Text="J#" />
    </asp:RadioButtonList>
    <p> </p>
    What is your favorite development environment?
    <br />
    <asp:RadioButtonList
        id="rdlEnvironment"
        runat="Server">
        <asp:ListItem Text="VS.NET" Selected="True" />
        <asp:ListItem Text="Web Matrix" />
        <asp:ListItem Text="Notepad" />
    </asp:RadioButtonList>
    <p> </p>
    <asp:Button ID="Button1"
        Text="Submit Survey"
        Onclick="SaveSurvey"
        Runat="Server" />
    </asp:Panel>
    <asp:Panel ID="pnlSurveyCompleted" Runat="Server">
    Thank you for completing the survey!
    </asp:Panel>
    </form>
</body>
</html>

列表17中显示调查的结果，该页面中有一个显示ProfileInfo对象集合的GridView控件，该ProfileInfo对象集合是由 ProfileManager的GetAllProfiles方法获得的。当你点击GridView中的任意一行的Select链接时，你将会看到对这个问题的调查结果，该调查结果是由Profile类的GetProfile方法获得的。

图5 显示调查结果

列表 17. SurveyResults.aspx (Visual Basic .NET)

<%@ Page Language="VB" %>
<script runat="server">

    Sub Page_Load()
        ResultsGrid.DataSource = _
ProfileManager.GetAllProfiles(ProfileAuthenticationOption.All)
        ResultsGrid.DataBind()
    End Sub

    Sub DisplayProfileDetails(ByVal s As Object, ByVal e As EventArgs)
        Dim SelectedProfile As ProfileCommon
        SelectedProfile = Profile.GetProfile(ResultsGrid.SelectedValue)
        lblLanguage.Text = SelectedProfile.FavoriteLanguage
        lblEnvironment.Text = SelectedProfile.FavoriteEnvironment
    End Sub

</script>

<html>
<head>
    <title>Survey Results</title>
</head>
<body>
    <form id="form1" runat="server">
    <h2>Survey Results</h2>
    <asp:GridView
        id="ResultsGrid"
        DataKeyNames="UserName"
        AutoGenerateSelectButton="true"
        OnSelectedIndexChanged="DisplayProfileDetails"
        SelectedRowStyle-BackColor="LightYellow"
        Runat="Server" />
    <p> </p>
    <h2>Survey Details</h2>
    <b>Favorite Language:</b>
    <asp:Label
        id="lblLanguage"
        Runat="Server" />
    <br />
    <b>Favorite Environment:</b>
    <asp:Label
        id="lblEnvironment"
        Runat="Server" />

    </form>
</body>
</html>

列表 17. SurveyResults.aspx (C#)

<%@ Page Language="C#" %>
<script runat="server">

    void Page_Load()
    {
        ResultsGrid.DataSource =
ProfileManager.GetAllProfiles(ProfileAuthenticationOption.All);
        ResultsGrid.DataBind();
    }

    void DisplayProfileDetails(Object s, EventArgs e)
    {
        ProfileCommon SelectedProfile =
            Profile.GetProfile(ResultsGrid.SelectedValue.ToString());
        lblLanguage.Text = SelectedProfile.FavoriteLanguage;
        lblEnvironment.Text = SelectedProfile.FavoriteEnvironment;
    }

</script>

<html>
<head>
    <title>Survey Results</title>
</head>
<body>
    <form id="form1" runat="server">
    <h2>Survey Results</h2>
    <asp:GridView
        id="ResultsGrid"
        DataKeyNames="UserName"
        AutoGenerateSelectButton="true"
        OnSelectedIndexChanged="DisplayProfileDetails"
        SelectedRowStyle-BackColor="LightYellow"
        Runat="Server" />
    <p> </p>
    <h2>Survey Details</h2>
    <b>Favorite Language:</b>
    <asp:Label
        id="lblLanguage"
        Runat="Server" />
    <br />
    <b>Favorite Environment:</b>
    <asp:Label
        id="lblEnvironment"
        Runat="Server" />
    </form>
</body>
</html>
相关阅读:
Unable to lock the administration directory (/var/lib/dpkg/)解决办法
 Linux实训——搭建动态网站
 Linux实训——搭建HTTP服务器
 小程序学习视频教程
 数组的所有方法
 小程序组件封装步骤
 微信小程序生成图片学习
 小程序组件封装学习地址
 开发者在 onPageNotFound 回调中进行重定向处理onPageNotFound(Object)
小程序中view的自定义属性获取
原文地址：https://www.cnblogs.com/liping13599168/p/588183.html