WSS3SDK之：如何创建或删除一个站点或站点集

如果要创建一个网站，可以使用SPWebApplication类的Add方法。如果要在一个网站下创建子网站，可以使用SPWeb类的Webs属性返回子网站的集合，然后调用集合的Add方法。
下面的样例将从3个文本框中收集信息，然后基于当前网站的模板创建一个新的子网站。文本框用户指定新创建网站的名称，URL以及描述信息。
注意：
本样例中使用Microsoft.SharePoint.SPContent类成员来获取当前的网站集，网站和列表。在HTTP上下文以外，比如在命令行应用或Windows应用中，这种方式是没法用的。
VB

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 )

C#

SPWeb mySite  =  SPContext.Current.Web;
SPWebCollection subSites  =  mySite.Webs;
string  currentTemplate  =  mySite.WebTemplate;

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方法删除站点。
VB

Dim  deleteSite  As   String   =  TextBox1.Text.ToString()

Dim  mySite  As  SPSite  =  SPContext.Current.Site
Dim  sites  As  SPWebCollection  =  mySite.AllWebs

sites.Delete(deleteSite)

 

C#

string  deleteSite  =  TextBox1.Text.ToString();

SPSite mySite  =  SPContext.Current.Site;
SPWebCollection sites  =  mySite.AllWebs;

sites.Delete(deleteSite); 

该代码需要引用Microsoft.SharePoint命名空间。
代码中，通过SPSite类的AllWebs属性返回当前网站集下所有网站的集合。
可以使用SPVirtualServer类的Sites属性返回虚拟服务器上网站集的集合，然后使用SPSiteCollection类的Add方法来添加一个网站集。
下面的代码在当前SharePoint Web应用程序下创建了一个网站集。
VB

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 " )

C#

SPWebApplication webApplication  =  SPContext.Current.Site.WebApplication;
SPSiteCollection siteCollections  =  webApplication.Sites;

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事件来将用于管理的窗体摘要包含到页面中，然后建立请求。

VB

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

C#

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.Sites;

    siteCollections.Delete( " sites/Site_Collection " );
}

该代码需要引用Microsoft.SharePoint.Administration命名空间。