用InstallShield9 进行ASP软件的打包和数据库自动安装

//近期公司用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 );

补充：asp教程,高级应用