• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    用InstallShield打包ASP程序的脚本
    #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+" 虚拟目录 例: 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信息服务设置失败!请自行创建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. 如仍无法解决,请联系系统供应商!",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查询分析器中执行 use OASystem ; exec sp_updatestats 完成!",SEVERE);
     endif;
     SdShowMsg (szWaitTxt, FALSE);
     return 0;
    end;
    您可能感兴趣的文章:
    • IIS6 中"ASP 0201 错误 无效的默认脚本语言" 的解决方法
    • 使用ASP控制指定站点解析脚本语言函数
    • asp分页生成html的程序脚本代码
    • 隐藏修改文件时间和文件属性的ASP脚本
    • ASP.NET调用javascript脚本的常见方法小结
    • 从一个网站扒下的asp生成静态页面的代码 脚本之家特供版
    • iis、apache与nginx禁止目录执行asp、php脚本的实现方法
    • ASP上传漏洞之利用CHR(0)绕过扩展名检测脚本
    • ASP中Server.Execute和Execute实现动态包含(include)脚本的区别
    • ASP.NET中后台注册js脚本使用的方法对比
    • ASP程序中常用的脚本语言
    上一篇:用InstallShield检测是否安装IIS的脚本
    下一篇:InstallShield 隐藏密码输入的脚本
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    用InstallShield打包ASP程序的脚本 用,InstallShield,打包,ASP,程序,