1. 程式人生 > >.NET平臺下WEB應用程式的部署(安裝資料庫和自動配置,啟動條件)

.NET平臺下WEB應用程式的部署(安裝資料庫和自動配置,啟動條件)

轉自:http://blog.csdn.net/lihonggen0/article/details/13654

首先,建立一個安裝和部署專案。步驟如下:

1.在 "解決方案資源管理器 "中的解決方案中新增一個新專案。

用滑鼠右鍵單擊解決方案,在彈出的選單中選擇 "新增 "-> "新建專案 "。在開啟的對話方塊中選擇 "安裝和部署專案 ",並選擇 "Web安裝專案 "模板。在輸入專案名稱後,點選 "確定 "按鈕,將新專案新增到解決方案中。

2.將專案的輸出新增到安裝和部署專案中。

新增完安裝和部署專案後,vs.net2003   IDE會自動開啟一個名為 "檔案系統 "的管理器。用滑鼠右鍵單擊此管理器右邊樹型結構中的 "Web應用程式資料夾 ",在彈出的選單中選擇 "新增 "-> "專案輸出 "。在彈出的對話方塊中,選擇 "專案 "(這時只有一個,就是你的web應用程式專案),然後在下面的列表中選擇 "主輸出 "和 "內容檔案 "兩項(可以複選),接著在 "配置 "中選擇 "Release   .NET ",點選 "確定 "按鈕。

經過上面兩個步驟,一個基本的安裝和部署程式就製作完成了,將此專案編譯後就得到了一個Web安裝程式包。

然而,在很多的情況下,我們做的Web應用程式都要使用到資料庫,能不能在安裝程式的同時也將資料庫一起安裝呢?答案是肯定的。那該怎麼做呢?這個問題李洪根先生已經解決了,具體內容可以參看下面的文章

http://blog.csdn.net/lihonggen0/archive/2004/05/17/13654.aspx在李洪根先生的這篇文章中詳盡的介紹了安裝程式的製作和如何同時安裝資料庫。在此大致敘述如下:

1.新建一個類庫專案,刪除自動生成的Class.cs,重新新增一個新項。滑鼠右鍵此專案,在彈出的選單中選擇 "新增 "-> "新增新項 ",在彈出的對話方塊中選擇 "安裝程式類 "。

2.建立一個自定義的安裝對話方塊。滑鼠右鍵點選 "解決方案資源管理器 "中的安裝和部署專案,在彈出的選單中選擇 "檢視 "-> "使用者介面 "。在開啟的 "使用者介面 "管理器中,滑鼠右鍵點選 "啟動 ",在彈出的選單中選擇 "新增對話方塊 "。在開啟的對話方塊中選擇 "文字框(A) "。選擇 "文字框(A) ",在屬性中,依次設定含Property屬性為CUSTOMTEXT1,CUSTOMTEXT2,CUSTOMTEXT3,CUSTOMTEXT4。

3.建立自定義操作。滑鼠右鍵點選 "解決方案資源管理器 "中的安裝和部署專案,在彈出的選單中選擇 "檢視 "-> "自定義操作 "。在開啟的 "自定義操作 "管理器中,滑鼠右鍵點選 "安裝 ",在彈出的選單中選擇 "新增自定義操作 "。在開啟的對話方塊中,在 "查詢範圍 "中選擇 "Web應用程式資料夾 ",選擇下面列表中的 "主輸出來自Install1(活動) "(Install1是 "安裝程式類 "所在的專案名。如果列表中沒有,可以用上面提到的 "將專案的輸出新增到安裝和部署專案中 "的方法新增)。然後在 "自定義操作 "管理器中選擇剛新增的內容,在屬性視窗中設定CustomActionData屬性/dbname=[CUSTOMTEXT1]   /server=[CUSTOMTEXT2]   /user=[CUSTOMTEXT3]   /pwd==[CUSTOMTEXT4]   /targetdir= "[TARGETDIR]\ "

注意:每個設定內容以/分隔,且以空格分開。

4.在此類中重寫Install方法,並新增下面的程式碼

  1. string   strConn=String.Format( "data   source={0};user   id={1};password={2}; ",this.Context.Parameters[ "server "],this.Context.Parameters[ "user "],this.Context.Parameters[ "pwd "]);   
  2. this.ExecuteSQL(strConn, "master ""CREATE   DATABASE   "+this.Context.Parameters[ "dbname "]);   
  3. System.Diagnostics.Process   pSQL=new   System.Diagnostics.Process();   
  4. pSQL.StartInfo.FileName= "osql.exe ";   
  5. pSQL.StartInfo.Arguments=String.Format( "   -U   {0}   -P   {1}   -d{2}   -i   {3}db.sql ",this.Context.Parameters[ "user "],   
  6. this.Context.Parameters[ "pwd "],   this.Context.Parameters[ "dbname "],this.Context.Parameters[ "targetdir "]);   
  7. pSQL.StartInfo.WindowStyle=System.Diagnostics.ProcessWindowStyle.Hidden;   
  8. pSQL.Start();   
  9. pSQL.WaitForExit();   
  10. pSQL.Close();  

這樣,編譯後的安裝程式就可以連資料庫一起安裝了。

安裝資料庫的問題解決了,還有一個問題,那就是要使ASP.NET程式執行,一個重要的條件就是目標計算機上必須有.NET框架,那能不能在安裝程式時也一同將.NET框架一塊安裝了呢?答案還是肯定的。具體可以參看

http://www.microsoft.com/china/MSDN/library/netFramework/netframework/

Nfdnnetdepvsredistdeploy1_1.mspx在這篇文章中提到了幾種不同的方法重新分發.NET框架,其中最簡單的一種應該算是使用VS.NET2003了。大致的步驟如下:

1.安裝VS.NET框架載入程式外掛。這個外掛可以從微軟的網站上下載,下載地址如下:

http://www.microsoft.com/downloads/details.aspx?familyid=627921a0-d9e7-43d6-a293-72f9c370bd19&displaylang=en2.在 "解決方案資源管理器 "中,用滑鼠右鍵單擊安裝和部署專案,在彈出的選單中選擇 "檢視 "-> "啟動條件 ",開啟 "啟動條件 "管理器。

3.在 "啟動條件 "管理器中,右鍵點選 "目標計算機上的要求 ",在彈出的的選單中選擇 "添加註冊表啟動條件 "。你會發現在 "搜尋目標計算機 "中多了一項 "搜尋   RegistryEntry1 ",在 "啟動條件 "中多了一項 "Condition1 "。

4.選擇 "搜尋   RegistryEntry1 ",在 "屬性 "對話方塊中填寫如下內容:

Property:MDACSEARCH

RegKey:Software\Microsoft\DataAccess

Root:vsdrrHKLM

Value:FullInstallVer

選擇 "Condition1 "   ,在 "屬性 "對話方塊中填寫如下內容:

Condition:MDACSEARCH> = "2.6 "

進行這一步是因為在安裝.NET框架的時候需要MDAC。

.NET平臺下WEB應用程式的部署(安裝資料庫和自動配置) 李洪根

    在.NET平臺下,部署 Web 解決方案是比較方便的。我們可以利用Visual Studio.NET 2003新增一個WEB安裝專案,在部署的“檔案系統編輯器”中新增專案的主輸出和內容檔案,非常簡易地完成安裝程式的製作。

但是,這樣製作的安裝程式,只是將Web頁和ASP.NET程式編譯的DLL檔案安裝到目標機器的IIS目錄,對於一般的應用程式是可以的(比如用Access資料庫,可以一起打包到安裝程式中);如果資料庫是SQL SERVER,需要在部署的時候一併安裝資料庫,安裝程式的製作就會複雜一些,需要我們自定義安裝程式類。在安裝程式類中執行SQL指令碼並將連線字串寫入Web.config

l         安裝資料庫

微軟MSDN上介紹過在部署應用程式的時候建立資料庫。如:

這種方法是建立一個安裝程式類,在安裝程式類中呼叫ADO.NET執行SQL 語句(SQL語句放在一個文字檔案中)來建立資料庫。

但是,這種方法有一個問題,如果用SQL Server2000生成了所有建表、檢視、儲存過程的一個指令碼檔案,用ADO.NET來執行這個指令碼檔案,就會因為指令碼中有許多“GO”語句而出現錯誤。當然,我們可以把“GO”替換成換行符,利用ADO.NET一條條執行SQL 語句。很顯然,這樣的效率比較低。

最好的辦法是呼叫osql執行指令碼。(或者建立一個數據庫專案的cmd檔案,而cmd檔案建立資料庫的時候也是呼叫的osql)。

首先,我們新建一個ASP.NET Web應用程式,http://localhost/VbNetTest,並開啟VbNetTest專案

建立部署專案 1.         在“檔案”選單上指向“新增專案”,然後選擇“新建專案”。 2.         在“新增新專案”對話方塊中,選擇“專案型別”窗格中的“安裝和部署專案”,然後選擇“模板”窗格中的“Web 安裝專案”。在“名稱”框中鍵入 Test Installer。 3.         單擊“確定”關閉對話方塊。 4.         專案被新增到解決方案資源管理器中,並且檔案系統編輯器開啟。 5.         在“屬性”視窗中,選擇 ProductName 屬性,並鍵入 GCRM。 將 VbNetTest專案的輸出新增到部署專案中 1.         在“檔案系統編輯器”中,選擇“Web 應用程式”資料夾。在“操作”選單上,指向“新增”,然後選擇“專案輸出”。 2.         在“新增專案輸出組”對話方塊中,選擇“專案”下拉列表中的“VbNetTest”。 3.         單擊“確定”關閉對話方塊。 4.         從列表中選擇“主輸出”和“內容檔案”組,然後單擊“確定”。 建立安裝程式類 1.         在“檔案”選單上指向“新建”,然後選擇“專案”。 2.         在“新建專案”對話方塊中,選擇“專案型別”窗格中的“Visual Basic 專案”,然後選擇“模板”窗格中的“類庫”。在“名稱”框中鍵入 DBCustomAction。 3.         單擊“開啟”關閉對話方塊。 4.         從“專案”選單中選擇“新增新項”。 5.         在“新增新項”對話方塊中選擇“安裝程式類”。在“名稱”框中鍵入 DBCustomAction。 6.         單擊“確定”關閉對話方塊。 建立自定義安裝對話方塊 1.         在解決方案資源管理器中選擇“Test Installer”專案。在“檢視”選單上指向“編輯器”,然後選擇“使用者介面”。 2.         在使用者介面編輯器中,選擇“安裝”下的“啟動”節點。在“操作”選單上,選擇“新增對話方塊”。 3.         在“新增對話方塊”對話方塊中,選擇“許可協議”對話方塊,然後單擊“確定”關閉對話方塊。 4.         在“新增對話方塊”對話方塊中,選擇“文字框 (A)”對話方塊,然後單擊“確定”關閉對話方塊。 5.         在“操作”選單上,選擇“上移”。重複此步驟,直到“文字框 (A)”對話方塊位於“安裝資料夾”節點之上。 6.         在“屬性”視窗中,選擇 BannerText 屬性並鍵入:安裝資料庫.。 7.         選擇 BodyText 屬性並鍵入:安裝程式將在目標機器上安裝資料庫。 8.         選擇 Edit1Label 屬性並鍵入:資料庫名稱:。 9.         選擇 Edit1Property 屬性並鍵入 CUSTOMTEXTA1。 10.        選擇 Edit1Value 屬性並鍵入:GsCrm。 11.        選擇 Edit2Label 屬性並鍵入:伺服器名:。 12.        選擇 Edit2Property 屬性並鍵入 CUSTOMTEXTA2。 13.        選擇 Edit2Value 屬性並鍵入:(local)。 14.        選擇 Edit3Label 屬性並鍵入:使用者名稱:。 15.        選擇 Edit3Value 屬性並鍵入:sa。 16.        選擇 Edit3Property 屬性並鍵入 CUSTOMTEXTA3。 17.        選擇 Edit4Label 屬性並鍵入:密碼:。 18.        選擇 Edit4Property 屬性並鍵入 CUSTOMTEXTA4。 19.        選擇 Edit2Visible、Edit3Visible 和 Edit4Visible 屬性,並將它們設定為 False。 建立自定義操作 1.         在解決方案資源管理器中選擇“Test Installer”專案。在“檢視”選單上指向“編輯器”,然後選擇“自定義操作”。 2.         在自定義操作編輯器中選擇“安裝”節點。在“操作”選單上,選擇“新增自定義操作”。 3.         在“選擇專案中的項”對話方塊中,雙擊“應用程式資料夾”。 4.         選擇“主輸出來自 DBCustomAction(活動)”項,然後單擊“確定”關閉對話方塊。 5.         在“屬性”視窗中,選擇 CustomActionData 屬性並鍵入 /dbname=[CUSTOMTEXTA1] /server=[CUSTOMTEXTA2] /user=[CUSTOMTEXTA3] /pwd=[CUSTOMTEXTA4] /targetdir="[TARGETDIR]/"。 附/targetdir="[TARGETDIR]/"是安裝後的目標路徑,為了在DBCustomAction類中獲得安裝後的路徑,我們設定此引數。 另外,安裝後的路徑也可以通過Reflection得到:         Dim Asm As System.Reflection.Assembly = _         System.Reflection.Assembly.GetExecutingAssembly         MsgBox("Asm.Location") 新增檔案 1.         將SQL Server生成的指令碼檔案DB.sql新增到“Test Installer”專案 2.         將安裝檔案LisenceFile.rtf新增到“Test Installer”專案 3.         在使用者介面編輯器中,選擇許可協議,設定LisenceFile屬性為LisenceFile.rtf檔案 工程中的檔案 : 將程式碼新增到安裝程式類中,DBCustomAction.vb類

Imports System.ComponentModel

Imports System.Configuration.Install

Imports System.IO

Imports System.Reflection

<RunInstaller(True)> Public Class DBCustomAction

    Inherits System.Configuration.Install.Installer

#Region "元件設計器生成的程式碼"

    Public Sub New()

        MyBase.New()

        '該呼叫是元件設計器所必需的

        InitializeComponent()

        'InitializeComponent() 呼叫之後新增任何初始化

    End Sub

    'Installer 重寫dispose 以清理元件列表。

    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

        If disposing Then

            If Not (components Is NothingThen

                components.Dispose()

            End If

        End If

        MyBase.Dispose(disposing)

    End Sub

    Private components As System.ComponentModel.IContainer

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

#End Region

    '執行SQL 語句

    Private Sub ExecuteSql(ByVal conn As StringByVal DatabaseName As StringByVal Sql As String)

        Dim mySqlConnection As New SqlClient.SqlConnection(conn)

        Dim Command As New SqlClient.SqlCommand(Sql, mySqlConnection)

        Command.Connection.Open()

        Command.Connection.ChangeDatabase(DatabaseName)

        Try

            Command.ExecuteNonQuery()

        Finally

            'Close Connection

            Command.Connection.Close()

        End Try

    End Sub

    Public Overrides Sub Install(ByVal stateSaver As System.Collections.IDictionary)

        MyBase.Install(stateSaver)

        ' ------------------------建立資料庫-------------------------------------------------

        Try

            Dim connStr As String = String.Format("data source={0};user id={1};password={2};persist security info=false;packet size=4096"Me.Context.Parameters.Item("server"), Me.Context.Parameters.Item("user"),Me.Context.Parameters.Item("pwd"))

            '根據輸入的資料庫名稱建立資料庫

            ExecuteSql(connStr, "master""CREATE DATABASE " + Me.Context.Parameters.Item("dbname"))

            '呼叫osql執行指令碼

            Dim sqlProcess As New System.Diagnostics.Process

            sqlProcess.StartInfo.FileName = "osql.exe "

            sqlProcess.StartInfo.Arguments = String.Format(" -U {0} -P {1} -d {2} -i {3}db.sql",Me.Context.Parameters.Item("user"), Me.Context.Parameters.Item("pwd"),Me.Context.Parameters.Item("dbname"), Me.Context.Parameters.Item("targetdir"))

            sqlProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden

            sqlProcess.Start()

            sqlProcess.WaitForExit()  '等待執行

            sqlProcess.Close()

            '刪除指令碼檔案

            Dim sqlFileInfo As New System.IO.FileInfo(String.Format("{0}db.sql",Me.Context.Parameters.Item("targetdir")))

            If sqlFileInfo.Exists Then

                sqlFileInfo.Delete()

            End If

        Catch ex As Exception

            Throw ex

        End Try

        ' ---------------------將連線字串寫入Web.config-----------------------------------

        Try

            Dim FileInfo As System.IO.FileInfo = New System.IO.FileInfo(Me.Context.Parameters.Item("targetdir") &"/web.config")

            If Not FileInfo.Exists Then

                Throw New InstallException("沒有找到配置檔案")

            End If

            '例項化XML文件

            Dim XmlDocument As New System.Xml.XmlDocument

            XmlDocument.Load(FileInfo.FullName)

            '查詢到appSettings中的節點

            Dim Node As System.Xml.XmlNode

            Dim FoundIt As Boolean = False

            For Each Node In XmlDocument.Item("configuration").Item("appSettings")

                If Node.Name = "add" Then

                    If Node.Attributes.GetNamedItem("key").Value = "connString" Then

                        '寫入連線字串

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

                        Me.Context.Parameters.Item("server"), Me.Context.Parameters.Item("dbname"),Me.Context.Parameters.Item("user"), Me.Context.Parameters.Item("pwd"))

                        FoundIt = True

                    End If

                End If

            Next Node

            If Not FoundIt Then

                Throw New InstallException("web.Config 檔案沒有包含connString連線字串設定")

            End If

            XmlDocument.Save(FileInfo.FullName)

        Catch ex As Exception

            Throw ex

        End Try

    End Sub

End Class

最後編譯生成! 宣告:本文版權與解釋權歸李洪根所有,如需轉載,請保留完整的內容及此宣告。

相關推薦

no