日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

ASP.NET安裝部署代碼實現(xiàn)之添加文件簡介：

創(chuàng)新互聯(lián)建站服務項目包括翁牛特網(wǎng)站建設、翁牛特網(wǎng)站制作、翁牛特網(wǎng)頁制作以及翁牛特網(wǎng)絡營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關系等，向廣大中小型企業(yè)、政府機構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，翁牛特網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟效益。目前，我們服務的客戶以成都為中心已經(jīng)輻射到翁牛特省份的部分城市，未來相信會繼續(xù)擴大服務區(qū)域并繼續(xù)獲得客戶的支持與信任！

1. 將SQL Server生成的腳本文件db.sql添加到“Test Installer”項目

2. 將安裝文件LisenceFile.rtf添加到“Test Installer”項目

3. 在用戶界面編輯器中，選擇許可協(xié)議，設置LisenceFile屬性為LisenceFile.rtf文件

以下的ASP.NET安裝部署代碼實現(xiàn)是整個部署的最重要的一部分了

將代碼添加到安裝程序類中，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 "組件設計器生成的代碼 "  
  
  
  
  
 
  
  
  
  
public Sub New()Sub New()  
  
  
  
  
 
  
  
  
  
mybase.new()  
  
  
  
  
 
  
  
  
  
'該調(diào)用是組件設計器所必需的  
  
  
  
  
 
  
  
  
  
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 語句  
  
  
  
  
 
  
  
  
  
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安裝部署代碼實現(xiàn)建立數(shù)據(jù)庫------------  
  
  
  
  
 
  
  
  
  
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ù)庫名稱建立數(shù)據(jù)庫  
  
  
  
  
 
  
  
  
  
executesql(connstr, "master",   
  
  
  
  
"CREATE DATABASE " + Me.Context.Parameters.Item("dbname"))  
  
  
  
  
 
  
  
  
  
'ASP.NET安裝部署代碼實現(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安裝部署代碼實現(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安裝部署代碼實現(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("沒有找到配置文件")  
  
  
  
  
 
  
  
  
  
end If  
  
  
  
  
 
  
  
  
  
'實例化xml文檔  
  
  
  
  
 
  
  
  
  
dim XmlDocument As New System.Xml.XmlDocument  
  
  
  
  
 
  
  
  
  
xmldocument.load(fileinfo.fullname)  
  
  
  
  
 
  
  
  
  
'查找到appsettings中的節(jié)點  
  
  
  
  
 
  
  
  
  
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安裝部署代碼實現(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 文件沒有包含connString連接字符串設置")  
  
  
  
  
 
  
  
  
  
end If  
  
  
  
  
 
  
  
  
  
xmldocument.save(fileinfo.fullname)  
  
  
  
  
 
  
  
  
  
catch ex As Exception  
  
  
  
  
 
  
  
  
  
throw ex  
  
  
  
  
 
  
  
  
  
end Try  
  
  
  
  
 
  
  
  
  
end Sub  
  
  
  
  
 
  
  
  
  
end Class 
 
 
 
 

有點難度的就是那個Process類，它調(diào)用了osql.exe程序，來執(zhí)行sql語句osql -U,-P,,-d,-i。

web.config的修改代碼是利用xml的語法實現(xiàn)。不是很難理解。

***編譯生成！如圖：

安裝界面：如圖

ASP.NET安裝部署代碼實現(xiàn)的基本情況就向你介紹到這里，希望對你學習ASP.NET安裝部署有所幫助。

本文名稱：ASP.NET安裝部署代碼實現(xiàn)
文章地址：http://m.5511xx.com/article/cojgpcs.html