private ConnectionOptions _connection;

連線資料庫伺服器到方法：

#region ConnectDatabase 連線資料庫

private bool ConnectDatabase()

{

if (Command.Connection.State != ConnectionState.Open)

{

try

{

Command.Connection.Open();

}

catch(Exception e)

{

return false;

}

}

return true;

}

#endregion

如果不能正確連線資料庫伺服器，請檢查你的連線字串，或者將連線字串寫入檔案檢視。不好意思，我不知道如何對這種安裝部署程式進行debug，sorry咯！

讀取SQL檔案的方法：

#region GetSql 從檔案中讀取SQL，在讀取包含SQL指令碼的檔案時需要用到，參考自MSDN

private string GetSql(string Name)

{

try

{

Assembly Asm = Assembly.GetExecutingAssembly();

Stream strm = Asm.GetManifestResourceStream(Asm.GetName().Name + "." + Name);

StreamReader reader = new StreamReader(strm);

return reader.ReadToEnd();

}

catch (Exception getException)

{

throw new ApplicationException(getException.Message);

}

}

#endregion

可以將此需要執行的SQL指令碼放在此文字中

執行SQL語句的方法：

#region ExecuteSql 執行SQL語句，參考自MSDN

private void ExecuteSql(string DataBaseName, string sqlstring)

{

Command = new System.Data.SqlClient.SqlCommand(sqlstring, sqlConn);

if (ConnectDatabase())

{

try

{

Command.Connection.ChangeDatabase(DataBaseName);

Command.ExecuteNonQuery();

}

finally

{

Command.Connection.Close();

}

}

}

#endregion

建立資料庫及資料庫表：

#region CreateDBAndTable 建立資料庫及資料庫表，參考自MSDN

protected bool CreateDBAndTable(string DBName)

{

bool Restult = false;

try

{

ExecuteSql("master", "USE MASTER IF EXISTS (SELECT NAME FROM SYSDATABASES WHERE NAME='" + DBName + "') DROP DATABASE " + DBName);

ExecuteSql("master", "CREATE DATABASE " + DBName);

ExecuteSql(DBName, GetSql("DBSQL.txt"));

Restult = true;

}

Catch

{

}

return Restult;

}

#endregion

從備份檔案恢復資料庫及資料庫表

#region RestoreDB 從備份檔案恢復資料庫及資料庫表

///

/// 從備份檔案恢復資料庫及資料庫表

///

/// 資料庫名

/// 配件中資料庫指令碼資源的名稱

///

protected bool RestoreDB(string DBName)

{

dir = this.Context.Parameters["targetdir"];

bool Restult = false;

string MSQL = "RESTORE DATABASE " + DBName +

" FROM DISK = '" + dir + @"data.bak' " +

" WITH MOVE 'Test' TO '" + @"c:/" + DBName + ".mdf', " +

" MOVE 'Test_log' TO '" + @"c:/" + DBName + ".ldf' ";

try

{

ExecuteSql("master", "USE MASTER IF EXISTS (SELECT NAME FROM SYSDATABASES WHERE NAME='" + DBName + "') DROP DATABASE " + DBName);

ExecuteSql("master", MSQL);

Restult = true;

}

finally

{

// 刪除備份檔案

try

{

File.Delete(dir + @"data.bak");

}

catch

{

}

}

return Restult;

}

#endregion

這裡可以到登錄檔讀取SQL Server的安裝路徑，把恢復後的資料庫檔案放到data目錄地下。在本例中，只是實現了恢復，並未進行標準的操作。其中Test和Test_log時備份時資料庫的檔案資訊。如果想要從備份檔案中恢復，請把檔案包含到專案裡並且設定和DBSQL.txt一樣，嵌入到程式裡。最後執行刪除。不過我想應該有辦法不把檔案先安裝到目標機器上，而是有方法想讀取DBSQL.txt檔案一樣，直接恢復資料庫，不過確實沒想到辦法，失敗！

網站安裝好後，需要設定web.config檔案，這裡只涉及到連線字串到設定，其他的可以同理修改。

#region WriteWebConfig 修改web.config的連線資料庫的字串

private bool WriteWebConfig()

{

System.IO.FileInfo FileInfo = new System.IO.FileInfo(this.Context.Parameters["targetdir"] + "/web.config");

if (!FileInfo.Exists)

{

throw new InstallException("Missing config file :" + this.Context.Parameters["targetdir"] + "/web.config");

}

System.Xml.XmlDocument xmlDocument = new System.Xml.XmlDocument();

xmlDocument.Load(FileInfo.FullName);

bool FoundIt = false;

foreach (System.Xml.XmlNode Node in xmlDocument["configuration"]["appSettings"])

{

if (Node.Name == "add")

{

if (Node.Attributes.GetNamedItem("key").Value == "ConnectionString")

{

Node.Attributes.GetNamedItem("value").Value = String.Format("Persist Security Info=False;Data Source={0};database={1};User ID={2};Password={3};Packet Size=4096;Pooling=true;Max Pool Size=100;Min Pool Size=1", ServerName, DBName, AdminName, AdminPwd);

FoundIt = true;

}

}

}

if (!FoundIt)

{

throw new InstallException("Error when writing the config file: web.config");

}

xmlDocument.Save(FileInfo.FullName);

return FoundIt;

}

#endregion

#region WriteRegistryKey 寫登錄檔。安裝部署中，直接有一個登錄檔編輯器，可以在那裡面設定。

private void WriteRegistryKey()

{

// 寫登錄檔

RegistryKey hklm = Registry.LocalMachine;

RegistryKey cqfeng = hklm.OpenSubKey("SOFTWARE", true);

RegistryKey F = cqfeng.CreateSubKey("cqfeng");

F.SetValue("FilePath", "kkkk");

}

#endregion

操作IIS，建立網站等。可參考：

#region Connect 連線IIS伺服器

public bool Connect()

{

if (iis == null)

return false;

try

{

_iisServer = new DirectoryEntry("IIS://" + iis + "/W3SVC/1");

_target = iis;

_connection = new ConnectionOptions();

_scope = new ManagementScope(@"//" + iis + @"/root/MicrosoftIISV2", _connection);

_scope.Connect();

}

catch

{

return false;

}

return IsConnected();

}

public bool IsConnected()

{

if (_target == null || _connection == null || _scope == null) return false;

return _scope.IsConnected;

}

#endregion

#region IsWebSiteExists 判斷網站是否已經存在

public bool IsWebSiteExists(string serverID)

{

try

{

string siteName = "W3SVC/" + serverID;

ManagementObjectSearcher searcher = new ManagementObjectSearcher(_scope, new ObjectQuery("SELECT * FROM IIsWebServer"), null);

ManagementObjectCollection webSites = searcher.Get();

foreach (ManagementObject webSite in webSites)

{

if ((string)webSite.Properties["Name"].Value == siteName)

return true;

}

return false;

}

catch

{

return false;

}

}

#endregion

#region GetNextOpenID 獲得一個新的ServerID

private int GetNextOpenID()

{

DirectoryEntry iisComputer = new DirectoryEntry("IIS://localhost/w3svc");

int nextID = 0;

foreach (DirectoryEntry iisWebServer in iisComputer.Children)

{

string sname = iisWebServer.Name;

try

{

int name = int.Parse(sname);

if (name > nextID)

{

nextID = name;

}

}

catch

{

}

}

return ++nextID;

}

#endregion

#region CreateWebsite 新增網站

public string CreateWebSite(string serverID, string serverComment, string defaultVrootPath, string HostName, string IP, string Port)

{

try

{

ManagementObject oW3SVC = new ManagementObject(_scope, new ManagementPath(@"IIsWebService='W3SVC'"), null);

if (IsWebSiteExists(serverID))

{

return "Site Already Exists...";

}

ManagementBaseObject inputParameters = oW3SVC.GetMethodParameters("CreateNewSite");

ManagementBaseObject[] serverBinding = new ManagementBaseObject[1];

serverBinding[0] = CreateServerBinding(HostName, IP, Port);

inputParameters["ServerComment"] = serverComment;

inputParameters["ServerBindings"] = serverBinding;

inputParameters["PathOfRootVirtualDir"] = defaultVrootPath;

inputParameters["ServerId"] = serverID;

ManagementBaseObject outParameter = null;

outParameter = oW3SVC.InvokeMethod("CreateNewSite", inputParameters, null);

// 啟動網站

string serverName = "W3SVC/" + serverID;

ManagementObject webSite = new ManagementObject(_scope, new ManagementPath(@"IIsWebServer='" + serverName + "'"), null);

webSite.InvokeMethod("Start", null);

return (string)outParameter.Properties["ReturnValue"].Value;

}

catch (Exception ex)

{

return ex.Message;

}

}

public ManagementObject CreateServerBinding(string HostName, string IP, string Port)

{

try

{

ManagementClass classBinding = new ManagementClass(_scope, new ManagementPath("ServerBinding"), null);

ManagementObject serverBinding = classBinding.CreateInstance();

serverBinding.Properties["Hostname"].Value = HostName;

serverBinding.Properties["IP"].Value = IP;

serverBinding.Properties["Port"].Value = Port;

serverBinding.Put();

return serverBinding;

}

catch

{

return null;

}

}

#endregion

好了，準備工作已經做完，現在開始寫最重要的Install方法了

整個方法寫完後如下：

#region Install 安裝

///

/// 安裝資料庫

///

///

public override void Install(IDictionary stateSaver)

{

base.Install(stateSaver);

dir = this.Context.Parameters["dir"];

DBName = this.Context.Parameters["DBNAME"].ToString();

ServerName = this.Context.Parameters["server"].ToString();

AdminName = this.Context.Parameters["user"].ToString();

AdminPwd = this.Context.Parameters["pwd"].ToString();

iis = this.Context.Parameters["iis"].ToString(); ;

port = this.Context.Parameters["port"].ToString();

//寫入獲取的安裝程式中的變數，此段程式碼為除錯用可以不新增

this.sqlConn.ConnectionString = "Packet size=4096;User ID=" + AdminName + ";Data Source=" + ServerName + ";Password=" + AdminPwd + ";Persist Security Info=False;Integrated Security=false";

// 執行SQL 安裝資料庫 可選擇時恢復或者時直接建立

if(!CreateDBAndTable(DBName))

{

throw new ApplicationException("建立資料庫時出現嚴重錯誤！");

}

// 從備份資料庫檔案恢復資料庫

/*

if (!RestoreDB(DBName))

{

throw new ApplicationException("恢復資料庫時出現嚴重錯誤！");

}

*/

// 新增網站

Connect();

//string serverID = GetNextOpenID().ToString();

//string serverComment = websitenName;

// 下面的資訊為測試，可以自己編寫文字框來接收使用者輸入資訊

string serverID = "5555";

string serverComment = "cqfeng";

string defaultVrootPath = this.Context.Parameters["targetdir"];

if (defaultVrootPath.EndsWith(@"/"))

{

defaultVrootPath = defaultVrootPath.Substring(0, defaultVrootPath.Length-1);

}

string HostName = "";

string IP = "";

string Port = port;

string sReturn = CreateWebSite(serverID, serverComment, defaultVrootPath, HostName, IP, Port);

// 修改web.config

if (!WriteWebConfig())

{

throw new ApplicationException("設定資料庫連線字串時出現錯誤");

}

// 寫登錄檔

WriteRegistryKey();

}

#endregion

刪除時的方法。在本文中未詳細操作，比如刪除站點，刪除資料庫等。如果需要，請你自己補足

#region Uninstall 刪除

public override void Uninstall(IDictionary savedState)

{

if (savedState == null)

{

throw new ApplicationException("未能解除安裝！");

}

else

{

base.Uninstall(savedState);

}

}

#endregion

編譯，然後選擇安裝，如圖：