台灣最大程式設計社群網站
線上人數
667
 
會員總數:246038
討論主題:189625
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> 用InstallShield 進行 ASP 軟體的打包和自動安裝
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
用InstallShield 進行 ASP 軟體的打包和自動安裝
價值 : 0 QP  點閱數:804 回應數:0
樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員

用InstallShield 進行 ASP 軟體的打包和自動安裝
發佈於:2002-3-12
#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)<0) then
//goto Dlg_SdRegisterUserEx;
//endif;
//檢查序列號完畢
Dlg_SdAskDestPath://安裝位置 對話方塊
szTitle = "檢查序列號";
szMsg = "";
nResult = SdAskDestPath( szTitle, szMsg, szDir, 0 );
TARGETDIR = szDir;
if (nResult = BACK) goto Dlg_SdRegisterUserEx;

Dlg_SetupType: //安裝類型 對話方塊
nSetupType = TYPICAL;
szTitle = "安裝類型";
szMsg = "請選擇您需要按哪種方式安裝";
nResult = SetupType ( szTitle , szMsg , "" , nSetupType , 0 );
if (nResult = BACK) then
goto Dlg_SdAskDestPath;
else
nSetupType = nResult;
if (nSetupType != CUSTOM) then
szTargetPath = TARGETDIR;
nvSize = 0;
ComponentCompareSizeRequired(MEDIA,szTargetPath,nvSize);
if (nvSize != 0) then
MessageBox( szSdStr_NotEnoughSpace, WARNING );
goto Dlg_SetupType;
endif;
endif;
endif;

Dlg_SdComponentTree: //對話方塊
if ((nResult = BACK) && (nSetupType != CUSTOM)) goto Dlg_SetupType;
szTitle = "對話方塊";
szMsg = "";
szTargetdir = TARGETDIR;
szComponents = "";
nLevel = 2;
if (nSetupType = CUSTOM) then
nResult = SdComponentTree(szTitle, szMsg, szTargetdir, szComponents, nLevel);
if (nResult = BACK) goto Dlg_SetupType;
endif;

Dlg_SdSelectFolder://對話方塊
szfolder = SHELL_OBJECT_FOLDER;
szTitle = "文件夾";
szMsg = "";
nResult = SdSelectFolder( szTitle, szMsg, szfolder );
SHELL_OBJECT_FOLDER = szfolder;
if (nResult = BACK) goto Dlg_SdComponentTree;


Dlg_SelMode ://設置資料庫伺服器 對話方塊
szTitle = "設置"+@PRODUCT_NAME+"的運行模式";
szMsg = "請選擇軟體運行的方式,極力推薦使用獨立站點方式運行";
szField1="獨立站點方式運行(自動創建新站點)";
szField2="虛擬目錄方式運行(自動創建虛擬目錄)";
svEdit1=TRUE;
svEdit2=FALSE;
SetDialogTitle(DLG_ASK_TEXT,szTitle);
//DialogSetInfo ( DLG_INFO_CHECKSELECTION, "", 1);
nOpt = EXCLUSIVE ;
nResult = AskOptions (nOpt,szMsg,szField1,svEdit1,szField2,svEdit2);
if (nResult = BACK) goto Dlg_SdSelectFolder;
if (svEdit1=FALSE) goto Dlg_SdStartCopy;

Dlg_AskText ://設置資料庫伺服器 對話方塊
szTitle = "設置IIS資訊服務及資料庫伺服器";
szMsg = "現在開始設置IIS系統";
szQuestion=" 請輸入本伺服器的主機名或IP位址,安裝程式將按照您提供的資料設置IIS資訊服務。如果您沒有填寫,安裝程式將自動跳過站點的創建!";
szServerIP="地址:";
szServerPort="埠:";
szServerIPDefault="192.168.0.1";
szServerPortDefault="80";
SetDialogTitle(DLG_ASK_TEXT,szTitle);
nResult=SdShowDlgEdit2 (szTitle, szQuestion,szServerIP,szServerPort,szServerIPDefault,szServerPortDefault);
if (nResult = BACK) goto Dlg_SelMode;

Dlg_AskSQL ://設置資料庫伺服器 對話方塊
szTitle = "設置資料庫";
szMsg = "現在開始設置Microsoft SQL Server資料庫系統";
szQuestion=" 請輸入SQL SERVER資料庫伺服器的用戶名和密碼,安裝程式將按照您上步提供的IP地址和下面的用戶名和密碼創建和優化資料庫系統。如果您提供的用戶名和密碼是錯誤的,安裝程式將自動跳過資料的設置!";
szSQLsvr="主機名:";
szSQLusr="用戶名:";
szSQLpwd="密碼:";
svSQLsvr="localhost";
svSQLusr="sa";
szSQLpwd="";
SetDialogTitle(DLG_ASK_TEXT,szTitle);
nResult=SdShowDlgEdit3 (szTitle, szQuestion,szSQLsvr,szSQLusr,szSQLpwd,svSQLsvr,svSQLusr,svSQLpwd);
if (nResult = BACK) goto Dlg_SelMode;

Dlg_SdStartCopy://開始複製檔 對話方塊
szTitle = "開始複製檔";
szMsg = "點擊下一步開始複製檔";
listStartCopy = ListCreate( STRINGLIST );
ListAddString(listStartCopy,"用戶名:"+svName,AFTER);
ListAddString(listStartCopy,"公司名稱:"+svCompany,AFTER);
ListAddString(listStartCopy,"序列號:"+svSerial,AFTER);
ListAddString(listStartCopy,"目標目錄:"+szDir,AFTER);
if (svEdit1=TRUE) then
ListAddString(listStartCopy,"IP地址:"+szServerIPDefault,AFTER);
ListAddString(listStartCopy,"埠號:"+szServerPortDefault,AFTER);
endif;
ListAddString(listStartCopy,"請確認您填寫的資訊,按下一步開始複製檔",AFTER);
nResult = SdStartCopy( szTitle, szMsg, listStartCopy );
ListDestroy(listStartCopy);
if (nResult = BACK) goto Dlg_AskText;
// setup default status
SetStatusWindow(0, "");
Enable(STATUSEX);
StatusUpdate(ON, 100);
if (svEdit1=TRUE) then
CreateWebSite(szServerIPDefault,szServerPortDefault); // 開始創建 IIS 站點
endif;
if (svEdit2=TRUE) then
CreateVirtualDir("NetOA"); // 開始創建 IIS 站點
endif;
CreateDataBase(svSQLsvr,svSQLusr,svSQLpwd); // 創建和優化資料庫

return 0;
end;
//////////////////////////////////////////////////////////////////////////////
//
// 函數: OnFirstUIAfter
//
// 事件: FirstUIAfter event is sent after file transfer, when installation
// is run for the first time on given machine. In this event handler
// installation usually displays UI that will inform end user that
// installation has been completed successfully.
//
///////////////////////////////////////////////////////////////////////////////
function OnFirstUIAfter()
STRING szTitle,szMsg1, szMsg2, szOption1, szOption2,szCmdLine;
NUMBER bOpt1, bOpt2;

begin
//set_vod_liveaddress();

szCmdLine = SUPPORTDIR ^"SCE10CHS.EXE";
if (LaunchAppAndWait(szCmdLine, " /q",WAIT) < 0) then
MessageBox ("不能安裝解碼程式,請聯繫供應商.",SEVERE);
endif;

Disable(STATUSEX);
bOpt1 = FALSE;
bOpt2 = FALSE;
szMsg1 = SdLoadString(IFX_SDFINISH_MSG1);
szMsg2 = "請流覽本主機WEB伺服器上的 "+@PRODUCT_NAME+" 虛擬目錄\n\n 例:\n http://Localhost/";
szOption1 = "";
szOption2 = "";
szTitle = @PRODUCT_NAME+"安裝完成";
SdFinishEx(szTitle,szMsg1,szMsg2,szOption1,szOption2,bOpt1,bOpt2);

szCmdLine = "http://LocalHost";
//if (LaunchApp(PROGRAMFILES ^"Internet Explorer"^"IEXPLORE.EXE", szCmdLine) < 0) then
//MessageBox ("不能打開流覽器.",SEVERE);
//endif;

return 0;
end;


//////////////////////////
// 創建IIS站點
//////////////////////////
function CreateWebSite(szServerIPDefault,szServerPortDefault)
STRING szCmdLine,szWaitTxt;
begin
if ((szServerIPDefault = "") || (szServerPortDefault = "")) then
MessageBox ("您沒有設定"+@PRODUCT_NAME+"運行的伺服器IP位址或埠!!IIS資訊服務設置失敗!\n請自行創建IIS站點,並將主目錄設為:"+TARGETDIR,SEVERE);
else
szWaitTxt=" 正在創建IIS和設置站點....";
SdShowMsg (szWaitTxt, TRUE);
Delay(2);
szCmdLine = SUPPORTDIR ^"mkw3site.vbs"+" -r "+TARGETDIR+" -i "+szServerIPDefault+" -o "+szServerPortDefault+" -t "+@PRODUCT_NAME;
if (LaunchAppAndWait("WScript.exe", szCmdLine,WAIT) < 0) then
MessageBox ("不能建立WEB 虛擬目錄,沒有找到 WScript.exe 或執行腳本錯誤.",SEVERE);
endif;
SdShowMsg (szWaitTxt, FALSE);
endif;
return 0;
end;

//////////////////////////
// 創建虛擬目錄
//////////////////////////
function CreateVirtualDir(VirtualFolder)
STRING szCmdLine,szWaitTxt;
begin
if (VirtualFolder = "") then
MessageBox ("沒能讀取到虛擬目錄的名稱!請聯繫系統供應商!"+TARGETDIR,SEVERE);
else
szWaitTxt=" 正在創建"+@PRODUCT_NAME+"的虛擬目錄....";
SdShowMsg (szWaitTxt, TRUE);
Delay(2);
szCmdLine = SUPPORTDIR ^"mkwebdir.vbs "+" -w 1 -v \""+VirtualFolder+"\",\""+ TARGETDIR+"\"" ;
if (LaunchAppAndWait("WScript.exe", szCmdLine,WAIT) < 0) then
MessageBox ("不能建立WEB 虛擬目錄,沒有找到 WScript.exe 或執行腳本錯誤.",SEVERE);
endif;
SdShowMsg (szWaitTxt, FALSE);
endif;
return 0;
end;

//////////////////////////
// 創建和優化資料庫
//////////////////////////
function CreateDataBase(svSQLsvr,svSQLusr,svSQLpwd)
STRING szCmdLine,szWaitTxt;
begin
szWaitTxt=" 正在創建"+@PRODUCT_NAME+"所需資料庫....";
SdShowMsg (szWaitTxt, TRUE);
Delay(2);
szCmdLine = "/U "+svSQLusr+" /P "+svSQLpwd+" /S "+svSQLsvr+" /Q \"exec sp_attach_db N'OASystem' , N'"+SUPPORTDIR ^"OASystem_data.mdf'\"";
if (LaunchAppAndWait("osql.exe", szCmdLine,WAIT) < 0) then
MessageBox ("資料庫創建失敗!請確您的系統中已安裝 Microsoft SQL Server 2000.\n如仍無法解決,請聯繫系統供應商!",SEVERE);
endif;
SdShowMsg (szWaitTxt, FALSE);
szWaitTxt=" 正在優化"+@PRODUCT_NAME+"系統資料庫....";
SdShowMsg (szWaitTxt, TRUE);
Delay(2);
szCmdLine = "/U "+svSQLusr+" /P "+svSQLpwd+" /S "+svSQLsvr+" /Q \"use OASystem ; exec sp_updatestats\"";
if (LaunchAppAndWait("osql.exe", szCmdLine,WAIT) < 0) then
MessageBox ("資料庫優化失敗!您可以在 sql查詢分析器中執行 \n use OASystem ; exec sp_updatestats \n完成!",SEVERE);
endif;
SdShowMsg (szWaitTxt, FALSE);
return 0;
end;

本篇文章發表於2002-08-12 00:00
目前尚無任何回覆
   

回覆
如要回應,請先登入.