如果要创建一个网站，可以使用SPWebApplication类的Add方法。如果要在一个网站下创建子网站，可以使用SPWeb类的Webs属性返回子网站的集合，然后调用集合的Add方法。
下面的样例将从3个文本框中收集信息，然后基于当前网站的模板创建一个新的子网站。文本框用户指定新创建网站的名称，URL以及描述信息。
本样例中使用Microsoft.SharePoint.SPContent类成员来获取当前的网站集，网站和列表。在HTTP上下文以外，比如在命令行应用或Windows应用中，这种方式是没法用的。
Dim&mySite&As&SPWeb&=&SPContext.Current.Web
Dim&subSites&As&SPWebCollection&=&mySite.Webs
Dim&currentTemplate&As&String&=&mySite.WebTemplate
Dim&siteUrl&As&String&=&TextBox1.Text.ToString()
Dim&siteTitle&As&String&=&TextBox2.Text.ToString()
Dim&siteDescription&As&String&=&TextBox3.Text.ToString()
subSites.Add(siteUrl,&siteTitle,&siteDescription,&
&&&Convert.ToUInt32(1033),&currentTemplate,&True,&False)
SPWeb&mySite&=&SPContext.Current.W
SPWebCollection&subSites&=&mySite.W
string&currentTemplate&=&mySite.WebT
string&siteUrl&=&TextBox1.Text.ToString();
string&siteTitle&=&TextBox2.Text.ToString();
string&siteDescription&=&TextBox3.Text.ToString();
subSites.Add(siteUrl,&siteTitle,&siteDescription,&1033,&
&&&currentTemplate,&true,&false);&
上面的代码需要引用Microsoft.SharePoint命名空间。
在例子中，SPWeb类的WebTemplate属性可以返回当前站点定义的名称，并在随后传给Add方法的参数。该方法的另外3个参数来自文本框的内容。还有3个参数用于指定1033地域号，true使得创建的网站使用独有权限，false的作用是：如果与之位置相同的地方存在文件夹，则抛出异常；如果改成true则会将会将其转换成一个SharePoint站点。
删除一个网站，可以使用SPWeb类的Delete方法，或者SPWebApplication类的Delete方法。
下面的代码假设用一个textbox来指定要删除网站的URL地址，然后使用SPWebApplication类的Delete方法删除站点。
Dim&deleteSite&As&String&=&TextBox1.Text.ToString()
Dim&mySite&As&SPSite&=&SPContext.Current.Site
Dim&sites&As&SPWebCollection&=&mySite.AllWebs
sites.Delete(deleteSite)
string&deleteSite&=&TextBox1.Text.ToString();
SPSite&mySite&=&SPContext.Current.S
SPWebCollection&sites&=&mySite.AllW
sites.Delete(deleteSite);&
该代码需要引用Microsoft.SharePoint命名空间。
代码中，通过SPSite类的AllWebs属性返回当前网站集下所有网站的集合。
可以使用SPVirtualServer类的Sites属性返回虚拟服务器上网站集的集合，然后使用SPSiteCollection类的Add方法来添加一个网站集。
下面的代码在当前SharePoint Web应用程序下创建了一个网站集。
Dim&webApplication&As&SPWebApplication&=&SPContext.Current.Site.WebApplication
Dim&siteCollections&As&SPSiteCollection&=&webApplication.Sites
siteCollections.Add("http://Server_Name/sites/Site_Collection_Name",&
&&&"User_Name",&"User_Email")
SPWebApplication&webApplication&=&SPContext.Current.Site.WebA
SPSiteCollection&siteCollections&=&webApplication.S
siteCollections.Add("http://Server_Name/sites/Site_Collection_Name",
"User_Name","User_Email&");
该代码需要引用Microsoft.SharePoint.Administration命名空间。
下面的代码中实例化了一个SPGlobalAdmin类，用于调用OpenVirtualServer方法，返回指定URI下的虚拟服务器。
如果要从一个虚拟服务器上删除一个网站集，需要使用SPGlobalAdmin类的AdminFormDigest属性来插入一个信息摘要到浏览器页面中来进行安全验证。我们可以使用System.Web.UI.Page类的RegisterHiddenField方法往页面中插入一个隐藏字段的方式注册该摘要。另外，使用SPGlobalAdmin类的RequestFromAdminPort字段来指定请求的内容通过管理端口来传递。
下面的样例利用Page_Load事件来将用于管理的窗体摘要包含到页面中，然后建立请求。
Private&globalAdmin&As&New&SPGlobalAdmin()
Private&Sub&Page_Load(sender&As&Object,&e&As&System.EventArgs)
&&&&Context.Items(SPGlobalAdmin.RequestFromAdminPort)&=&True
&&&&Page.RegisterHiddenField("__REQUESTDIGEST",&
&&&&&&&&globalAdmin.AdminFormDigest)
End&Sub&'Page_Load
Private&Sub&Button1_Click(sender&As&Object,&e&As&System.EventArgs)
&&&&Dim&globalAdmin&As&New&SPGlobalAdmin()
&&&&Dim&uri&As&New&System.Uri("http://Server_Name")
&&&&Dim&vServer&As&SPVirtualServer&=&globalAdmin.OpenVirtualServer(uri)
&&&&Dim&siteCollections&As&SPSiteCollection&=&vServer.Sites
&&&&siteCollections.Delete("sites/Site_Collection")
End&Sub&'Button1_Click
private&SPGlobalAdmin&globalAdmin&=&new&SPGlobalAdmin();
private&void&Page_Load(object&sender,&System.EventArgs&e)
&&&&Context.Items[SPGlobalAdmin.RequestFromAdminPort]&=&true;
&&&&Page.RegisterHiddenField("__REQUESTDIGEST",&
&&&&&&&&globalAdmin.AdminFormDigest);
private&void&Button1_Click(object&sender,&System.EventArgs&e)
&&&&SPGlobalAdmin&globalAdmin&=&new&SPGlobalAdmin();
&&&&System.Uri&uri&=&new&System.Uri("http://Server_Name");
&&&&SPVirtualServer&vServer&=&globalAdmin.OpenVirtualServer(uri);
&&&&SPSiteCollection&siteCollections&=&vServer.S
&&&&siteCollections.Delete("sites/Site_Collection");
该代码需要引用Microsoft.SharePoint.Administration命名空间。
阅读(...) 评论()我们可以在网站定义中添加一栏，这样每次用户创建该类型的网站时网站栏集合中将默认包含该栏。站点定义可以包在Feature中。
当用户已经创建好了网站，我们可以通过WSS对象模型往站点中添加网站栏。
在站点定义中创建一个网站栏
1、在单独的Feature中创建一个字段。
2、在我们定义的站点中引用该Feature：
a、在我们的站点Feature中，打开站点定义XML文件。
b、在Project元素中，Categories和Category元素下，添加一个引用到内容类型Feature到SiteFeatures或WebFeatures元素中。如下：
&SiteFeatures&
&Feature&ID="00BFEA71-1C5E-4A24-B310-BA51C3EB7A57"&/&
&Feature&ID="695B6570-ACDC-4A8E-FC1D162"&/&
&/SiteFeatures&
&WebFeatures&
&Feature&ID="00BFEA71-4EA5-48D4-A4AD-7EA5C011ABE5"&/&
&Feature&ID="00BFEA71-E717-4E80-DEAF-D0C71B360101"&/&
&/WebFeatures&
如果我们对已创建的栏进行修改，WSS并不会将改动写回到XML栏定义本身。相反，WSS会存储更改到WSS数据库条目中。
在已存在的网站中添加栏
我们可以使用WSS对象模型通过编程来添加一栏到已有站点。
1、可以通过Fields属性访问特定网站的网站栏的集合。该方法返回一个SPFiledCollection对象。
2、使用该对象的下列方法之一来添加栏到网站：
Microsoft.SharePoint.SPFieldCollection.Add(Microsoft.SharePoint.SPField)
Microsoft.SharePoint.SPFieldCollection.Add(System.String,Microsoft.SharePoint.SPFieldType,System.Boolean)
Microsoft.SharePoint.SPFieldCollection.Add(System.String,Microsoft.SharePoint.SPFieldType,System.Boolean,System.Boolean,System.Collections.Specialized.StringCollection)
Microsoft.SharePoint.SPFieldCollection.AddFieldAsXml(System.String)
Microsoft.SharePoint.SPFieldCollection.AddFieldAsXml(System.String,System.Boolean,Microsoft.SharePoint.SPAddFieldOptions)
CreateNewField(System.String,System.String)
阅读(...) 评论()1688.com,阿里巴巴打造的全球最大的采购批发平台
1688/淘宝会员（仅限会员名）请在此登录
cbulogin.et2Server is OK我们可以通过SPWeb类的GetFolder方法返回某个特定的文件夹，然后访问其中某个文件。在实例化SPWeb对象后（如mySite）,使用SPFolder myFolder=mySite.GetFolder("Shared Documents")（对于VB 2005为 Dim myFolder As SPFolder = mySite.GetFolder("Shared Documents")）来返回网站中的共享文档(Shared Documents)文件夹。
下面的例子返回文件夹中文件的集合，并显示文件信息。
Dim&myFiles&As&SPFileCollection&=&myFolder.Files
Dim&file&As&SPFile
For&Each&file&In&&myFiles
&&&&Response.Write(file.Url.ToString()&&&"&BR&")
&&&&Response.Write(file.Length.ToString()&&&"&BR&")
SPFileCollection&myFiles&=&myFolder.F
foreach&(SPFile&file&in&myFiles)
&&&Response.Write(file.Url.ToString()&+&"&BR&");
&&&Response.Write(file.Length.ToString()&+&"&BR&");
上面的例子列出了文件夹中每个文件的URL和大小。
我们需要引用Microsoft.SharePoint命名空间。
如果要把文件从一个位置拷贝到别的地方，可以使用SPFile类的CopyTo方法。下面的例子在Page_Load事件处理程序中实例化了当前站点上下文的SPWeb对象。在Click事件处理程序中，遍历了整个文件夹，列出各文件的文件名和大小(以kb为单位)，对于大小超过用户在textbox中指定值的文件，将拷贝一份到Archive文件夹。
Private&mySite&As&SPWeb
Private&Sub&Page_Load(sender&As&Object,&e&As&System.EventArgs)
&&&&mySite&=&SPControl.GetContextWeb(Context)
End&Sub&'Page_Load
Private&Sub&Button1_Click(sender&As&Object,&e&As&System.EventArgs)
&&&&Dim&maxSize&As&Integer&=&Convert.ToInt32(TextBox1.Text)
&&&&Dim&myFolder&As&SPFolder&=&mySite.GetFolder("Shared&Documents")
&&&&Dim&myFiles&As&SPFileCollection&=&myFolder.Files
&&&&Dim&file&As&SPFile
&&&&For&Each&file&In&&myFiles
&&&&&&&&If&file.Length&&&maxSize&*&1024&Then
&&&&&&&&&&&&Response.Write(SPEncode.HtmlEncode(file.Name)&&&"&::&"&
&&&&&&&&&&&&&&&&&&file.Length&/&1024&&&"kb&BR&")
&&&&&&&&&&&&file.CopyTo("Archive/"&&&file.Name,&True)
&&&&&&&&End&If
&&&&Next&file
End&Sub&'Button1_Click
private&SPWeb&myS
private&void&Page_Load(object&sender,&System.EventArgs&e)
&&&mySite&=&SPControl.GetContextWeb(Context);
private&void&Button1_Click(object&sender,&System.EventArgs&e)
&&&int&maxSize&=&Convert.ToInt32(TextBox1.Text);
&&&SPFolder&myFolder&=&mySite.GetFolder("Shared&Documents");
&&&SPFileCollection&myFiles&=&myFolder.F
&&&foreach&(SPFile&file&in&myFiles)
&&&&&&if&(file.Length&(maxSize*1024))
&&&&&&&&&Response.Write(SPEncode.HtmlEncode(file.Name)&+&":&"&
&&&&&&&&&&&&&+&file.Length/1024&+&"kb&BR&");
&&&&&&&&&file.CopyTo("Archive/"&+&file.Name,&true);
该例中，CopyTo方法有两个参数，一个指定拷贝的目标URL地址，另一个布尔值用于指定是否覆盖目标文件夹中已有的同名文件。
您需要引用Microsoft.SharePoint，Microsoft.SharePoint.Utilities,Microsoft.SharePoint.WebControls命名空间。
下面的例子将移动共享文档（Shared Documents）中的所有文件夹到名为StorageFolder文件夹，并覆盖已存在的同名文件。
Dim&mySite&As&SPWeb&=&SPControl.GetContextWeb(Context)
Dim&myFolder&As&SPFolder&=&mySite.GetFolder("Shared&Documents")
Dim&myFiles&As&SPFileCollection&=&myFolder.Files
Dim&i&As&Integer
For&i&=&myFiles.Count&-&1&To&0&Step&-1
&&&&myFiles(i).MoveTo("StorageFolder/"&&&myFiles(i).Name,&True)
SPWeb&mySite&=&SPControl.GetContextWeb(Context);
SPFolder&myFolder&=&mySite.GetFolder("Shared&Documents");
SPFileCollection&myFiles&=&myFolder.F
for&(int&i&=&myFiles.Count&-&1;&i&&&-1;&i--)
&&&&myFiles[i].MoveTo("StorageFolder/"&+&myFiles[i].Name,&true);
如上所示，当集合由于代码执行删除或移动项目而改变时，用于遍历集合的计数器必须采用递减。
该代码的运行需要引用Microsoft.SharePoint和Microsoft.SharePoint.WebControls命名空间。
阅读(...) 评论()