演练：创建 SharePoint 应用程序页

项目
06/19/2023

应用程序页是 ASP.NET 页的专用窗体。应用程序页包含与 SharePoint 母版页合并的内容。有关详细信息，请参阅为 SharePoint 创建应用程序页。

本演练演示如何创建应用程序页，然后使用本地 SharePoint 站点对其进行调试。此页显示每位用户在服务器场的所有站点中创建或修改的所有项。

本演练演示以下任务：

创建 SharePoint 项目。
将应用程序页添加到 SharePoint 项目。
将 ASP.NET 控件添加到应用程序页。
在 ASP.NET 控件后面添加代码。
测试应用程序。

注意

以下说明中的某些 Visual Studio 用户界面元素在计算机上出现的名称或位置可能会不同。这些元素取决于你所使用的 Visual Studio 版本和你所使用的设置。有关详细信息，请参阅个性化设置 Visual Studio IDE。

先决条件

支持的 Windows 和 SharePoint 版本。

创建 SharePoint 项目

首先，创建空的 SharePoint 项目。然后，向此项目添加“应用程序页”项。

启动 Visual Studio。
在“新建项目”对话框中，展开要使用的语言下的“Office/SharePoint”节点，然后选择“SharePoint 解决方案”节点。
在“Visual Studio 安装的模板”窗格中，选择“SharePoint 2010 - 空项目”模板。将项目命名为 MySharePointProject，然后选择“确定”按钮

SharePoint 自定义向导随即出现。使用此向导可以选择用于调试项目的站点和解决方案的信任级别。
选择“部署为场解决方案”选项按钮，然后选择“完成”按钮，以接受默认本地 SharePoint 站点。

创建应用程序页

若要创建应用程序页，请向该项目添加“应用程序页”项。

在解决方案资源管理器中，选择 MySharePointProject 项目。
在菜单栏上，依次选择“项目”>“添加新项”。
在“添加新项”对话框中，选择“应用程序页(仅限场解决方案)”模板。
将页面命名为 SearchItems，然后选择“添加”按钮。

Visual Web 开发人员设计器在源视图中显示应用程序页，可在其中查看页面的 HTML 元素。设计器显示多个 Content 控件的标记。每个控件映射到默认应用程序母版页中定义的 ContentPlaceHolder 控件。

设计应用程序页的布局

使用“应用程序页”项，可以使用设计器将 ASP.NET 控件添加到应用程序页。此设计器与 Visual Web 开发人员中使用的设计器相同。将标签、单选按钮列表和表添加到设计器的源视图中，然后设置属性，就像设计任何标准 ASP.NET 时所操作的一样。

在菜单栏上，依次选择“视图”>“工具箱” 。
在工具箱的标准节点中，执行以下步骤之一：
- 打开“标签”项的快捷菜单，选择“复制”，打开设计器中 PlaceHolderMain 内容控件下行的快捷菜单，然后选择“粘贴” 。
- 将“标签”项从“工具箱”拖动到 PlaceHolderMain 内容控件的正文上。
重复上一步，将“DropDownList”项和“表”项添加到 PlaceHolderMain 内容控件。
在设计器上，将标签控件的 Text 特性的值更改为“显示所有项”。

在设计器上，将 <asp:DropDownList> 元素替换为以下 XML。

<asp:DropDownList ID="DropDownList1" runat="server" AutoPostBack="true"
 OnSelectedIndexChanged="DropDownList1_SelectedIndexChanged">
    <asp:ListItem Text="Created by me" Value="Author"></asp:ListItem>
    <asp:ListItem Text="Modified by me" Value="Editor"></asp:ListItem>
</asp:DropDownList>

处理页面上的控件的事件

处理应用程序页中的控件，就和处理任何 ASP.NET 进行的操作一样。此过程将处理下拉列表的 SelectedIndexChanged 事件。

在“视图”菜单上，选择“代码” 。

应用程序页代码文件会在代码编辑器中打开。

将以下方法添加到 SearchItems 类。此代码通过调用在本演练中后面创建的方法来处理 DropDownList 的 SelectedIndexChanged 事件。

protected void DropDownList1_SelectedIndexChanged(object sender, EventArgs e)
{
    SPSecurity.RunWithElevatedPrivileges(GetItems);
   
}

 Protected Sub DropDownList1_SelectedIndexChanged _
(ByVal sender As Object, ByVal e As EventArgs) _
Handles DropDownList1.SelectedIndexChanged
     SPSecurity.RunWithElevatedPrivileges(AddressOf GetItems)
 End Sub

将以下语句添加到应用程序代码文件的顶部。

using System.Web.UI.WebControls;
using Microsoft.SharePoint.Administration;
using System.Collections;

Imports System.Web.UI.WebControls
Imports Microsoft.SharePoint.Administration
Imports System.Collections

将以下方法添加到 SearchItems 类。此方法会循环访问服务器场上的所有站点，并搜索当前用户创建或修改的项。

private void GetItems()
{
     SPFieldUserValue currentUser = new SPFieldUserValue
     (this.Web, this.Web.CurrentUser.ID, this.Web.CurrentUser.Name);

    ArrayList resultsList = new ArrayList();

    SPFarm thisFarm = SPFarm.Local;
    SPWebService service = thisFarm.Services.GetValue<SPWebService>("");

    foreach (SPWebApplication webApp in service.WebApplications)
    {
        foreach (SPSite siteCollection in webApp.Sites)
        {
            foreach (SPWeb web in siteCollection.AllWebs)
            {
                SPListCollection lists = web.Lists;
                foreach (SPList list in lists)
                {
                    try
                    {
                        foreach (SPListItem item in list.Items)
                        {
                            if (item[DropDownList1.SelectedValue].ToString() ==
                                currentUser.ToString())
                            {
                                resultsList.Add(item);
                            }
                        }
                    }
                    catch (Exception)
                    {
                        // An error with the list. Move onto the next list.
                    }
                }
            }
        }
    }
    CreateResultsTable(resultsList);

}

Private Sub GetItems()
    Dim CurrentUser As New SPFieldUserValue _
        (Me.Web, Me.Web.CurrentUser.ID, Me.Web.CurrentUser.Name)

    Dim ResultsList As New ArrayList()

    Dim ThisFarm As SPFarm = SPFarm.Local
    Dim Service As SPWebService = _
        ThisFarm.Services.GetValue(Of SPWebService)("")

    Dim WebApp As SPWebApplication
    For Each WebApp In Service.WebApplications
        Dim SiteCollection As SPSite
        For Each SiteCollection In WebApp.Sites
            Dim Web As SPWeb
            For Each Web In SiteCollection.AllWebs
                Dim Lists As SPListCollection = Web.Lists
                Dim List As SPList
                For Each List In Lists
                    Dim Item As SPListItem
                    Try
                        For Each Item In List.Items
                            If Item(DropDownList1.SelectedValue).ToString() = _
                                CurrentUser.ToString() Then
                                ResultsList.Add(Item)
                            End If
                        Next Item
                    Catch exception As Exception
                        'Error in list. Move on to the next list.
                    End Try
                Next List
            Next Web
        Next SiteCollection
    Next WebApp
    CreateResultsTable(ResultsList)
End Sub

将以下方法添加到 SearchItems 类。此方法显示表中当前用户创建或修改的项。

private void CreateResultsTable(ArrayList resultsList)
{
    string currentList = "";
    string currentSite = "";
    Table1.Rows.Clear();

    foreach (SPListItem item in resultsList)
    {
        if (item.ParentList.ParentWeb.Title != currentSite)
        {
            currentSite = item.ParentList.ParentWeb.Title;

            TableCell newSiteCell = new TableCell();
            newSiteCell.Text = currentSite;

            TableRow newSiteRow = new TableRow();
            newSiteRow.Cells.Add(newSiteCell);
            newSiteRow.Font.Bold = true;
            newSiteRow.Font.Size = FontUnit.Larger;
            newSiteRow.Font.Underline = true;

            Table1.Rows.Add(newSiteRow);
        }
        if (item.ParentList.Title != currentList)
        {
            currentList = item.ParentList.Title;
            TableCell newListCell = new TableCell();
            newListCell.Text = currentList;

            TableRow newListRow = new TableRow();
            newListRow.Cells.Add(newListCell);
            newListRow.Font.Bold = true;

            Table1.Rows.Add(newListRow);

            TableCell itemHeading = new TableCell();
            itemHeading.Text = "Item";
            itemHeading.Font.Italic = true;

            TableCell createdHeading = new TableCell();
            createdHeading.Text = "Created";
            createdHeading.Font.Italic = true;

            TableCell modifiedHeading = new TableCell();
            modifiedHeading.Text = "Last Modified";
            modifiedHeading.Font.Italic = true;

            TableRow headingRow = new TableRow();
            headingRow.Cells.Add(itemHeading);
            headingRow.Cells.Add(createdHeading);
            headingRow.Cells.Add(modifiedHeading);

            Table1.Rows.Add(headingRow);
        }

        TableCell itemName = new TableCell();
        HyperLink itemLink = new HyperLink();
        try
        {
            itemLink.NavigateUrl = item.ParentList.ParentWeb.Url + "/" +
                item.ParentList.Forms[PAGETYPE.PAGE_DISPLAYFORM].Url +
                "?ID=" + item.ID;
        }
        catch (Exception)
        {
            // Some items might not have a form page. Ignore the exception.
        }
        itemLink.Text = item.DisplayName;
        itemName.Controls.Add(itemLink);

        TableCell created = new TableCell();
        created.Text = item["Created"].ToString();

        TableCell modified = new TableCell();
        modified.Text = item["Modified"].ToString();

        TableRow dataRow = new TableRow();
        dataRow.Cells.Add(itemName);
        dataRow.Cells.Add(created);
        dataRow.Cells.Add(modified);

        Table1.Rows.Add(dataRow);
    }
}

Private Sub CreateResultsTable(ByVal ResultsList As ArrayList)
    Dim CurrentList As String = ""
    Dim CurrentSite As String = ""
    Table1.Rows.Clear()

    Dim Item As SPListItem
    For Each Item In ResultsList
        If Item.ParentList.ParentWeb.Title <> CurrentSite Then
            CurrentSite = Item.ParentList.ParentWeb.Title

            Dim NewSiteCell As New TableCell()
            NewSiteCell.Text = CurrentSite

            Dim NewSiteRow As New TableRow()
            With NewSiteRow
                .Cells.Add(NewSiteCell)
                .Font.Bold = True
                .Font.Size = FontUnit.Larger
                .Font.Underline = True
            End With
            Table1.Rows.Add(NewSiteRow)

        End If

        If Item.ParentList.Title <> CurrentList Then
            CurrentList = Item.ParentList.Title
            Dim NewListCell As New TableCell()
            NewListCell.Text = CurrentList

            Dim NewListRow As New TableRow()
            With NewListRow
                .Cells.Add(NewListCell)
                .Font.Bold = True
            End With
            Table1.Rows.Add(NewListRow)

            Dim ItemHeading As New TableCell()
            With ItemHeading
                .Text = "Item"
                .Font.Italic = True
            End With

            Dim CreatedHeading As New TableCell()
            With CreatedHeading
                .Text = "Created"
                .Font.Italic = True
            End With


            Dim ModifiedHeading As New TableCell()
            With ModifiedHeading
                .Text = "Last Modified"
                .Font.Italic = True
            End With

            Dim HeadingRow As New TableRow()
            HeadingRow.Cells.Add(ItemHeading)
            HeadingRow.Cells.Add(CreatedHeading)
            HeadingRow.Cells.Add(ModifiedHeading)

            Table1.Rows.Add(HeadingRow)
        End If

        Dim ItemName As New TableCell()
        Dim ItemLink As New HyperLink()
        Try
            ItemLink.NavigateUrl = Item.ParentList.ParentWeb.Url & _
                "/" & Item.ParentList.Forms(PAGETYPE.PAGE_DISPLAYFORM).Url & _
                "?ID=" & Item.ID
        Catch exception As Exception
            ' Some items might not have a form page. Ignore the exception.
        End Try
        ItemLink.Text = Item.DisplayName
        ItemName.Controls.Add(ItemLink)

        Dim Created As New TableCell()
        Created.Text = Item("Created").ToString()

        Dim Modified As New TableCell()
        Modified.Text = Item("Modified").ToString()

        Dim DataRow As New TableRow()
        DataRow.Cells.Add(ItemName)
        DataRow.Cells.Add(Created)
        DataRow.Cells.Add(Modified)

        Table1.Rows.Add(DataRow)
    Next Item
End Sub

测试应用程序页

运行项目时，SharePoint 站点将打开，并会显示应用程序页。

在解决方案资源管理器中，打开应用程序页的快捷菜单，然后选择“设为启动项” 。
选择 F5。

SharePoint 网站随即打开。
在应用程序页上，选择“修改者是我”选项。

应用程序页将刷新并显示在服务器场的所有站点中修改的所有项。
在应用程序页上，选择列表中的“创建者是我”。

应用程序页会刷新并显示在服务器场的所有站点中修改的所有项。

后续步骤

有关 SharePoint 应用程序页的详细信息，请参阅为 SharePoint 创建应用程序页。

可以使用以下主题中的 Visual Web 设计器了解如何设计 SharePoint 页面内容：

通过

演练：创建 SharePoint 应用程序页

先决条件

创建 SharePoint 项目

创建应用程序页

设计应用程序页的布局

处理页面上的控件的事件

测试应用程序页

后续步骤

反馈

其他资源

通过

演练：创建 SharePoint 应用程序页

先决条件

创建 SharePoint 项目

创建应用程序页

设计应用程序页的布局

处理页面上的控件的事件

测试应用程序页

后续步骤

相关内容

反馈

其他资源