<script type="text/javascript">
</script> <script src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type="text/javascript"></script> | 概要:许多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> |