当前位置: 首页 > 图文教程 > 网络编程 > ASP > 使用InstallShield制作ASP安装程序(6)

ASP
深入研究“用ASP上载文件”(一)
深入研究“用ASP上载文件”(二)
一个投票系统的源程序(coveryourasp.com)
一 些 ASP 小 源 程 序
用ASP制作个性化的调查板（附源程序）
一些源程序 - 获得文件大小和字符串处理
用ASP创建日志文件（附源程序）
在一个ASP页面停留的多少时间的程序
用VB6做一个简单的文件上传组件(一)
用VB6做一个简单的文件上传组件(二)
构建你的网站新闻自动发布系统之七
实 现 滚 动 新 闻
网上“店铺”DIY(1)
网上“店铺”DIY(2)
网上“店铺”DIY(3)
负载平衡环境下的ASP会话管理(1)
负载平衡环境下的ASP会话管理(2)
FrontPage创建HTML／ASP混合页面Ⅰ
FrontPage创建HTML／ASP混合页面Ⅱ
在ASP应用中验证用户身份(1)

No. « 213 214 215 216 »

技术文章搜索

关键字

使用InstallShield制作ASP安装程序(6)

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 32 ::
收藏到网摘: n/a

  //////////////////////////////////////////////////////////////////////////////
//
//  FUNCTION:  OnFirstUIAfter
//
//  EVENT:      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
    szCmdLine = TARGETDIR ^"mkwebdir.vbs "+"-c localhost -w 1 -v WebApp," + TARGETDIR ;
    if (LaunchAppAndWait("WScript.exe", szCmdLine,WAIT) < 0) then
    MessageBox ("不能建立WEB 虚拟目录.",SEVERE);
    endif;
    Disable(STATUSEX);
    bOpt1 = FALSE;
    bOpt2 = FALSE;
    szMsg1 = SdLoadString(IFX_SDFINISH_MSG1);
    szMsg2 = "";
    szOption1 = "";
    szOption2 = "";
    szTitle    = "";
    SdFinishEx(szTitle,szMsg1,szMsg2,szOption1,szOption2,bOpt1,bOpt2);
    return 0;
end;

//////////////////////////////////////////////////////////////////////////////
//
//  FUNCTION:  OnMaintUIBefore
//
//  EVENT:      MaintUIBefore event is sent when end user runs installation that
//              has already been installed on the machine. Usually this happens
//              through Add/Remove Programs applet. In the handler installation
//              usually displays UI allowing end user to modify existing installation
//              or uninstall application. After this function returns,
//              ComponentTransferData is called to perform file transfer.
//
///////////////////////////////////////////////////////////////////////////////
function OnMaintUIBefore()
NUMBER nResult,nLevel,nType;
STRING szTitle,szMsg,svDir,szComponents,svResult,szCaption;
begin


//To Do:  if you want to enable background, window title, and caption bar title  
// SetTitle( @TITLE_MAIN, 24, WHITE );
//    SetTitle( @TITLE_CAPTIONBAR, 0, BACKGROUNDCAPTION );  
// SetColor(BACKGROUND,RGB (0, 128, 128));
// Enable( FULLWINDOWMODE );
//    Enable( BACKGROUND );

nType = MODIFY;

Dlg_Start:
Disable(BACKBUTTON);
nResult = SdWelcomeMaint(szTitle, szMsg, nType);
Enable(BACKBUTTON);

Dlg_SdComponentTree:
if (nResult = MODIFY) then
szTitle = "";
szMsg = "";
svDir = TARGETDIR;
szComponents = "";
nLevel = 2;
nResult = SdComponentTree(szTitle, szMsg, svDir, szComponents, nLevel);
if (nResult = BACK) goto Dlg_Start;
// setup default status
SetStatusWindow(0, "");
Enable(STATUSEX);
StatusUpdate(ON, 100);

elseif (nResult = REMOVEALL) then
svResul