用InstallShield9 進行ASP軟體的打包和資料庫自動安裝
來源：互聯網
上載者：User
//近期公司用ASP+SQL開發辦公自動化OA，需要製作安裝程式發行，此指令碼是用IS9.0製作，以此共用，與各同仁交流學習
#define BITMAP_ID 1
#include "ifx.h" //不能移動
prototype CreateWebSite(STRING,STRING); // 建立 IIS 網站
prototype CreateVirtualDir(STRING); // 建立虛擬目錄
prototype CreateDataBase(STRING,STRING,STRING);//建立SQL資料庫
prototype CheckIIS(); // 樣本：檢查系統是否安裝IIS
STRING TMP_PRODUCT_NAME,TMP_PRODUCT_VERSION,TMP_COMPANY_NAME,TMP_PRODUCT_KEY,TMP_TITLE_CAPTIONBAR;
STRING globalstr,destdir,destsvr,destsa,destpw;
NUMBER nvFileHandle,nvFileHandlebak,asaline;
BOOL iscreatedb;
STRING nSetupType,szSQLsvr,szSQLusr,szSQLpwd,szSQLsvrDefault,szSQLusrDefault,szSQLpwdDefault;
STRING szADsvr,szADusr,szADpwd,szADsvrDefault,szADusrDefault,szADpwdDefault;
STRING szADDomain,szADOU,szADDomainDefault,szADOUDefault,ADDC1;
STRING svName, svCompany, svSerial;
function OnFirstUIBefore()
NUMBER nResult,nOpt,svEdit1,svEdit2;
STRING szTitle, szMsg,szBmpPath;
STRING szLicenseFile, szQuestion;
STRING szServerIP,szServerPort,szServerIPDefault,szServerPortDefault;
STRING szFile,szTargetPath,szDir,szfolder;
STRING szComponents, szTargetdir;
STRING szField1,szField2;
STRING szDefault,svResult;
OBJECT piisObj;
LIST list,listStartCopy;
NUMBER nLevel,nvSize;
begin
TMP_PRODUCT_NAME="XXX電子政務平台";
TMP_PRODUCT_VERSION="V2.0";
TMP_COMPANY_NAME="XXX公司";
TMP_PRODUCT_KEY="88888888";
TMP_TITLE_CAPTIONBAR="0";
szBmpPath=SUPPORTDIR^"left.bmp";
DialogSetInfo(DLG_INFO_ALTIMAGE, szBmpPath, FALSE); // 設定左邊的圖片
//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 );
