MOSS点滴(2):自定义Application Page

在MOSS中后台管理的页面都是Application Page，比如网站设置的页面(settings.aspx)就是典型的Application Page，它不能被Sharepoint Desiger定制。如果我们要修改只能手动的使用其他工具来修改，我们也可以添加Application Page，必须放在C:\Program Files\Common Files\Microsoft Shared\web server extensions\12\TEMPLATE\LAYOUTS目录下，它对应的虚拟路径为_layouts。所有的Application Page都使用application.master这个母版页，我们自定义的Application Page也是一样，可以使用内嵌代码也可以使用后置代码。自定义的application page继承自LayoutsPageBase类，下面我们就来做两个自定义的Application Page，下面是项目的结构：

Feature.xml中代码如下：
<?xml version="1.0" encoding="utf-8" ?>
<Feature Id="86689158-7048-4421-AD21-E0DEF0D67C81"
   Title="自定义ApplicationPage"
   Description="使用SPTreeViw演示自定义ApplicationPage"
   Version="1.0.0.0"
   Scope="Web"
   Hidden="FALSE"        
   ImageUrl="TPG\PithHelmet.gif"        
   xmlns="http://schemas.microsoft.com/sharepoint/">
<ElementManifests>
<ElementManifest Location="elements.xml" />
</ElementManifests>
</Feature>

ApplicationPage1.aspx和ApplicationPage2.aspx就是我们自定义的Application Page，ApplicationPage1.aspx演示的是在一个列表库的列表项的编辑菜单里出现一个链接，统计该列表的信息，如下图：

要添加此菜单须在Elements.xml中填加如下代码：

<!--  出现在控件的编辑项中 -->
< CustomAction  Id ="CustomApplicationPage1"
RegistrationType ="List"
RegistrationId ="101"
ImageUrl ="/_layouts/images/GORTL.GIF"
Location ="EditControlBlock"
Sequence ="240"
Title ="此文档库信息"   >
< UrlAction  Url ="~site/_layouts/CustomApplicationPages/ApplicationPage1.aspx?ItemId={ItemId}&amp;ListId={ListId}" />
</ CustomAction >

RegistrationType="List"：代表注册的类型是列表.
Location="EditControlBlock"：代表菜单将出现在控件编辑项当中.
UrlAction 是它的链接，URL中的ItemId 和ListId是通过 QueryString得到的。

ApplicationPage1.cs中代码如下：

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

namespace  CustomApplicationPages 
{
   public   class  ApplicationPage1 : LayoutsPageBase 
 {
     protected  Label lblSiteTitle;
     protected  Label lblSiteID;
     protected  Label lblSiteUrl;
     protected  Label lblListID;
     protected  Label lblListTile;
     protected  Label lblRootFolderUrl;
     protected  Label lblDocumentID;
     protected  Label lblDocumentName;
     protected  Label lblDocumentUrl;
     protected  Label lblDocumentTemplateUrl;
     protected  Label lblFileAuthor;
     protected  Label lblFileSize;
     protected  Label lblFileLastModified;
     protected  Label lblFileCheckOutStatus;

     protected   override   void  OnLoad(EventArgs e) 
   {
      SPSite siteCollection  =   this .Site;
      SPWeb site  =   this .Web;
      lblSiteTitle.Text  =  site.Title;
      lblSiteUrl.Text  =  site.Url.ToLower();      
       string  ListId  =  Request.QueryString[ " ListId " ];
      lblListID.Text  =  ListId;
      SPList list  =  site.Lists[ new  Guid(ListId)];
      lblListTile.Text  =  list.Title;
      lblRootFolderUrl.Text  =  list.RootFolder.Url;      
       string  ItemId  =  Request.QueryString[ " ItemId " ];
      lblDocumentID.Text  =  ItemId;
      SPListItem item  =  list.Items.GetItemById(Convert.ToInt32(ItemId));
      lblDocumentName.Text  =  item.Name;
      lblDocumentUrl.Text  =  item.Url;

       if  (list  is  SPDocumentLibrary)
    {
        SPDocumentLibrary documentLibrary  =  (SPDocumentLibrary)list;
        lblDocumentTemplateUrl.Text  =  documentLibrary.DocumentTemplateUrl;

        SPFile file  =  site.GetFile(item.Url);
        lblFileAuthor.Text  =  file.Author.Name;
        lblFileSize.Text  =  file.TotalLength.ToString( " 0,### " )  +   "  bits " ;
        lblFileLastModified.Text  =   " By  "   +  file.ModifiedBy.Name  +
                                    "  on  "   +  file.TimeLastModified.ToLocalTime().ToString();
        lblFileCheckOutStatus.Text  =  file.CheckOutStatus.ToString();
      }
    }
    
  }
}

结果如下图：

ApplicationPage2.aspx中我们使用控件SPTreeView来显示该站点的文件夹结构，我们将菜单添加到“网站操作“中，并且设置只有管理员权限才可以看到，如下图：

Elements.xml中填加如下代码：

<!--  有管理员权限才可以察看  -->
< CustomAction  Id ="CustomApplicationPage2"
GroupId ="SiteActions"
Location ="Microsoft.SharePoint.StandardMenu"
Sequence ="2006"
Title ="获取站点信息"
Description ="使用SPTreeView获取站点信息"
RequireSiteAdministrator ="True" >
< UrlAction  Url ="~site/_layouts/CustomApplicationPages/ApplicationPage2.aspx" />
</ CustomAction >

RequireSiteAdministrator="True"：改属性说明该项操作只有拥有管理员权限的用户才可以操作

ApplicationPage2.cs中代码如下：

using  System;
using  System.Web;
using  System.Web.UI;
using  System.Web.UI.WebControls;

using  Microsoft.SharePoint;
using  Microsoft.SharePoint.WebControls;

namespace  CustomApplicationPages
{
   public   class  ApplicationPage2 : LayoutsPageBase 
  {    
     protected  SPTreeView treeSitesFiles;
     const   string  siteImg  =   @" \_layouts\images\FPWEB16.GIF " ;
     const   string  foloerImg  =   @" \_layouts\images\FOLDER16.GIF " ;
     const   string  ghostedFileImg  =   @" \_layouts\images\NEWDOC.GIF " ;
     const   string  unGhostedFileImg  =   @" \_layouts\images\RAT16.GIF " ;

     protected   override   void  OnLoad(EventArgs e)
    {
      SPWeb site  =  SPContext.Current.Web;
      SPFolder rootFolder  =  site.RootFolder;
      TreeNode rootNode  =   new  TreeNode(site.Url, site.Url, siteImg);
      LoadFolderNodes(rootFolder, rootNode);
      treeSitesFiles.Nodes.Add(rootNode);
      treeSitesFiles.ExpandDepth  =   1 ;
    }

     protected   void  LoadFolderNodes(SPFolder folder, TreeNode folderNode)
    {
       foreach  (SPFolder childFolder  in  folder.SubFolders) 
      {
        TreeNode childFolderNode  =   new  TreeNode(childFolder.Name, childFolder.Name, foloerImg);
        childFolderNode.NavigateUrl  =  Site.MakeFullUrl(childFolder.Url);
        LoadFolderNodes(childFolder, childFolderNode);        
        folderNode.ChildNodes.Add(childFolderNode);
      }

       foreach  (SPFile file  in  folder.Files) 
      {
        TreeNode fileNode;
         if  (file.CustomizedPageStatus  ==  SPCustomizedPageStatus.Uncustomized) 
        {
            fileNode  =   new  TreeNode(file.Name, file.Name, ghostedFileImg);          
        }
         else  
        {
            fileNode  =   new  TreeNode(file.Name, file.Name, unGhostedFileImg);
        }
        fileNode.NavigateUrl  =  Site.MakeFullUrl(file.Url);
        folderNode.ChildNodes.Add(fileNode);
      }
    } 
  }
}

效果如下图：

如何调试：

1.修改当前web应用程序的配置文件如下：

< configuration >
   < SharePoint >
     < SafeMode  CallStack ="true"   />
    </ SharePoint >
   < system.web >
     < customErrors  mode ="Off"   />
     < compilation  debug ="true"   />
   </ system.web >
</ configuration >

2.然后附加w3wp进程，设置断点即可调试了。