主頁 > 知識庫 > 用InstallShield打包ASP程序的腳本

用InstallShield打包ASP程序的腳本
熱門標簽：外呼系統(tǒng)會封嗎 股票配資電銷機器人 實體店地圖標注怎么標 萬利達綜合醫(yī)院地圖標注點 在電子版地圖標注要收費嗎 地圖標注如何弄全套標 南京電銷外呼系統(tǒng)哪家好 電銷機器人 深圳 武漢AI電銷機器人
#include "ifx.h" //不能移動
//////////////////////////////////////////////////////////////////////////////
// 用InstallShield 進行 ASP 軟件的打包和自動安裝 
// 原創(chuàng)作者: 賈俊 (Jaron)
// 網(wǎng)址: http://www.jiangdu.net
// 郵件: jaron@jdinfo.net
// 首次發(fā)表于網(wǎng)易，ChinaASP,ASPHouse
//////////////////////////////////////////////////////////////////////////////
// 功能：
// 1.文件復制
// 2.可選自動設置獨立站點運行(設置IIS)
// 3.可選自動設置虛擬站點運行(設置IIS)
// 4.設置目錄可讀，可寫及可運行腳本
// 5.自動創(chuàng)建ODBC
// 6.自動創(chuàng)建或附加MDF格式的SQL數(shù)據(jù)庫 并優(yōu)化
// 7.自動安裝 ScriptEncode 解碼程序
// 本文僅列出了 InstallShield 的 Script 部分,還有兩個 VBS 文件及其他設置
// 測試過程中有任何問題，請來 http://www.jiangdu.net/bbs 編程空間版 討論
//////////////////////////////////////////////////////////////////////////////
prototype CreateDataBase(STRING,STRING,STRING);
prototype CreateWebSite(STRING,STRING); // 創(chuàng)建 IIS 站點
prototype CreateVirtualDir(STRING); // 創(chuàng)建虛擬目錄

//////////////////////////////////////////////////////////////////////////////
// 
// 函數(shù): 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://軟件許可協(xié)議 對話框
szLicenseFile = SUPPORTDIR ^ "license.txt";
szTitle = "許可協(xié)議";
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 ://設置數(shù)據(jù)庫服務器 對話框
szTitle = "設置"+@PRODUCT_NAME+"的運行模式";
szMsg = "請選擇軟件運行的方式，極力推薦使用獨立站點方式運行";
szField1="獨立站點方式運行(自動創(chuàng)建新站點)"; 
szField2="虛擬目錄方式運行(自動創(chuàng)建虛擬目錄)";
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 ://設置數(shù)據(jù)庫服務器 對話框
szTitle = "設置IIS信息服務及數(shù)據(jù)庫服務器";
szMsg = "現(xiàn)在開始設置IIS系統(tǒng)";
szQuestion="    請輸入本服務器的主機名或IP地址,安裝程序?qū)凑漳峁┑馁Y料設置IIS信息服務。如果您沒有填寫，安裝程序?qū)⒆詣犹^站點的創(chuàng)建！";
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 ://設置數(shù)據(jù)庫服務器 對話框
szTitle = "設置數(shù)據(jù)庫";
szMsg = "現(xiàn)在開始設置Microsoft SQL Server數(shù)據(jù)庫系統(tǒng)";
szQuestion="    請輸入SQL SERVER數(shù)據(jù)庫服務器的用戶名和密碼,安裝程序?qū)凑漳喜教峁┑腎P地址和下面的用戶名和密碼創(chuàng)建和優(yōu)化數(shù)據(jù)庫系統(tǒng)。如果您提供的用戶名和密碼是錯誤的，安裝程序?qū)⒆詣犹^數(shù)據(jù)的設置！";
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);  // 開始創(chuàng)建 IIS 站點
endif;
if (svEdit2=TRUE) then 
 CreateVirtualDir("NetOA");  // 開始創(chuàng)建 IIS 站點
endif;
CreateDataBase(svSQLsvr,svSQLusr,svSQLpwd); // 創(chuàng)建和優(yōu)化數(shù)據(jù)庫

return 0;
end;
//////////////////////////////////////////////////////////////////////////////
//
// 函數(shù): 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 ("不能安裝解碼程序，請聯(lián)系供應商.",SEVERE);
endif;

Disable(STATUSEX);
bOpt1 = FALSE;
bOpt2 = FALSE;
szMsg1 = SdLoadString(IFX_SDFINISH_MSG1);
szMsg2 = "請瀏覽本主機WEB服務器上的 "+@PRODUCT_NAME+" 虛擬目錄 例： 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;


//////////////////////////
// 創(chuàng)建IIS站點
//////////////////////////
function CreateWebSite(szServerIPDefault,szServerPortDefault)
STRING szCmdLine,szWaitTxt;
begin
 if ((szServerIPDefault = "") || (szServerPortDefault = "")) then 
  MessageBox ("您沒有設定"+@PRODUCT_NAME+"運行的服務器IP地址或端口！！IIS信息服務設置失??！請自行創(chuàng)建IIS站點，并將主目錄設為："+TARGETDIR,SEVERE);
 else
  szWaitTxt=" 正在創(chuàng)建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 或執(zhí)行腳本錯誤.",SEVERE);
  endif;
  SdShowMsg (szWaitTxt, FALSE);
 endif;
 return 0;
end;

//////////////////////////
// 創(chuàng)建虛擬目錄
//////////////////////////
function CreateVirtualDir(VirtualFolder)
STRING szCmdLine,szWaitTxt;
begin
 if (VirtualFolder = "") then 
  MessageBox ("沒能讀取到虛擬目錄的名稱！請聯(lián)系系統(tǒng)供應商！"+TARGETDIR,SEVERE);
 else
  szWaitTxt=" 正在創(chuàng)建"+@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 或執(zhí)行腳本錯誤.",SEVERE);
  endif;
  SdShowMsg (szWaitTxt, FALSE);
 endif;
 return 0;
end;

//////////////////////////
// 創(chuàng)建和優(yōu)化數(shù)據(jù)庫
//////////////////////////
function CreateDataBase(svSQLsvr,svSQLusr,svSQLpwd)
STRING szCmdLine,szWaitTxt;
begin
 szWaitTxt=" 正在創(chuàng)建"+@PRODUCT_NAME+"所需數(shù)據(jù)庫....";
 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 ("數(shù)據(jù)庫創(chuàng)建失敗！請確您的系統(tǒng)中已安裝 Microsoft SQL Server 2000. 如仍無法解決，請聯(lián)系系統(tǒng)供應商！",SEVERE);
 endif;
 SdShowMsg (szWaitTxt, FALSE);
 szWaitTxt=" 正在優(yōu)化"+@PRODUCT_NAME+"系統(tǒng)數(shù)據(jù)庫....";
 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 ("數(shù)據(jù)庫優(yōu)化失??！您可以在 sql查詢分析器中執(zhí)行 use OASystem ; exec sp_updatestats 完成！",SEVERE);
 endif;
 SdShowMsg (szWaitTxt, FALSE);
 return 0;
end;
您可能感興趣的文章:
  • IIS6 中"ASP 0201 錯誤 無效的默認腳本語言" 的解決方法
  • 使用ASP控制指定站點解析腳本語言函數(shù)
  • asp分頁生成html的程序腳本代碼
  • 隱藏修改文件時間和文件屬性的ASP腳本
  • ASP.NET調(diào)用javascript腳本的常見方法小結(jié)
  • 從一個網(wǎng)站扒下的asp生成靜態(tài)頁面的代碼 腳本之家特供版
  • iis、apache與nginx禁止目錄執(zhí)行asp、php腳本的實現(xiàn)方法
  • ASP上傳漏洞之利用CHR(0)繞過擴展名檢測腳本
  • ASP中Server.Execute和Execute實現(xiàn)動態(tài)包含(include)腳本的區(qū)別
  • ASP.NET中后臺注冊js腳本使用的方法對比
  • ASP程序中常用的腳本語言

標簽：臺州 安徽 汕頭 廣東 濟寧 濟源 泰安 武威

巨人網(wǎng)絡通訊聲明：本文標題《用InstallShield打包ASP程序的腳本》，本文關鍵詞  用,InstallShield,打包,ASP,程序,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡，涉及言論、版權(quán)與本站無關。
  • 相關文章
  • 下面列出與本文章《用InstallShield打包ASP程序的腳本》相關的同類信息！
  • 本頁收集關于用InstallShield打包ASP程序的腳本的相關信息資訊供網(wǎng)民參考！

    • 四合一精品企业网站建设

    多一个网站就为企业多增加一条营销渠道

    ¥888元限时抢购

    QQ立即咨询快速购买

    企业400电话

    智能AI客服机器人
    ￥15000

    在线订购

    合计11份范本：公司章程+合伙协议+出资协议+合作协议+股权转让协议+增资扩股协议+股权激励+股东会决议+董事会决议

    推薦文章