WSS3SDK之：在自定义WebPart中使用对象模型

我们可以创建自定义WebPart来与站点和列表数据共同运作。本编程任务将展示如何创建一个简单的Web Part来寻找当前网站下所有包含10条以上数据的列表，并显示其标题和列表项数量。

步骤
1、创建一个WebPart。这里假设你已经创建好了一个名为SimpleWebPart的应用程序。
2、在SimpleWebPart应用程序中打开WebCustomControl1.cs或.vb，添加如下的命名空间引用。
VB

Imports  Microsoft.SharePoint
Imports  Microsoft.SharePoint.Utilities

C#

using  Microsoft.SharePoint;
using  Microsoft.SharePoint.Utilities;

3、例子中原有的移除HtmlControl对象，以及对应的的变量声明，_mybutton_click事件，CreateChildControls方法等。
4、用下面的代码替换RenderWebPart方法中的内容:
VB

Dim  mySite  As  SPWeb  =  SPContext.Current.Web

output.Write(SPEncode.HtmlEncode(mySite.Title))

Dim  subSites  As  SPWebCollection  =  mySite.Webs
Dim  site  As  SPWeb

For   Each  site  In  subSites
    output.Write(SPEncode.HtmlEncode(site.Title)  &   " <BR> " )
     Dim  lists  As  SPListCollection  =  site.Lists
     Dim  list  As  SPList

     For   Each  list  In  lists

         If  list.ItemCount  >   10   Then
            output.Write(SPEncode.HtmlEncode(list.Title)  &   "  ::  "  
                 &  list.ItemCount  &   " <BR> " )
         End   If
     Next  list
Next  site

 

C#

SPWeb mySite  =  SPContext.Current.Web;

output.Write(SPEncode.HtmlEncode(mySite.Title));

SPWebCollection subSites  =  mySite.Webs;

foreach (SPWeb site  in  subSites)
{

   output.Write(SPEncode.HtmlEncode(site.Title)  +   " <BR> " );

   SPListCollection lists = site.Lists;

    foreach (SPList list  in  lists)
   {

       if  (list.ItemCount > 10 ) 
      {
          output.Write(SPEncode.HtmlEncode(list.Title)  +   "  :  "   +  
             list.ItemCount  +   " <BR> " );
      }
   }
}

上面的示例代码首先输出当前网站的标题，接着遍历所有的子网站并打印其标题，然后遍历该网站下所有的列表，找出列表项数量大于10的列表，打印其标题和项数。
5、在Build菜单中，点击Build Solution来编译该WebPart。
6、在web.config文件中提升WSS的信任级别。
web.config文件通常位于//Inetput/wwwroot/wss/VirtualDirectories/80下。找到下面的行：

< trust  level ="WSS_Minimal"  originUrl =""   />

将其替换为：

< trust  level ="WSS_Medium"  originUrl =""   />

7、重启IIS，使对信任级别的更改生效。
在任何一个Web部件页或主页中拖入该WebPart,就可以看到显示的列表结果了。