国产毛片午夜福利,国产黄网,国产亚洲天堂,97国产精品

    • 

  • 

    • 






    
  
    
    
    
      
    
        



    
  
    
    
    
  
    

    


            		
        
    
    
    		
  
    

    

    
  
    
    




    
  
    

    


    
  
    
     
  
    

    


    
  
    
            
            慧網(wǎng)動(dòng)態(tài)        
            
            常見問(wèn)題        
            
            網(wǎng)絡(luò)營(yíng)銷        
            
            網(wǎng)站設(shè)計(jì)        
            
            行業(yè)動(dòng)態(tài)        
            
            網(wǎng)站優(yōu)化        
      
    

    


    
  
    
    用InstallShield 進(jìn)行 ASP 軟件的打包和自動(dòng)安裝  
    

    


    
  
    
    發(fā)布時(shí)間：2005-03-18　　　瀏覽次數(shù)：1185702  
    

    


    
  
    
    
    
      


[ 來(lái)源：動(dòng)網(wǎng) ]








#include "ifx.h" //不能移動(dòng)//////////////////////////////////////////////////////////////////////////////// 用InstallShield 進(jìn)行 ASP 軟件的打包和自動(dòng)安裝 // 原創(chuàng)作者: 賈俊 (Jaron)// 網(wǎng)址: http://www.jiangdu.net// 郵件: jaron@jdinfo.net// 首次發(fā)表于網(wǎng)易，ChinaASP,ASPHouse//////////////////////////////////////////////////////////////////////////////// 功能：// 1.文件復(fù)制// 2.可選自動(dòng)設(shè)置獨(dú)立站點(diǎn)運(yùn)行(設(shè)置IIS)// 3.可選自動(dòng)設(shè)置虛擬站點(diǎn)運(yùn)行(設(shè)置IIS)// 4.設(shè)置目錄可讀，可寫及可運(yùn)行腳本// 5.自動(dòng)創(chuàng)建ODBC// 6.自動(dòng)創(chuàng)建或附加MDF格式的SQL數(shù)據(jù)庫(kù) 并優(yōu)化// 7.自動(dòng)安裝 ScriptEncode 解碼程序// 本文僅列出了 InstallShield 的 Script 部分,還有兩個(gè) VBS 文件及其他設(shè)置// 測(cè)試過(guò)程中有任何問(wèn)題，請(qǐng)來(lái) http://www.jiangdu.net/bbs 編程空間版 討論//////////////////////////////////////////////////////////////////////////////prototype CreateDataBase(STRING,STRING,STRING);prototype CreateWebSite(STRING,STRING); // 創(chuàng)建 IIS 站點(diǎn)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); // 設(shè)置左邊的圖片//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)); 
//默認(rèn)值設(shè)定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: //歡迎 對(duì)話框szTitle = "歡迎進(jìn)入";szMsg = "";nResult = SdWelcome( szTitle, szMsg );if (nResult = BACK) goto Dlg_Start;
Dlg_SdLicense://軟件許可協(xié)議 對(duì)話框szLicenseFile = SUPPORTDIR ^ "license.txt";szTitle = "許可協(xié)議";szMsg = "";szQuestion = "";nResult = SdLicense( szTitle, szMsg, szQuestion, szLicenseFile );if (nResult = BACK) goto Dlg_SdWelcome;
Dlg_SdShowInfoList://readme文件 對(duì)話框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://用戶信息 對(duì)話框szMsg = "";szTitle = "用戶信息"; nResult = SdRegisterUserEx( szTitle, szMsg, svName, svCompany, svSerial );if (nResult = BACK) goto Dlg_SdShowInfoList;//檢查序列號(hào)//if (CHK_serial(svCompany, svSerial)    
    
    
    
        
        
    
    
  
    

    


    
  
    
    
    
      
      
      立即預(yù)約