Use InstallShield9 for ASP software packaging and automatic database installation

Source: Internet
Author: User
// Recently, the company used ASP + SQL to develop office automation OA. The installation program needs to be created and released. This script is made with IS9.0, which can be shared and shared with colleagues.
# Define BITMAP_ID 1
# Include "ifx. h" // cannot be moved
Prototype CreateWebSite (STRING, STRING); // Create an IIS Site
Prototype CreateVirtualDir (STRING); // create a virtual directory
Prototype CreateDataBase (STRING, STRING, STRING); // Create a SQL database
Prototype CheckIIS (); // example: Check whether IIS is installed.
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, szbmp path;
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 e-government platform ";
TMP_PRODUCT_VERSION = "V2.0 ";
TMP_COMPANY_NAME = "XXX Company ";
TMP_PRODUCT_KEY = "88888888 ";
TMP_TITLE_CAPTIONBAR = "0 ";
Szbmp path = SUPPORTDIR ^ "left.bmp ";
DialogSetInfo (DLG_INFO_ALTIMAGE, szbmp path, FALSE); // you can specify the image on the left.
// 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 );
Related Article

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

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 >

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.