#include"ifx.h"//不能移动
//////////////////////////////////////////////////////////////////////////////
//用InstallShield进行ASP软件的打包和自动安装
//原创作者:贾俊(Jaron)
//网址:http://pletedsuccessfully.
//
///////////////////////////////////////////////////////////////////////////////
functionOnFirstUIAfter()
STRINGszTitle,szMsg1,szMsg2,szOption1,szOption2,szCmdLine;
NUMBERbOpt1,bOpt2;

begin
//set_vod_liveaddress();

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

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

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

return0;
end;


//////////////////////////
//创建IIS站点
//////////////////////////
functionCreateWebSite(szServerIPDefault,szServerPortDefault)
STRINGszCmdLine,szWaitTxt;
begin
if((szServerIPDefault="")||(szServerPortDefault=""))then
MessageBox("您没有设定"+@PRODUCT_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"+@PRODUCT_NAME;
if(LaunchAppAndWait("WScript.exe",szCmdLine,WAIT)<0)then
MessageBox("不能建立WEB虚拟目录，没有找到WScript.exe或执行脚本错误.",SEVERE);
endif;
SdShowMsg(szWaitTxt,FALSE);
endif;
return0;
end;

//////////////////////////
//创建虚拟目录
//////////////////////////
functionCreateVirtualDir(VirtualFolder)
STRINGszCmdLine,szWaitTxt;
begin
if(VirtualFolder="")then
MessageBox("没能读取到虚拟目录的名称！请联系系统供应商！"+TARGETDIR,SEVERE);
else
szWaitTxt="正在创建"+@PRODUCT_NAME+"的虚拟目录....";
SdShowMsg(szWaitTxt,TRUE);
Delay(2);
szCmdLine=SUPPORTDIR^"mkwebdir.vbs"+"-w1-v\""+VirtualFolder+"\",\""+TARGETDIR+"\"";
if(LaunchAppAndWait("WScript.exe",szCmdLine,WAIT)<0)then
MessageBox("不能建立WEB虚拟目录，没有找到WScript.exe或执行脚本错误.",SEVERE);
endif;
SdShowMsg(szWaitTxt,FALSE);
endif;
return0;
end;

//////////////////////////
//创建和优化数据库
//////////////////////////
functionCreateDataBase(svSQLsvr,svSQLusr,svSQLpwd)
STRINGszCmdLine,szWaitTxt;
begin
szWaitTxt="正在创建"+@PRODUCT_NAME+"所需数据库....";
SdShowMsg(szWaitTxt,TRUE);
Delay(2);
szCmdLine="/U"+svSQLusr+"/P"+svSQLpwd+"/S"+svSQLsvr+"/Q\"execsp_attach_dbN'OASystem',N'"+SUPPORTDIR^"OASystem_data.mdf'\"";
if(LaunchAppAndWait("osql.exe",szCmdLine,WAIT)<0)then
MessageBox("数据库创建失败！请确您的系统中已安装MicrosoftSQLServer2000.如仍无法解决，请联系系统供应商！",SEVERE);
endif;
SdShowMsg(szWaitTxt,FALSE);
szWaitTxt="正在优化"+@PRODUCT_NAME+"系统数据库....";
SdShowMsg(szWaitTxt,TRUE);
Delay(2);
szCmdLine="/U"+svSQLusr+"/P"+svSQLpwd+"/S"+svSQLsvr+"/Q\"useOASystem;execsp_updatestats\"";
if(LaunchAppAndWait("osql.exe",szCmdLine,WAIT)<0)then
MessageBox("数据库优化失败！您可以在sql查询分析器中执行useOASystem;execsp_updatestats完成！",SEVERE);
endif;
SdShowMsg(szWaitTxt,FALSE);
return0;
end;