欧美成人精品手机在线观看_69视频国产_动漫精品第一页_日韩中文字幕网 - 日本欧美一区二区

#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="主機名：";