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

//////////////////////////////////////////////////////////////////////////////
//
// 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: onmaintuibefz喎?https://www.2cto.com/kf/ware/vc/" target="_blank" class="keylink">vcmu8qli+ly88qli+ly8grvzftlq6ie1haw50vulczwzvcmugzxzlbnqgaxmgc2vudcb3agvuigvuzcb1c2vyihj1bnmgaw5zdgfsbgf0aw9uihroyxq8qli+ly8gagfzigfscmvhzhkgymvlbibpbnn0ywxszwqgb24gdghlig1hy2hpbmuuifvzdwfsbhkgdghpcyboyxbwzw5zidxcuj4vlyb0ahjvdwdoiefkzc9szw1vdmuguhjvz3jhbxmgyxbwbgv0libjbib0agugagfuzgxlcibpbnn0ywxsyxrpb24gpejspi8vihvzdwfsbhkgzglzcgxhexmgvukgywxsb3dpbmcgzw5kihvzzxigdg8gbw9kawz5igv4axn0aw5nigluc3rhbgxhdglvbjxcuj4vlybvcib1bmluc3rhbgwgyxbwbgljyxrpb24uiefmdgvyihroaxmgznvuy3rpb24gcmv0dxjucywgpejspi8vienvbxbvbmvudfryyw5zzmvyrgf0ysbpcybjywxszwqgdg8gcgvyzm9ybsbmawxlihryyw5zzmvyljxcuj4vlzxcuj4vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vpejspmz1bmn0aw9uie9utwfpbnrvsujlzm9yzsgppejspk5vtujfuibuumvzdwx0lg5mzxzlbcxuvhlwzts8qli+u1rssu5hihn6vgl0bgusc3pnc2csc3zeaxisc3pdb21wb25lbnrzlhn2umvzdwx0lhn6q2fwdglvbjs8qli+ymvnaw48l1a+dqoncjxqpjxcuj4vl1rviervoibpzib5b3ugd2fudcb0byblbmfibgugymfja2dyb3vuzcwgd2luzg93ihrpdgxllcbhbmqgy2fwdglvbibiyxigdgl0bgugpejspi8vifnldfrpdgxlkcbavelutevftufjtiwgmjqsifdisvrfick7idxcuj4vlybtzxruaxrszsggqfrjvexfx0nbufrjt05cqvisidasiejbq0thuk9vtkrdqvbusu9oick7idxcuj4vlybtzxrdb2xvcihcqunlr1jpvu5elfjhqiaomcwgmti4lcaxmjgpktsgpejspi8vievuywjszsggrlvmtfdjtkrpv01preugktsgpejspi8vievuywjszsggqkfds0dst1vorcapoya8l1a+dqoncjxqpm5uexblid0gtu9esuzzozwvud4ncg0kpfa+rgxnx1n0yxj0ojxcuj5eaxnhymxlkejbq0tcvvrut04pozxcuj5uumvzdwx0id0gu2rxzwxjb21ltwfpbnqoc3puaxrszswgc3pnc2csig5uexblkts8qli+rw5hymxlkejbq0tcvvrut04pozwvud4ncg0kpfa+rgxnx1nkq29tcg9uzw50vhjlzto8qli+awygkg5szxn1bhqgpsbnt0rjrlkpihrozw48qli+c3puaxrszsa9ia=="";
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
svresult = sdloadstring(ifx_maintui_msg);
szcaption = sdloadstring(ifx_onmaintui_caption);
nresult = sprintfbox(mb_okcancel,szcaption,"%s",svresult);
if (nresult = idcancel) then
goto dlg_start;
elseif(nresult = idok) then
// setup default status
setstatuswindow(0, "");
enable(statusex);
statusupdate(on, 100);

//-->remove all components
componentremoveall();
endif;
elseif (nresult = repair) then
// setup default status
setstatuswindow(0, "");
enable(statusex);
statusupdate(on, 100);

//-->reinstall logged components
componentreinstall();
endif;

end;

///////////////////////////////////////////////////////////////////////////////
//
// function: onmaintuiafter
//
// event: maintuiafter event is sent after file transfer, 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 that will inform
// end user that maintenance/uninstallation has been completed successfully.
//
///////////////////////////////////////////////////////////////////////////////
function onmaintuiafter()
string sztitle, szmsg1, szmsg2, szoption1, szoption2;
number bopt1, bopt2;
begin
disable(statusex);
bopt1 = false;
bopt2 = false;
szmsg1 = sdloadstring(ifx_sdfinish_maint_msg1);
szmsg2 = "";
szoption1 = "";
szoption2 = "";
sztitle = sdloadstring(ifx_sdfinish_maint_title);
sdfinishex(sztitle,szmsg1,szmsg2,szoption1,szoption2,bopt1,bopt2);
return 0;
end;

///////////////////////////////////////////////////////////////////////////////
//
// function: onmoving
//
// event: moving event is sent when file transfer is started as a result of
// componenttransferdata call, before any file transfer operations
// are performed.
//
///////////////////////////////////////////////////////////////////////////////
function onmoving()
string szapppath;
begin
// set logo compliance application path
// to do : if your application .exe is in a subfolder of targetdir then add subfolder
szapppath = targetdir;
regdbsetitem(regdb_apppath, szapppath);
regdbsetitem(regdb_apppath_default, szapppath ^ @product_key);

end;

// --- include script file section ---