VS2005网站和SQL一起打包部署安装心得【转载】

永久地址: http://blog.breakN.net/feed.asp?q=comment&id=397 引用地址: http://blog.breakN.net/trackback.asp?id=397

[ 2007-12-04 09:23:43 | 作者: 景裔 ]

　　本文原创，转载请注明出处
　　最近临时搞了个办证中心的小东东（我现在公司就是搞办证中心网站及软件的），开发完了得找人过去安装或是把网站文件什么的打包发给对方安装。项目分网站文件及SQL数据两部门，也就是说在部署的时候得同时安装网站文件及在SQL数据库中建好相关表、视图等内容。
　　我使用了VS2005中的安装和部署项目中的“Web安装项目”，大概使用了下发现部署网站相当方便，但部署SQL数据就得在原基础上进行自定义操作了。这东东以前没搞过，比较没有头绪，找了不少资料：
　　带SQL数据库操作的安装部署视频教程
　　视频教程带的原码(里面少个WEB项目，想研究的自己添加个WEB项目，然后里面随便加个页面就行了)
　　视频教程带的PDF
　　视频教程带的QA
　　上面的教程看过后基本就对安装部署的自定义操作比较了解了，然后就可以按以上示例进行动手操作了。
　　我在网上找到的比值得参考的一个全程教学：如何用VS2005制作Web安装程序 －徐智雄的BLOG(附带:用VS2005制作网页对IIS进行操作)，这里写的更详细点，我这里也就偷偷懒不把全程写一回了，把一些值得注意的地方写下

　　1、在绑定自定义安装对话框中参数时，如下图所示的地方：




　　注意：

view plaincopy to clipboardprint?
/DBServer="[DBSERVER]" /DBName="[DBNAME]" /UserName="[DBUSERNAME]" /Password="[DBPASSWORD]" /targetdir="[TARGETDIR]\"

/DBServer="[DBSERVER]" /DBName="[DBNAME]" /UserName="[DBUSERNAME]" /Password="[DBPASSWORD]" /targetdir="[TARGETDIR]\"

　　每个参数之间得有空格，/targetdir="[TARGETDIR]\"到时候得到的为当前安装路径字串并在最后面添加一个"\"，当然也可以直接中/targetdir="[TARGETDIR]"。在写这些参数的时候推荐以/DBServer="[DBSERVER]"这种格式，上面的教程都省略写成/DBServer=[DBSERVER]

　　2、执行SQL语句时那个SQL.TXT要注意的地方
　　注意：SQL.TXT（可以是其它文件名）的编码要为Unicode，文件中不要包含"GO"，如果视图等内容要求必须是批查询中的第一条语句的SQL语句得用EXEC('语句内容')来处理，要不会报错的。如：

view plaincopy to clipboardprint?
exec('
CREATE TABLE [dbo].[py_Resume] (
[R_ID] [int] IDENTITY (1, 1) NOT NULL ,
[R_Content] [ntext] COLLATE Chinese_PRC_CI_AS NOT NULL ,
[R_DateTime] [datetime] NULL ,
[C_ID] [int] NOT NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]

CREATE TABLE [dbo].[py_photo] (
[PhotoID] [int] IDENTITY (1, 1) NOT NULL ,
[WorkersID] [nvarchar] (4) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[PhotoPath] [nvarchar] (100) COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY]
')

exec('
CREATE TABLE [dbo].[py_Resume] (
[R_ID] [int] IDENTITY (1, 1) NOT NULL ,
[R_Content] [ntext] COLLATE Chinese_PRC_CI_AS NOT NULL ,
[R_DateTime] [datetime] NULL ,
[C_ID] [int] NOT NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
CREATE TABLE [dbo].[py_photo] (
[PhotoID] [int] IDENTITY (1, 1) NOT NULL ,
[WorkersID] [nvarchar] (4) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[PhotoPath] [nvarchar] (100) COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY]
')

　　

我折腾了不少时间才执行成功的SQL（大家好参考下）
　　如果想在类似查询分析器那里比较方便的进行执行SQL的话可以参考以下代码段，这个我没试过，是调用osql.exe来执行SQL的，应该不会有像SqlCommand执行的问题了

view plaincopy to clipboardprint?
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.start
info.filename = "osql.exe "
sqlprocess.start
info.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.start
info.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

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.start
info.filename = "osql.exe "
sqlprocess.start
info.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.start
info.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

　　3、关于调试的问题
　　这个问题我找了很久不知道怎么调，不过有个笨办法，使用try...catch的方式使用MessageBox把出错信息显示出来，我就是这么调的，折腾了一整天，呵呵。

　　相关参考代码记录

view plaincopy to clipboardprint?
#region WriteWebConfig 修改web.config的连接数据库的字符串

private bool WriteWebConfig()

{

System.IO.FileInfo FileInfo = new System.IO.FileInfo(this.Context.Parameters["targetdir"] + "/web.config");

if (!FileInfo.Exists)

{

throw new InstallException("Missing config file :" + this.Context.Parameters["targetdir"] + "/web.config");

}

System.Xml.XmlDocument xmlDocument = new System.Xml.XmlDocument();

xmlDocument.Load(FileInfo.FullName);

bool FoundIt = false;

foreach (System.Xml.XmlNode Node in xmlDocument["configuration"]["appSettings"])

{

if (Node.Name == "add")

{

if (Node.Attributes.GetNamedItem("key").Value == "ConnectionString")

{

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

FoundIt = true;

}

}

}

if (!FoundIt)

{

throw new InstallException("Error when writing the config file: web.config");

}

xmlDocument.Save(FileInfo.FullName);

return FoundIt;

}

#endregion

#region WriteRegistryKey 写注册表。安装部署中，直接有一个注册表编辑器，可以在那里面设置。

private void WriteRegistryKey()

{

// 写注册表

RegistryKey hklm = Registry.LocalMachine;

RegistryKey cqfeng = hklm.OpenSubKey("SOFTWARE", true);

RegistryKey F = cqfeng.CreateSubKey("cqfeng");

F.SetValue("FilePath", "kkkk");

}

#endregion
#region Connect 连接IIS服务器

public bool Connect()

{

if (iis == null)

return false;

try

{

_iisServer = new DirectoryEntry("IIS:" + iis + "/W3SVC/1");

_target = iis;

_connection = new ConnectionOptions();

_scope = new ManagementScope(@"\\" + iis + @"\root\MicrosoftIISV2", _connection);

_scope.Connect();

}

catch

{

return false;

}

return IsConnected();

}

public bool IsConnected()

{

if (_target == null || _connection == null || _scope == null) return false;

return _scope.IsConnected;

}

#endregion

#region IsWebSiteExists 判断网站是否已经存在

public bool IsWebSiteExists(string serverID)

{

try

{

string siteName = "W3SVC/" + serverID;

ManagementObjectSearcher searcher = new ManagementObjectSearcher(_scope, new ObjectQuery("SELECT * FROM IIsWebServer"), null);

ManagementObjectCollection webSites = searcher.Get();

foreach (ManagementObject webSite in webSites)

{

if ((string)webSite.Properties["Name"].Value == siteName)

return true;

}

return false;

}

catch

{

return false;

}

}

#endregion

#region GetNextOpenID 获得一个新的ServerID

private int GetNextOpenID()

{

DirectoryEntry iisComputer = new DirectoryEntry("IIS:localhost/w3svc");

int nextID = 0;

foreach (DirectoryEntry iisWebServer in iisComputer.Children)

{

string sname = iisWebServer.Name;

try

{

int name = int.Parse(sname);

if (name > nextID)

{

nextID = name;

}

}

catch

{

}

}

return ++nextID;

}

#endregion

#region CreateWebsite 添加网站

public string CreateWebSite(string serverID, string serverComment, string defaultVrootPath, string HostName, string IP, string Port)

{

try

{

ManagementObject oW3SVC = new ManagementObject(_scope, new ManagementPath(@"IIsWebService='W3SVC'"), null);

if (IsWebSiteExists(serverID))

{

return "Site Already Exists...";

}

ManagementBaseObject inputParameters = oW3SVC.GetMethodParameters("CreateNewSite");

ManagementBaseObject[] serverBinding = new ManagementBaseObject[1];

serverBinding[0] = CreateServerBinding(HostName, IP, Port);

inputParameters["ServerComment"] = serverComment;

inputParameters["ServerBindings"] = serverBinding;

inputParameters["PathOfRootVirtualDir"] = defaultVrootPath;

inputParameters["ServerId"] = serverID;

ManagementBaseObject outParameter = null;

outParameter = oW3SVC.InvokeMethod("CreateNewSite", inputParameters, null);

// 启动网站

string serverName = "W3SVC/" + serverID;

ManagementObject webSite = new ManagementObject(_scope, new ManagementPath(@"IIsWebServer='" + serverName + "'"), null);

webSite.InvokeMethod("Start", null);

return (string)outParameter.Properties["ReturnValue"].Value;

}

catch (Exception ex)

{

return ex.Message;

}

}

public ManagementObject CreateServerBinding(string HostName, string IP, string Port)

{

try

{

ManagementClass classBinding = new ManagementClass(_scope, new ManagementPath("ServerBinding"), null);

ManagementObject serverBinding = classBinding.CreateInstance();

serverBinding.Properties["Hostname"].Value = HostName;

serverBinding.Properties["IP"].Value = IP;

serverBinding.Properties["Port"].Value = Port;

serverBinding.Put();

return serverBinding;

}

catch

{

return null;

}

}

#endregion

Tag标签: vs打包 部署