您如何修改Web设置项目以创建新的网站，应用程序池和虚拟目录？

Question

在过去的几天里，我一直在阅读很多有关此内容的信息，其中似乎有很多有关如何创建Web设置项目以及如何使用自定义操作对其进行修改的信息。使用以下链接：

http://weblogs.asp.net/scottgu/tip-trick-creating-packaged-asp-net-setup-programs-with-vs-2005 http://msdn.microsoft.com/zh-CN/library/ms525598 .aspx http://www.dreamincode.net/forums/topic/231074-setup-and-deployment-in-visual-studio-2010/ http://www.codeproject.com/Articles/146626/Extending-Visual-工作室-设置-项目

但是，关于如何专门修改用户界面，以便用户可以创建新站点，而不是从“安装地址”操作（在“开始”下）提供的下拉列表中进行选择，似乎没有太多的选择。 除此之外，我还遇到了有关如何创建新应用程序池的代码，但没有遇到如何阻止UI向用户提供从列表中首先选择1的选项的代码。

目前，我的安装程序如下所示：

如您所见，用户当前有3个字段； 站点，虚拟目录和应用程序池。 站点和应用程序池是列表，其中包含现有选项。 在“网站”下拉列表中，我实际上希望它是一个文本框，允许用户输入他们想要创建的网站的名称。 对于“应用程序池”，我希望它完全消失，因为“自定义操作”将自动创建一个应用程序池，并将虚拟目录分配给它（希望如此）。

我已经有了用于创建应用程序池，虚拟目录并将其分配给应用程序池的代码（尚未测试），但是我看不到如何根据需要编辑UI。 我是否需要删除“安装地址”步骤并创建自己的自定义步骤？

下面的代码用于创建应用程序池，创建虚拟目录以及向应用程序池分配虚拟目录：

//Properties for user input
private string targetSite { get { return this.Context.Parameters["targetsite"]; }}
private string targetVirtualDir { get { return this.Context.Parameters["targetvdir"]; } }
private string targetDirectory { get { return this.Context.Parameters["targetdir"]; } }
private const string ApplicationPool = "TestWebAppAP";
private const string BasePath = "IIS://Localhost/W3SVC/1/Root";
private const string AppPoolsAddress = "IIS://Localhost/W3SVC/AppPools";

//Install
public override void Install(System.Collections.IDictionary stateSaver)
{
    base.Install(stateSaver);

    if (targetSite == null) throw new InstallException("IIS site name not specified");
    else
    {
        CreateApplicationPool();
        CreateVirtualDir();
        AssignVDirtoAppPool();
    }
}

//Create Application Pool
private void CreateApplicationPool()
{
    try
    {
        DirectoryEntry NewPool;
        DirectoryEntry AppPools = new DirectoryEntry(AppPoolsAddress);
        NewPool = AppPools.Children.Add(ApplicationPool, "IIsApplicationPool");
        NewPool.CommitChanges();
    }
    catch (Exception ex)
    {
        MessageBox.Show("Failed to create new application pool \" " + ApplicationPool + "\". Error: " + ex.Message);
        throw new InstallException("Failed to create app pool", ex);
    }
}

//Create Virtual Directory
private void CreateVirtualDir()
{
    try
    {
        DirectoryEntry site = new DirectoryEntry(BasePath);
        string className = site.SchemaClassName.ToString();

        if (className.EndsWith("Server") || className.EndsWith("VirtualDir"))
        {
            DirectoryEntries vdirs = site.Children;
            DirectoryEntry newVDir = vdirs.Add(targetVirtualDir, (className.Replace("Service", "VirtualDir")));
            newVDir.Properties["Path"][0] = targetDirectory;
            newVDir.Properties["AccessScript"][0] = true;
            newVDir.Properties["AppFriendlyName"][0] = targetVirtualDir;
            newVDir.Properties["AppIsolated"][0] = "1";
            newVDir.Properties["AppRoot"][0] = "/LM" + BasePath.Substring(BasePath.IndexOf("/", ("IIS://".Length)));

            newVDir.CommitChanges();
        }
        else
        {
            MessageBox.Show("Failed to create virtual directory. It can only be created in a site or virtual directory node.");
        }
    }
    catch (Exception ex)
    {
        MessageBox.Show("Failed to create virtual directory \"" + targetVirtualDir + "\". Error: " + ex.Message);
        throw new InstallException("Failed to create virtual directory", ex);
    }
}

//Assign virtual directory to app pool
private void AssignVDirtoAppPool()
{
    try
    {
        DirectoryEntry vDir = new DirectoryEntry(BasePath);
        string className = vDir.SchemaClassName.ToString();

        if(className.EndsWith("VirtualDir"))
        {
            object[] param = { 0, ApplicationPool, true };
            vDir.Invoke("AppCreate3", param);
            vDir.Properties["AppIsolated"][0] = "2";
        }
        else
        {
            MessageBox.Show("Failed to assign to application pool. Only virtual directories can be assigned to application pools.");
        }
    }
    catch (Exception ex)
    {
        MessageBox.Show("Failed to assign virtual directory \"" + targetVirtualDir + "\" to application pool \"" + ApplicationPool + "\". Error: " + ex.Message);
        throw new InstallException("Failed to assign virtual directory to application pool", ex);
    }
}

Answer 1

我发现我可以删除UI中的“安装地址”，并使用文本框进行自定义。 这似乎有点限制性，但这是我可以做到的唯一方法。