#include"ifx.h"//不能移动////////////////////////////////////////////////////////////////////////////////用InstallShield进行ASP软件的打包和自动安装//
#include?"ifx.h"?//不能移动
//////////////////////////////////////////////////////////////////////////////
//?用InstallShield?进行?ASP?软件的打包和自动安装?
//?原创作者:?贾俊?(Jaron)
//?网址:?http://www.jiangdu.net
//?邮件:?[email?protected]
//?首次发表于网易,ChinaASP,ASPHouse
//////////////////////////////////////////////////////////////////////////////
//?功能:
//?1.文件复制
//?2.可选自动设置独立站点运行(设置IIS)
//?3.可选自动设置虚拟站点运行(设置IIS)
//?4.设置目录可读,可写及可运行脚本
//?5.自动创建ODBC
//?6.自动创建或附加MDF格式的SQL数据库?并优化
//?7.自动安装?ScriptEncode?解码程序
//?本文仅列出了?InstallShield?的?Script?部分,还有两个?VBS?文件及其他设置
//?测试过程中有任何问题,请来?http://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?=?"设置"[email?protected]_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信息服务及数据库服务器";
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);
StatusUpdate(ON,?100);
if?(svEdit1=TRUE)?then?
?CreateWebSite(szServerIPDefault,szServerPortDefault);//?开始创建?IIS?站点
endif;
if?(svEdit2=TRUE)?then?
?CreateVirtualDir("NetOA");//?开始创建?IIS?站点
endif;
CreateDataBase(svSQLsvr,svSQLusr,svSQLpwd);?//?创建和优化数据库

return?0;
end;
//////////////////////////////////////////////////////////////////////////////
//
//?函数:?OnFirstUIAfter
//
//?事件:?FirstUIAfter?event?is?sent?after?file?transfer,?when?installation?
//?is?run?for?the?first?time?on?given?machine.?In?this?event?handler?
//?installation?usually?displays?UI?that?will?inform?end?user?that
//?installation?has?been?completed?successfully.
//
///////////////////////////////////////////////////////////////////////////////
function?OnFirstUIAfter()
STRING?szTitle,szMsg1,?szMsg2,?szOption1,?szOption2,szCmdLine;
NUMBER?bOpt1,?bOpt2;

begin
//set_vod_liveaddress();

szCmdLine?=?SUPPORTDIR?^"SCE10CHS.EXE";
if?(LaunchAppAndWait(szCmdLine,?"?/q",WAIT)??MessageBox?("不能安装解码程序,请联系供应商.",SEVERE);
endif;

Disable(STATUSEX);
bOpt1?=?FALSE;
bOpt2?=?FALSE;
szMsg1?=?SdLoadString(IFX_SDFINISH_MSG1);
szMsg2?=?"请浏览本主机WEB服务器上的?"[email?protected]_NAME+"?虚拟目录?例:?http://Localhost/";?
szOption1?=?"";
szOption2?=?"";
szTitle?=?@PRODUCT_NAME+"安装完成";
SdFinishEx(szTitle,szMsg1,szMsg2,szOption1,szOption2,bOpt1,bOpt2);

szCmdLine?=?"http://LocalHost";?
//if?(LaunchApp(PROGRAMFILES?^"Internet?Explorer"^"IEXPLORE.EXE",?szCmdLine)?//MessageBox?("不能打开浏览器.",SEVERE);
//endif;

return?0;
end;


//////////////////////////
//?创建IIS站点
//////////////////////////
function?CreateWebSite(szServerIPDefault,szServerPortDefault)
STRING?szCmdLine,szWaitTxt;
begin
?if?((szServerIPDefault?=?"")?||?(szServerPortDefault?=?""))?then?
MessageBox?("您没有设定"[email?protected]_NAME+"运行的服务器IP地址或端口!!IIS信息服务设置失败!请自行创建IIS站点,并将主目录设为:"+TARGETDIR,SEVERE);
?else
szWaitTxt="?正在创建IIS和设置站点....";
SdShowMsg?(szWaitTxt,?TRUE);
Delay(2);
szCmdLine?=?SUPPORTDIR?^"mkw3site.vbs"+"?-r?"+TARGETDIR+"?-i?"+szServerIPDefault+"?-o?"+szServerPortDefault+"?-t?"[email?protected]_NAME;
if?(LaunchAppAndWait("WScript.exe",?szCmdLine,WAIT)?MessageBox?("不能建立WEB?虚拟目录,没有找到?WScript.exe?或执行脚本错误.",SEVERE);
endif;
SdShowMsg?(szWaitTxt,?FALSE);
?endif;
?return?0;
end;

//////////////////////////
//?创建虚拟目录
//////////////////////////
function?CreateVirtualDir(VirtualFolder)
STRING?szCmdLine,szWaitTxt;
begin
?if?(VirtualFolder?=?"")?then?
MessageBox?("没能读取到虚拟目录的名称!请联系系统供应商!"+TARGETDIR,SEVERE);
?else
szWaitTxt="?正在创建"[email?protected]_NAME+"的虚拟目录....";
SdShowMsg?(szWaitTxt,?TRUE);
Delay(2);
szCmdLine?=?SUPPORTDIR?^"mkwebdir.vbs?"+"?-w?1?-v?""+VirtualFolder+"",""+?TARGETDIR+"""?;
if?(LaunchAppAndWait("WScript.exe",?szCmdLine,WAIT)??MessageBox?("不能建立WEB?虚拟目录,没有找到?WScript.exe?或执行脚本错误.",SEVERE);
endif;
SdShowMsg?(szWaitTxt,?FALSE);
?endif;
?return?0;
end;

//////////////////////////
//?创建和优化数据库
//////////////////////////
function?CreateDataBase(svSQLsvr,svSQLusr,svSQLpwd)
STRING?szCmdLine,szWaitTxt;
begin
?szWaitTxt="?正在创建"[email?protected]_NAME+"所需数据库....";
?SdShowMsg?(szWaitTxt,?TRUE);
?Delay(2);
?szCmdLine?=?"/U?"+svSQLusr+"?/P?"+svSQLpwd+"?/S?"+svSQLsvr+"?/Q?"exec?sp_attach_db?N'OASystem'?,?N'"+SUPPORTDIR?^"OASystem_data.mdf'"";
?if?(LaunchAppAndWait("osql.exe",?szCmdLine,WAIT)?MessageBox?("数据库创建失败!请确您的系统中已安装?Microsoft?SQL?Server?2000.?如仍无法解决,请联系系统供应商!",SEVERE);
?endif;
?SdShowMsg?(szWaitTxt,?FALSE);
?szWaitTxt="?正在优化"[email?protected]_NAME+"系统数据库....";
?SdShowMsg?(szWaitTxt,?TRUE);
?Delay(2);
?szCmdLine?=?"/U?"+svSQLusr+"?/P?"+svSQLpwd+"?/S?"+svSQLsvr+"?/Q?"use?OASystem?;?exec?sp_updatestats"";
?if?(LaunchAppAndWait("osql.exe",?szCmdLine,WAIT)?MessageBox?("数据库优化失败!您可以在?sql查询分析器中执行?use?OASystem?;?exec?sp_updatestats?完成!",SEVERE);
?endif;
?SdShowMsg?(szWaitTxt,?FALSE);
?return?0;
end;
最新资讯
涨价,就能让共享单车盈利?

涨价,就能让共享单车盈

虽然不打价格战早已是共享单车行业的共识,但节省成本、
试点5G版“场景革命”  银行竞相上演变形记

试点5G版“场景革命”

银行是一个地方,还是一种行为?
游戏厂商出海下半场:赚钱在欧美 赚吆喝在东南亚

游戏厂商出海下半场:赚

2018年出海成为国内众多游戏公司的“标配”。
国家人工智能开放创新平台将迎来新一轮扩围

国家人工智能开放创新

国家人工智能开放创新平台即将迎来新一轮扩围。

hg3028vip

豆瓣书店,已营业14年,62平方米,2万册书,每天固定早9点开门
“傍上”腾讯 任天堂三战中国市场

“傍上”腾讯 任天堂

时隔4个月,任天堂与腾讯的合作终于有了新消息。
最新文章
rational对象脚本命令

rational对象脚本命令

对象脚本命令使用robot录制的脚本在实际的测试使用中,
用CE5.2版找武林外传一级基址的方法(图文教程)

用CE5.2版找武林外传

好帖子,正好解决了我的遇到的瓶颈问题,收藏一下
可与Spreadsheets媲美的在线表格系统:EditGrid

可与Spreadsheets媲美

EditGrid网址:http://www.editgrid.com/home有中文版
在InstallShield中引用WINSOCK 的示例代码

在InstallShield中引

通过以下示例,InstallShield可以用WINSOCK获取IP地址,可
用InstallShield检测是否安装IIS的脚本

用InstallShield检测

可以通过检测以下两个注册表值来检查是否安装了IISHKE
Erlang IO编程之文件目录操作常用方法小结

Erlang IO编程之文件

这篇文章主要介绍了ErlangIO编程之文件目录操作常用方