WEB项目(B/S系统)打包安装（总结篇）（转）

作者：郭昊天886688 | 来源：互联网 | 2023-09-25 09:46

打包安装程序的制作选择性还很多的，有installshield，wiseinstaller,innosetup这几个做打包安装项目都是很强大的ÿ

打包安装程序的制作选择性还很多的&＃xff0c;有installshield&＃xff0c;wise installer,inno setup这几个做打包安装项目都是很强大的&＃xff0c;要搞出界面大气个性化的安装&＃xff0c;还是得用这几个才行&＃xff0c;我这篇说的是.NET自带的安装项目打包WEB系统的&＃xff0c;.NET打包安装项目虽然傻傻的&＃xff0c;也比较丑&＃xff0c;但是搭建安装项目快速也能满足总体的要求&＃xff0c;如果没有足够的时间研究重量级的安装工具&＃xff0c;短时间内用.NET自带的安装项目也是一个良好的选择。网上有很多关于用.NET打包WEB项目的文章&＃xff0c;大体是那样的&＃xff0c;但不是很全面&＃xff0c;有个别细节并没有涉及&＃xff0c;先说下这个安装打包项目的主要功能&＃xff1a;

一、安装前系统检测

主要检测SQL SERVER是否安装&＃xff0c;站点名称和端口号是否重复等&＃xff0c;framework自动检测没有的话先安装&＃xff0c;本身自带就有此功能&＃xff0c;IIS是必须要求的&＃xff0c;不然没法创建站点。

　　二、项目文件安装到指定文件夹并根据安装时的数据库配置修改webconfig连接

三、附加数据库

打包时可以把mdf文件放到WEB项目文件夹下&＃xff0c;生成安装文件时就会自动打包进去&＃xff0c;安装时执行附加即可。

四、注册COM组件&＃xff08;如果项目中涉及到COM的话&＃xff09;

五、创建WEB站点

六、创建虚拟目录

这里的虚拟目前是根据打包的项目需要进行的&＃xff0c;因为有的WEB项目结构比较复杂&＃xff0c;比如一个系统除了本身项目的发布文件&＃xff0c;还有另外的独立特殊功能的项目作为虚拟目录的形式一起运行&＃xff0c;类似于插拔式的插件一样&＃xff0c;需要的话直接拷贝到站点下&＃xff0c;设置虚拟目录&＃xff0c;系统菜单做好链接指向其页面就可以了。

七、创建桌面快捷方式

比如可以把系统的登录页面或其它起始页作为安装时指定的快捷方式

八、项目卸载

项目的卸载主要包括删除项目文件&＃xff0c;卸载附加的数据库&＃xff0c;删除站点及桌面快捷方式等

安装WEB项目的前提条件是需要在用户电脑上先安装SQL SERVER数据库(或其它数据库)和IIS信息管理器。

1&＃xff09;安装项目主要涉及的是安装类里面的操作&＃xff0c;包括安装和卸载的方法重写等&＃xff0c;安装时需要记录用户通过安装界面输入的信息&＃xff0c;这里我们可以用XML文件作为记录配置文件&＃xff0c;主要是在卸载的时候需要用到用户输入的相关信息&＃xff0c;数据库连接串的记录操作如下&＃xff1a;

///

/// 获取数据库登录连接字符串
///

        /// 数据库名称
        ///
        private string GetConnectionString(string databasename)
        {
            string ConnStr &＃61; "server&＃61;" &＃43; Context.Parameters["server"].ToString() &＃43; ";database&＃61;" &＃43; (string.IsNullOrEmpty(databasename) ? "master" : databasename) &＃43; ";uid&＃61;" &＃43; Context.Parameters["user"].ToString() &＃43; ";pwd&＃61;" &＃43; Context.Parameters["pwd"].ToString();
            if (string.IsNullOrEmpty(databasename)) //将连接串写入XML文件&＃xff0c;供卸载操作时读取
            {
                dbpath &＃61; Path.Combine(this.Context.Parameters["installdir"].ToString(), "dbconfig.xml");
                OperateXML.UpdateXMLNode(dbpath, "ConnString", ConnStr);
            }
            else
            {
                dbpath &＃61; Path.Combine(this.Context.Parameters["installdir"].ToString(), "dbconfig.xml");
                OperateXML.UpdateXMLNode(dbpath, "DbName", databasename);
            }
            return ConnStr;
        }

2&＃xff09;安装检测

///

/// 判断是否安装了SQL SERVER
///

        ///
        private bool ExistSqlServerService()
        {
            bool Exist &＃61; false;
            ServiceController[] service &＃61; ServiceController.GetServices();
            for (int i &＃61; 0; i < service.Length; i&＃43;&＃43;)
            {
                if (service[i].ServiceName.Length > 5 && service[i].ServiceName.Substring(0, 5) &＃61;&＃61; "MSSQL") //if (service[i].ServiceName &＃61;&＃61; "MSSQLSERVER")
                {
                    Exist &＃61; true;
                    break;
                }
            }
            return Exist;
        }

这里是根据服务名称判断的&＃xff0c;如果是SQLSERVER EXPRESS版的话&＃xff0c;服务名是MSSQL$EXPRESS&＃xff0c;其它的数据库实例也是MSSQL$&＃43;实例名

///

/// 检测IIS及版本号
///

        ///
        public string GetIISVerstion()
        {

            RegistryKey key &＃61; Registry.LocalMachine.OpenSubKey(&＃64;"SOFTWARE\Microsoft\INetStp");
            if (key &＃61;&＃61; null)
                return string.Empty;
            else
                return Convert.ToString(key.GetValue("MajorVersion")) &＃43; "." &＃43; Convert.ToString(key.GetValue("MinorVersion"));

        }

string entPath &＃61; String.Format("IIS://{0}/w3svc", "localhost");

///

/// 端口号是否重复
///

        ///
        private bool IsExistSitePort()
        {
            bool exist &＃61; false;
            DirectoryEntry ent &＃61; GetDirectoryEntry(entPath);
            foreach (DirectoryEntry child in ent.Children)
            {
                if (child.SchemaClassName &＃61;&＃61; "IIsWebServer")
                {
                    if (child.Properties["ServerBindings"].Value !&＃61; null && child.Properties["ServerBindings"].Value.ToString().Split(&＃39;:&＃39;).Length > 1)
                    {
                        if (child.Properties["ServerBindings"].Value.ToString().Split(&＃39;:&＃39;)[1] &＃61;&＃61; Context.Parameters["siteport"].ToString())
                        {
                            exist &＃61; true;
                            break;
                        }
                    }
                }
            }
            return exist;
        }

child.Properties["ServerBindings"].Value 是绑定属性&＃xff0c;其实就是下面这个图里的属性

但是有的站点可能会分配两个端口&＃xff0c;child.Properties["ServerBindings"].Value 就是 System.Object[] 字符

///

/// 站点名称是否存在
///

        ///
        private bool IsExistSiteName(string sitename)
        {
            bool exist &＃61; false;
            using (DirectoryEntry root &＃61; new DirectoryEntry(entPath))
            {
                foreach (DirectoryEntry Child in root.Children)
                {
                    if (Child.SchemaClassName &＃61;&＃61; "IIsWebServer")
                    {
                        string WName &＃61; Child.Properties["ServerComment"].Value.ToString();
                        if (sitename &＃61;&＃61; WName)
                        {
                            exist &＃61; true;
                            break;
                        }
                    }
                }
                root.Close();
            }
            return exist;
        }

3&＃xff09;安装并复制文件

复制文件的操作在OnBeforeInstall方法中就已经完成&＃xff0c;在该方法中可以替换数据库连接字符串操作等。

protected override void OnBeforeInstall(IDictionary savedState)
        {
            if (ExistSqlServerService())
            {
                if (IsExistSitePort())
                {
                    MessageBox.Show("站点端口号重复", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
                    return;
                }
                if (IsExistSiteName(Context.Parameters["sitename"].ToString()))
                {
                    MessageBox.Show("站点名称重复", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
                    return;
                }
                base.OnBeforeInstall(savedState);

                unRAR("Message.rar"); //解压文件
                unRAR("MoreUpload.rar");
                /*
                 * 设置webconfig连接字符串
                 */
                string webconfigpath &＃61; Path.Combine(this.Context.Parameters["installdir"].ToString(), "Web.config");
                string webcofnigstring &＃61; File.ReadAllText(webconfigpath).Replace("#constring#", GetConnectionString(Context.Parameters["dbname"].ToString()));
                webcofnigstring &＃61; webcofnigstring.Replace("#siteport#", Context.Parameters["siteport"].ToString());
                webcofnigstring &＃61; webcofnigstring.Replace("#comConn#", "Provider&＃61;SQLOLEDB.1;Persist Security Info&＃61;False;User ID&＃61;" &＃43; Context.Parameters["user"].ToString() &＃43; ";Password&＃61;" &＃43; Context.Parameters["pwd"].ToString() &＃43; ";Initial Catalog&＃61;" &＃43; Context.Parameters["dbname"].ToString() &＃43; ";Data Source&＃61;" &＃43; Context.Parameters["server"].ToString());
                File.WriteAllText(webconfigpath, webcofnigstring);

                ////安装IIS
                //if (string.Empty &＃61;&＃61; GetIISVerstion())
                //{
                //    IISInstall(this.Context.Parameters["installdir"].ToString() &＃43; "IIS6.0_XPSP3", this.Context.Parameters["installdir"].ToString() &＃43; "iis.txt");
                //}

            }
            else
            {
                MessageBox.Show("检测到您的电脑没有安装SQL SERVER&＃xff0c;无法继续安装此产品", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
                this.Rollback(savedState);
            }

        }

上面代码中解压了两个文件&＃xff0c;主要是在安装完创建站点时还需要创建虚拟目录。之所以要先压缩放到WEB项目里&＃xff0c;是因为生成安装程序时会检测项目的生成是否成功(是否可以不让它检测成功呢? 还不清楚)&＃xff0c;一般只要我们把发布好的项目COPY到新建项目下就可以&＃xff0c;但是独立的项目文件夹有自己独立的bin目录和webconfig文件&＃xff0c;是不能混合在一起生成成功的&＃xff0c;但是又需要一次完全安装&＃xff0c;那么可以先压缩做为WEB项目下的文件&＃xff0c;待复制完后再解压。

4&＃xff09;安装

///

/// 安装
///

        ///
        public override void Install(IDictionary stateSaver)
        {
            if (ExistSqlServerService())
            {
                if (IsExistSitePort())
                {
                    MessageBox.Show("站点端口号重复", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
                    return;
                }
                if (IsExistSiteName(Context.Parameters["sitename"].ToString()))
                {
                    MessageBox.Show("站点名称重复", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
                    return;
                }

                base.Install(stateSaver);

                WriteBat();
                RegisterCom();
                string connectionString &＃61; GetConnectionString(null);
                try
                {
                    using (SqlConnection connection &＃61; new SqlConnection(connectionString))
                    {
                        connection.Open();

                        string sql &＃61; "sp_attach_db &＃39;" &＃43; Context.Parameters["dbname"].ToString() &＃43; "&＃39;,&＃39;" &＃43; Context.Parameters["installdir"].ToString() &＃43; "App_Data/Db_Data.MDF&＃39;,&＃39;"
                            &＃43; Context.Parameters["installdir"].ToString() &＃43; "App_Data/Db_Data_Log.LDF&＃39;";

                        ExecuteSQL(connection, sql);
                        connection.Close();
                    }

                }
                catch (Exception ex)
                {
                    MessageBox.Show("数据库安装失败&＃xff01;\n数据库配置有误,请正确配置信息!\n" &＃43; ex.Message, "出错&＃xff01;");
                    this.Rollback(stateSaver);
                    return;
                }

                try
                {
                    CreateDeskTopShortcut();
                    NewWebSiteInfo siteInfo &＃61; new NewWebSiteInfo(string.Empty, Context.Parameters["siteport"].ToString(), "", Context.Parameters["sitename"].ToString(), Context.Parameters["installdir"].ToString());
                    CreateNewWebSite(siteInfo);
                    StartWebSite(siteInfo.BindString);

                }
                catch//(Exception ex)
                {
                    //MessageBox.Show("创建站点失败!\n" &＃43; ex.Message, "出错&＃xff01;");
                    //this.Rollback(stateSaver);
                     CreateVirWebSite("Message", Context.Parameters["installdir"].ToString() &＃43; "Message");
                     CreateVirWebSite("MoreUpload", Context.Parameters["installdir"].ToString() &＃43; "MoreUpload");
                }
            }
            else
            {
                MessageBox.Show("检测到您的电脑没有安装SQL SERVER&＃xff0c;无法继续安装此产品", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
                this.Rollback(stateSaver);
            }

        }

上面创建网站时会抛出一个文件路径的异常&＃xff0c;但是网站是创建成功的&＃xff0c;也算一个遗留问题&＃xff0c;创建好网站后调用CreateVirWebSite方法创建虚拟目录。

5&＃xff09;安装时用户参数接收

参数的名称在添加安装项目的视图-》用户界面里填写&＃xff0c;如下图&＃xff1a;

参数的传递在视图——》自定义操作里面设置&＃xff0c;如下图&＃xff1a;

在CustomActionData里输入所有需要传递到安装类的参数 /dbname&＃61;[DBNAME] /server&＃61;[SERVER] /user&＃61;[UID] /pwd&＃61;[PWD] /sitename&＃61;[SITENAME] /siteport&＃61;[SITEPORT] /startpage&＃61;[STARTPAGE] /shortcutname&＃61;[SHORTCUTNAME] /installdir&＃61;"[TARGETDIR]\" 注意这个格式是固定的&＃xff0c;尤其安装路径的参数格式installdir&＃61;"[TARGETDIR]\"这么写

同时要说明的是在卸载的CustomActionData属性只需要给出installdir参数&＃xff0c;即使给了其它的参数&＃xff0c;卸载时也是读取不到的&＃xff0c;只能读取到初始的默认值&＃xff0c;如果安装过程中用户重新修改了就不行了&＃xff0c;安装文件时选择的路径始终能正确读取到&＃xff0c;正因为如此在安装时需要把录入的相关信息以XML配置文件的形式记录下来&＃xff0c;这样才能保证正确无误的卸载。

6&＃xff09;卸载

///         /// 卸载
        ///
        ///
        public override void Uninstall(IDictionary savedState)
        {
            DeleteWebSite(); //删除安装文件前先删除站点&＃xff0c;因删除站点时需读取安装文件的配置信息
            dbpath &＃61; Path.Combine(this.Context.Parameters["installdir"].ToString(), "dbconfig.xml");
            string connectionString &＃61; OperateXML.GetXmlNodeValue(dbpath, "ConnString");
            string dbName &＃61; OperateXML.GetXmlNodeValue(dbpath, "DbName");

            base.Uninstall(savedState);

            try
            {
                using (SqlConnection connection &＃61; new SqlConnection(connectionString))
                {
                    connection.Open();
                    string sql &＃61; "if exists(select 1 from master..sysdatabases where name&＃61; &＃39;" &＃43; dbName &＃43; "&＃39;) drop database " &＃43; dbName;
                    ExecuteSQL(connection, sql);
                    connection.Close();
                }
                if (Directory.Exists(Context.Parameters["installdir"].ToString() &＃43; "Message"))
                {
                    Directory.Delete(Context.Parameters["installdir"].ToString() &＃43; "Message", true);//删除解压产生的文件

                }
                if (Directory.Exists(Context.Parameters["installdir"].ToString() &＃43; "MoreUpload"))
                {
                    Directory.Delete(Context.Parameters["installdir"].ToString() &＃43; "MoreUpload", true);
                }

            }
            catch (Exception ex)
            {
                MessageBox.Show("卸载失败&＃xff01;\n" &＃43; ex.Message, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
                this.Rollback(savedState);
                return;
            }

        }

因为解压产生的文件卸载时不会自动删除&＃xff0c;需要单独编写代码删除&＃xff0c;这些文件是安装过程中产生的次生文件&＃xff0c;它只会自动删除原本WEB项目打包进去的原来文件&＃xff0c;至于另外产生的文件
是不会自动删除的。对于解压后的文件进行操作&＃xff0c;这里也有个一个必须要注意的地方&＃xff0c;就是路径问题&＃xff0c;解压产生的次生文件&＃xff0c;安装时会读取不到解压后的文件夹路径&＃xff0c;事实上文件已经复制解压也完成了&＃xff0c;但就是读取不到&＃xff0c;对应这种情况办法是建立一个和压缩包一样的空文件夹放到WEB项目里&＃xff0c;如果解压后的文件里需要替换webconfig连接串&＃xff0c;可以在文件夹里放入Web.xml文件&＃xff0c;并设置好要替换的地方&＃xff0c;前面说了多个webconfig生成会不成功&＃xff0c;这里可以先取名xml&＃xff0c;解压后替换连接串再修改文件名OK了。

7&＃xff09;安装项目工程结构

新建一个网站或项目&＃xff0c;然后添加安装项目和安装程序类库&＃xff0c;如下图

虽然是WEB项目打包安装&＃xff0c;这里选择安装项目就可以了&＃xff0c;并不需要选择Web 安装项目。安装项目属性里的系统必备选择相应的.NET类库&＃xff0c;安装时如果没有装framework也会自动引导安装&＃xff0c;如下图&＃xff1a;

生成安装项目时会产生两个执行文件&＃xff0c;一个.msi 一个setup.exe&＃xff0c;msi是打包生成是安装程序&＃xff0c;exe是一个引导安装程序&＃xff0c;如果电脑上没有安装framework&＃xff0c;那么点击exe运行引导安装&＃xff0c;如果原本已经安装了相应的framework&＃xff0c;那么随便点击那个安装效果是一样的。

8&＃xff09;运行效果图

上面原本默认的路径是C:\Program Files\peace\项目信息管理系统\ &＃xff0c;如果一级目录原本存在的话会有一个问题&＃xff0c;解压时会找不到压缩文件&＃xff0c;文件确实是存在的&＃xff0c;但是磁盘根目录下却又可以&＃xff0c;可能是调用WinRAR解压读写的权限问题。