建站
咨詢
售后
建站咨詢
新聞中心
這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
ASP.NET安裝部署代碼實(shí)現(xiàn)
ASP.NET安裝部署代碼實(shí)現(xiàn)之添加文件簡(jiǎn)介：
創(chuàng)新互聯(lián)建站服務(wù)項(xiàng)目包括翁牛特網(wǎng)站建設(shè)、翁牛特網(wǎng)站制作、翁牛特網(wǎng)頁(yè)制作以及翁牛特網(wǎng)絡(luò)營(yíng)銷策劃等。多年來(lái)，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢(shì)、行業(yè)經(jīng)驗(yàn)、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，翁牛特網(wǎng)站推廣取得了明顯的社會(huì)效益與經(jīng)濟(jì)效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到翁牛特省份的部分城市，未來(lái)相信會(huì)繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！
1. 將SQL Server生成的腳本文件db.sql添加到“Test Installer”項(xiàng)目
2. 將安裝文件LisenceFile.rtf添加到“Test Installer”項(xiàng)目
3. 在用戶界面編輯器中，選擇許可協(xié)議，設(shè)置LisenceFile屬性為L(zhǎng)isenceFile.rtf文件
以下的ASP.NET安裝部署代碼實(shí)現(xiàn)是整個(gè)部署的最重要的一部分了
將代碼添加到安裝程序類中，dbcustomaction.vb類
- Imports System.ComponentModel
- imports System.Configuration.Install
- imports System.IO
- imports System.Reflection
- ﹤runinstaller(true)﹥ Public Class DBCustomActionClass DBCustomAction
- inherits System.Configuration.Install.Installer
- #region "組件設(shè)計(jì)器生成的代碼 "
- public Sub New()Sub New()
- mybase.new()
- '該調(diào)用是組件設(shè)計(jì)器所必需的
- initializecomponent()
- '在 InitializeComponent() 調(diào)用之后添加任何初始化
- end Sub
- ' Installer 重寫 dispose 以清理組件列表。
- protected Overloads Overrides Sub Dispose()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()Sub InitializeComponent()
- end Sub
- #end Region
- '執(zhí)行sql 語(yǔ)句
- private Sub ExecuteSql()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()Sub Install(ByVal stateSaver
- As System.Collections.IDictionary)
- MyBase.Install(stateSaver)
- ' ----------ASP.NET安裝部署代碼實(shí)現(xiàn)建立數(shù)據(jù)庫(kù)------------
- 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"))
- '根據(jù)輸入的數(shù)據(jù)庫(kù)名稱建立數(shù)據(jù)庫(kù)
- executesql(connstr, "master",
- "CREATE DATABASE " + Me.Context.Parameters.Item("dbname"))
- 'ASP.NET安裝部署代碼實(shí)現(xiàn)之調(diào)用osql執(zhí)行腳本
- 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() '等待執(zhí)行
- sqlprocess.close()
- 'ASP.NET安裝部署代碼實(shí)現(xiàn)之刪除腳本文件
- 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
- ' -ASP.NET安裝部署代碼實(shí)現(xiàn)之將連接字符串寫入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("沒(méi)有找到配置文件")
- end If
- '實(shí)例化xml文檔
- dim XmlDocument As New System.Xml.XmlDocument
- xmldocument.load(fileinfo.fullname)
- '查找到appsettings中的節(jié)點(diǎn)
- 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
- 'ASP.NET安裝部署代碼實(shí)現(xiàn)之寫入連接字符串
- 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 文件沒(méi)有包含connString連接字符串設(shè)置")
- end If
- xmldocument.save(fileinfo.fullname)
- catch ex As Exception
- throw ex
- end Try
- end Sub
- end Class
有點(diǎn)難度的就是那個(gè)Process類，它調(diào)用了osql.exe程序，來(lái)執(zhí)行sql語(yǔ)句osql -U,-P,,-d,-i。
web.config的修改代碼是利用xml的語(yǔ)法實(shí)現(xiàn)。不是很難理解。
***編譯生成！如圖：
安裝界面：如圖
ASP.NET安裝部署代碼實(shí)現(xiàn)的基本情況就向你介紹到這里，希望對(duì)你學(xué)習(xí)ASP.NET安裝部署有所幫助。
新聞標(biāo)題：ASP.NET安裝部署代碼實(shí)現(xiàn)
網(wǎng)頁(yè)網(wǎng)址：http://www.5511xx.com/article/cojgpcs.html
