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)

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)

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

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

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命名空间。