[ 来源：动网 ] #include "ifx.h" //不能移动//////////////////////////////////////////////////////////////////////////////// 用InstallShield 进行 ASP 软件的打包和自动安装 // 原创作者: 贾俊 (Jaron)// 网址: http://www.jiangdu.net// 邮件: jaron@jdinfo.net// 首次发表于网易，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)