电脑资料
当前位置：资料库>电脑资料>
我要投稿 投诉建议

用InstallShield打包ASP程序的脚本 -电脑资料

电脑资料 时间：2019-01-01 我要投稿
【www.unjs.com - 电脑资料】

    作者： 字体：[增加 减小] 类型：转载

    #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信息服务，

用InstallShield打包ASP程序的脚本

，

电脑资料

《用InstallShield打包ASP程序的脚本》(https://www.unjs.com)。如果您没有填写，安装程序将自动跳过站点的创建！";

    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;

相关文章
最新文章
推荐文章

Copyright©2006-2024 优文网 unjs.com 版权所有 手机版