<!-- 出现在控件的编辑项中-->
<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>

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();
      }
    }
    
  }
}

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

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>