.NET平台下WEB應用程式的部署的例子

來源:互聯網
上載者:User
web|程式

NET平台下WEB應用程式的部署(安裝資料庫和自動設定)

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

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

l 安裝資料庫

微軟msdn上介紹過在部署應用程式的時候建立資料庫。如:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vsintro7/html/vxwlkWalkthroughUsingCustomActionToCreateDatabaseDuringInstallation.asp

這種方法是建立一個安裝程式類,在安裝程式類中調用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 Nothing) Then

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 String, ByVal DatabaseName As String, ByVal 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

最後編譯產生!



相關文章

Cloud Intelligence Leading the Digital Future

Alibaba Cloud ACtivate Online Conference, Nov. 20th & 21st, 2019 (UTC+08)

Register Now >

Starter Package

SSD Cloud server and data transfer for only $2.50 a month

Get Started >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。