• 如何用VS2005制作Web安装程序


    网站完成后,需要部署到目标机器上,方法有很多,直接把文件Copy到目标机器上,执行SQL脚本,配置IIS,这样可以做到;也可以使用InstallShield这样到专业制作软件来打包。本篇文章是使用VS2005自带到安装部署工具来制作exe安装文件。

    涉及到到内容包括:使用安装部署工具,建立数据库,配置IIS,文件操作,注册表等。参考了网上关于使用VS制作安装程序的文章。环境:Windows2003 + VS2005 + SQL2005

    注:本文只是为了实现,没有强调方法,变量等的写法标准。

    使用VS2005制作安装程序的时候,有多种选择,如下图:

    我想一般常用的可能就最上面的两种。当使用Web安装项目时,执行制作好的msi安装文件时,会发现实际上是添加虚拟目录而不是添加网站,而且无法选择安装目录,当然,可以自己写脚本来对IIS进行修改。不过在这篇文章里,将不采用此模式。本篇文章用的是使用“安装项目”,就和打包WinForm程序一样,把Web文件部署到目标机器上,然后重写install方法,配置IIS,执行SQL脚本,修改web.config文件等。

    在开始整个过程之前,需要先了解一下“预编译”的概念,MSDN上的说明是:默认情况下,在用户首次请求资源(如网站的一个页)时,将动态编译 ASP.NET 网页和代码文件。第一次编译页和代码文件之后,会缓存编译后的资源,这样将大大提高随后对同一页提出的请求的效率。请查阅MSDN“预编译”相关文档。

    准备一个文件DBSQL.txt,在里面包含连接数据库后需要执行的SQL脚本,在本例中使用了简单的一个Create TabelSQL

    好了,现在开干,吼吼~~~~~~~~~~

    打开VS2005,打开一个网站项目,这里是打开的本地localhost,如图:

    新加一个页面,随便取个名字(本文中为ClientCallback.aspx),然后写一个简单的按钮事件即可,这不是本文的重点,由你随意处理^_^ 再添加web配置文件即web.config,在下添加

                 

    此文件到时候是需要发布到目标机器上的。(关于连接数据库字符串,VS2005里面有专门的connectionStrings,本文未使用,可查阅帮助)

    点击生成网站,访问页面,ok

    选择菜单生成=》发布网站:

    点击确定后,网站已经生成,这些就是需要部署到目标机器上的所有文件。

     

    点击菜单文件=》添加=》新建项目,添加安装部署项目,如图:

     

     

    添加安装项目类库:

    删除默认的Class1.cs,新加一个安装程序类文件,名为MyInstaller.cs

    在此项目中,添加对System.EnterpriseServicesSystem.DirectoryServices的引用,在操作IIS的时候,需要用到。在文件中添加:

    using System;

    using System.IO;

    using System.DirectoryServices;

    using System.Reflection;

    using System.Data;

    using System.Data.SqlClient;

    using System.Configuration.Install;

    using System.Management;

    using System.Collections;

    using Microsoft.Win32;

    using System.Collections.Specialized;如果编译的时候出错,请添加相关引用。

    修改文件如下图:

     

    注意要手动添加Installer

     

    DBSQL.txt文件放到此项目中,在属性中设置为“嵌入的资源”

     

    回到MyWebSetup项目,点击查看属性,可以设置安装文件到显示相关信息,如图

     

     

    择文件系统,如图:

    然后:

     

    (在文件系统中,在属性里面可以设置安装程序默认到安装路径)

     

    添加一个叫bin文件夹并添加在生成网站时bin目录下的dll文件,如图:

     

    在应用程序文件夹下在生成网站时目录下的文件,添加后如图:

     

     

    选择“用户界面编辑器”,添加两个文本框ABA将作为安装新站点后的IIS设置,B将作为数据库操作时的参数设置,调整位置后如下:

    调整A的属性,这里只选择了显示两个输入框,属性分别为IISSERVERPORT,值为localhost9998,其他的你可以自己调整。如图:

     

    文本框B的设置如下:

    OK,文本框设置完毕。当然,你还可以选择其他的多种文本框,如协议什么的。

     

    打开自定义操作面板:

     

     

    然后:

    CustomActionData中输入:

    /dbname=[DBNAME] /server=[DBSERVERNAME] /user=[USERNAME] /pwd=[PASSWORD] /iis=[IISSERVER] /port=[PORT] /targetdir="[TARGETDIR]\"

    这些参数就是文本框AB上的输入框的值,在安装过程中可以获得,然后进行处理。

     

    至此,基本的安装文件已经制作完毕。进行生成,然后点击安装,可以看到文件已经复制到了相应到目录。接下来就要接收参数对IIS和数据库进行处理。

     

    打开SetupClassLibrary项目下的MyInstaller.Designer.cs,修改此文件。

    申明几个变量:

            private System.Data.SqlClient.SqlConnection sqlConn;

            private System.Data.SqlClient.SqlCommand Command;

            private string DBName;

            private string ServerName;

            private string AdminName;

            private string AdminPwd;

        

    private string iis;

            private string port;

            private string dir;

            public static string VirDirSchemaName = "IIsWebVirtualDir";

     

            private string _target;

            private DirectoryEntry _iisServer;

            private ManagementScope _scope;

            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

    如果不能正确连接数据库服务器,请检查你的连接字符串,或者将连接字符串写入文件查看。不好意思,我不知道如何对这种安装部署程序进行debugsorry咯!

     

    读取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目录地下。在本例中,只是实现了恢复,并未进行标准的操作。其中TestTest_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,建立网站等。可参考:

    VS2005制作网页对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

    编译,然后选择安装,如图:

    第一图:

    第二图:

     

    第三图:

    抱歉,我不知道在这里怎么使登录密码框输入时显示为*

     

    第四图:

    第五图:

     

    安装:

    安装完成:

     

    安装后的IIS

     

    安装目录:

    安装后的数据库:

     

    至此,一个简单的部署web程序的exe文件已经完成,当然,省略了很多东西,比如,对安装机器的判断(IIS版本,Framework版本,SQL Server版本等),IIS站点属性等设置(默认页面,访问权限,执行权限等),卸载程序时应该删除的东西等等。这些东西,在MSDN里面可以查找到相关说明,如果你需要,只有辛苦一下了,嘿嘿。

    相信有了这些,自己用WinForm来写安装程序也时可以了哈。

     

    问题:安装的时候输入密码时无法显示为*号;安装文件夹中出现编译后的安装类编译后的dll文件。哪位大哥对这些比较熟悉的,指点指点……………..

    写得不是很仔细,如果有问题或者错误,请你自己多调试一下!

    摘自:http://www.cnblogs.com/xuzhixiong/archive/2006/06/27/437056.html

  • 相关阅读:
    hdu.1226.超级密码(bfs)
    zstu.2512. Moving Tables(贪心)
    zoj.3868.GCD Expectation(数学推导>>容斥原理)
    acdream.LCM Challenge(数学推导)
    acdream.Triangles(数学推导)
    acdream.A Very Easy Triangle Counting Game(数学推导)
    acdream.Bet(数学推导)
    acdream.郭式树(数学推导)
    EntityFramework(转自wiki)
    石墨烯(转自wiki)
  • 原文地址:https://www.cnblogs.com/haoliansheng/p/1511107.html
Copyright © 2020-2023  润新知