用InstallShield9 進行ASP軟體的打包和資料庫自動安裝

來源:互聯網
上載者:User
installshield|打包|資料|資料庫|自動安裝|installshield|打包|自動安裝 //近期公司用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 );
Enable( BACKGROUND );
SetColor(BACKGROUND,RGB (0, 128, 128));
PlaceBitmap (szBmpPath, BITMAP_ID, 0, 0, FULLSCREEN);

//預設值設定
TARGETDIR = "C:"^"inetpub"^@FOLDER_NAME;
szDir = TARGETDIR;
SHELL_OBJECT_FOLDER = @FOLDER_NAME;
svName = "";
svCompany = "";
svSerial = "88888888";

if (CheckIIS()==1) then // 樣本:檢查系統是否安裝IIS
//MessageBox ("已經安裝了IIS,安裝繼續!",SEVERE);
goto Dlg_Start;
else
MessageBox ("該系統沒有安裝IIS,請先安裝IIS!",WARNING);
goto end_all_install;//結束安裝
endif;


Dlg_Start:// 開始對話方塊

Dlg_SdWelcome: //歡迎 對話方塊
szTitle = "歡迎安裝使用 "+TMP_PRODUCT_NAME+" "+TMP_PRODUCT_VERSION;
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 = "系統資訊概述";
szMsg = "系統概述";
nResult = SdShowInfoList( szTitle, szMsg, list );
ListDestroy( list );
if (nResult = BACK) goto Dlg_SdLicense;

Dlg_SdRegisterUserEx://使用者資訊 對話方塊
szMsg = "";
szTitle = "使用者資訊註冊";
svCompany = "XXX省";
svSerial = "XXX單位";
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_InputADAdmin://設定AD目錄伺服器的IP和使用者名稱

szTitle = "設定目錄(AD)伺服器";
szMsg = "現在開始設定目錄(AD)伺服器的IP、管理員帳號和密碼";
szQuestion=" 請輸入目錄(AD)伺服器的管理員帳號和密碼,安裝程式將按照您提供的IP地址、帳號和密碼進行配置。如果您提供的帳號或密碼錯誤的話,該系統將不能正常使用!";
szADsvr="IP地址:";
szADusr="帳 號:";
szADpwd="密 碼:";
szADsvrDefault="192.168.8.8";
szADusrDefault="Administrator";
szADpwdDefault="";
SetDialogTitle(DLG_ASK_TEXT,szTitle);
nResult=SdShowDlgEdit3 (szTitle, szQuestion,szADsvr,szADusr,szADpwd,szADsvrDefault



相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。