欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

用InstallShield 进行 ASP 软件的打包和自动安装

程序员文章站 2022-04-15 16:25:09
#include "ifx.h" //不能移动////////////////////////////////////////////////////////////////////////////...
#include "ifx.h" //不能移动
//////////////////////////////////////////////////////////////////////////////
// 用installshield 进行 asp 软件的打包和自动安装
// 原创作者: 贾俊 (jaron)
// 网址: https://www.jiangdu.net
// 邮件: jaron@jdinfo.net
// 首次发表于网易,chinaasp,asphouse
//////////////////////////////////////////////////////////////////////////////
// 功能:
// 1.文件复制
// 2.可选自动设置独立站点运行(设置iis)
// 3.可选自动设置虚拟站点运行(设置iis)
// 4.设置目录可读,可写及可运行脚本
// 5.自动创建odbc
// 6.自动创建或附加mdf格式的sql 并优化
// 7.自动安装 scriptencode 解码程序
// 本文仅列出了 installshield 的 script 部分,还有两个 vbs 文件及其他设置
// 测试过程中有任何问题,请来 https://www.jiangdu.net/bbs 空间版 讨论
//////////////////////////////////////////////////////////////////////////////
prototype createdatabase(string,string,string);
prototype createwebsite(string,string); // 创建 iis 站点
prototype createvirtualdir(string); // 创建虚拟目录

//////////////////////////////////////////////////////////////////////////////
//
// 函数: onfirstuibefore
//
// 事件: firstuibefore event is sent when installation is run for the first
// time on given machine. in the handler installation usually displays
// ui allowing end user to specify installation parameters. after this
// function returns, componenttransferdata is called to perform file
// transfer.
//
///////////////////////////////////////////////////////////////////////////////
function onfirstuibefore()
number nresult,nsetuptype,nopt,svedit1,svedit2;
string sztitle, szmsg,szbmppath;
string szlicensefile, szquestion;
string szserverip,szserverport,szserveripdefault,szserverportdefault;
string szsqlsvr,szsqlusr,szsqlpwd,svsqlsvr,svsqlusr,svsqlpwd;
string svname, svcompany, svserial;
string szfile,sztargetpath,szdir,szfolder;
string szcomponents, sztargetdir;
string szfield1,szfield2;
string szdefault,svresult;
object piisobj;
list list,liststartcopy;
number nlevel,nvsize;
begin

szbmppath="c:"^"temp"^"left.bmp";
dialogsetinfo (dlg_info_altimage, szbmppath, true); // 设置左边的图片
//to do: if you want to enable background, window title, and caption bar title
//settitle( @title_main, 24, white );
//settitle( @title_captionbar, 0, backgroundcaption );
//enable( fullwindowmode );
//enable( background );
//setcolor(background,rgb (0, 128, 128));

//默认值设定
targetdir = "c:"^"inetpub"^"jaronsoft"^@folder_name;
szdir = targetdir;
shell_object_folder = @folder_name;
svname = "试用版用户";
svcompany = "jdinfo network";
svserial = "111-1111111";

dlg_start:
// beginning of dialogs label

dlg_sdwelcome: //欢迎 对话框
sztitle = "欢迎进入";
szmsg = "";
nresult = sdwelcome( sztitle, szmsg );
if (nresult = back) goto dlg_start;

dlg_sdlicense://软件许可协议 对话框
szlicensefile = supportdir ^ "license.txt";
sztitle = "许可协议";
szmsg = "";
szquestion = "";
nresult = sdlicense( sztitle, szmsg, szquestion, szlicensefile );
if (nresult = back) goto dlg_sdwelcome;

dlg_sdshowinfolist://readme文件 对话框
szfile = supportdir ^ "infolist.txt";
list = listcreate( stringlist );
listreadfromfile( list, szfile );
sztitle = "readme";
szmsg = "";
nresult = sdshowinfolist( sztitle, szmsg, list );
listdestroy( list );
if (nresult = back) goto dlg_sdlicense;

dlg_sdregisteruserex://用户信息 对话框
szmsg = "";
sztitle = "用户信息";
nresult = sdregisteruserex( sztitle, szmsg, svname, svcompany, svserial );
if (nresult = back) goto dlg_sdshowinfolist;
//检查序列号
//if (chk_serial(svcompany, svserial)<0) then
//goto dlg_sdregisteruserex;
//endif;
//检查序列号完毕
dlg_sdaskdestpath://安装位置 对话框
sztitle = "检查序列号";
szmsg = "";
nresult = sdaskdestpath( sztitle, szmsg, szdir, 0 );
targetdir = szdir;
if (nresult = back) goto dlg_sdregisteruserex;

dlg_setuptype: //安装类型 对话框
nsetuptype = typical;
sztitle = "安装类型";
szmsg = "请选择您需要按哪种方式安装";
nresult = setuptype ( sztitle , szmsg , "" , nsetuptype , 0 );
if (nresult = back) then
goto dlg_sdaskdestpath;
else
nsetuptype = nresult;
if (nsetuptype != custom) then
sztargetpath = targetdir;
nvsize = 0;
componentcomparesizerequired(media,sztargetpath,nvsize);
if (nvsize != 0) then
messagebox( szsdstr_notenoughspace, warning );
goto dlg_setuptype;
endif;
endif;
endif;

dlg_sdcomponenttree: //对话框
if ((nresult = back) && (nsetuptype != custom)) goto dlg_setuptype;
sztitle = "对话框";
szmsg = "";
sztargetdir = targetdir;
szcomponents = "";
nlevel = 2;
if (nsetuptype = custom) then
nresult = sdcomponenttree(sztitle, szmsg, sztargetdir, szcomponents, nlevel);
if (nresult = back) goto dlg_setuptype;
endif;

dlg_sdselectfolder://对话框
szfolder = shell_object_folder;
sztitle = "文件夹";
szmsg = "";
nresult = sdselectfolder( sztitle, szmsg, szfolder );
shell_object_folder = szfolder;
if (nresult = back) goto dlg_sdcomponenttree;


dlg_selmode ://设置数据库服务器 对话框
sztitle = "设置"+@product_name+"的运行模式";
szmsg = "请选择软件运行的方式,极力推荐使用独立站点方式运行";
szfield1="独立站点方式运行(自动创建新站点)";
szfield2="虚拟目录方式运行(自动创建虚拟目录)";
svedit1=true;
svedit2=false;
setdialogtitle(dlg_ask_text,sztitle);
//dialogsetinfo ( dlg_info_checkselection, "", 1);
nopt = exclusive ;
nresult = askoptions (nopt,szmsg,szfield1,svedit1,szfield2,svedit2);
if (nresult = back) goto dlg_sdselectfolder;
if (svedit1=false) goto dlg_sdstartcopy;

dlg_asktext ://设置数据库服务器 对话框
sztitle = "设置iis信息服务及数据库服务浓ky"/kf/ware/vc/" target="_blank" class="keylink">vc=";
szmsg = "现在开始设置iis";
szquestion=" 请输入本服务器的主机名或ip地址,安装程序将按照您提供的资料设置iis信息服务。如果您没有填写,安装程序将自动跳过站点的创建!";
szserverip="地址:";
szserverport="端口:";
szserveripdefault="192.168.0.1";
szserverportdefault="80";
setdialogtitle(dlg_ask_text,sztitle);
nresult=sdshowdlgedit2 (sztitle, szquestion,szserverip,szserverport,szserveripdefault,szserverportdefault);
if (nresult = back) goto dlg_selmode;

dlg_asksql ://设置数据库服务器 对话框
sztitle = "设置数据库";
szmsg = "现在开始设置microsoft sql server数据库系统";
szquestion=" 请输入sql server数据库服务器的用户名和密码,安装程序将按照您上步提供的ip地址和下面的用户名和密码创建和优化数据库系统。如果您提供的用户名和密码是错误的,安装程序将自动跳过数据的设置!";
szsqlsvr="主机名:";
szsqlusr="用户名:";
szsqlpwd="密码:";
svsqlsvr="localhost";
svsqlusr="sa";
szsqlpwd="";
setdialogtitle(dlg_ask_text,sztitle);
nresult=sdshowdlgedit3 (sztitle, szquestion,szsqlsvr,szsqlusr,szsqlpwd,svsqlsvr,svsqlusr,svsqlpwd);
if (nresult = back) goto dlg_selmode;

dlg_sdstartcopy://开始复制文件 对话框
sztitle = "开始复制文件";
szmsg = "点击下一步开始复制文件";
liststartcopy = listcreate( stringlist );
listaddstring(liststartcopy,"用户名:"+svname,after);
listaddstring(liststartcopy,"公司名称:"+svcompany,after);
listaddstring(liststartcopy,"序列号:"+svserial,after);
listaddstring(liststartcopy,"目标目录:"+szdir,after);
if (svedit1=true) then
listaddstring(liststartcopy,"ip地址:"+szserveripdefault,after);
listaddstring(liststartcopy,"端口号:"+szserverportdefault,after);
endif;
listaddstring(liststartcopy,"请确认您填写的信息,按下一步开始复制文件",after);
nresult = sdstartcopy( sztitle, szmsg, liststartcopy );
listdestroy(liststartcopy);
if (nresult = back) goto dlg_asktext;
// setup default status
setstatuswindow(0, "");
enable(statusex);