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,就可以看到显示的列表结果了。