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

#include "ifx.h" //不能移動[br]//////////////////////////////////////////////////////////////////////////////[br]// 用installshield 進行 asp 軟件的打包和自動安裝 [br]// 原創作者: 賈俊 (jaron)[br]// 網址: http://jiangdu.net[br]// 郵件: jaron@jdinfo.net[br]// 首次發表于網易，chinaasp,asphouse[br]//////////////////////////////////////////////////////////////////////////////[br]// 功能：[br]// 1.文件復制[br]// 2.可選自動設置獨立站點運行(設置iis)[br]// 3.可選自動設置虛擬站點運行(設置iis)[br]// 4.設置目錄可讀，可寫及可運行腳本[br]// 5.自動創建odbc[br]// 6.自動創建或附加mdf格式的sql數據庫 并優化[br]// 7.自動安裝 scriptencode 解碼程序[br]// 本文僅列出了 installshield 的 script 部分,還有兩個 vbs 文件及其他設置[br]// 測試過程中有任何問題，請來 http://jiangdu.net/bbs 編程空間版 討論[br]//////////////////////////////////////////////////////////////////////////////[br]prototype createdatabase(string,string,string);[br]prototype createwebsite(string,string); // 創建 iis 站點[br]prototype createvirtualdir(string); // 創建虛擬目錄
[p][/p]
[p]//////////////////////////////////////////////////////////////////////////////[br]// [br]// 函數: onfirstuibefore [br]// [br]// 事件: firstuibefore event is sent when installation is run for the first[br]// time on given machine. in the handler installation usually displays[br]// ui allowing end user to specify installation parameters. after this[br]// function returns, componenttransferdata is called to perform file[br]// transfer.[br]// [br]///////////////////////////////////////////////////////////////////////////////[br]function onfirstuibefore() [br]number nresult,nsetuptype,nopt,svedit1,svedit2;[br]string sztitle, szmsg,szbmppath;[br]string szlicensefile, szquestion;[br]string szserverip,szserverport,szserveripdefault,szserverportdefault;[br]string szsqlsvr,szsqlusr,szsqlpwd,svsqlsvr,svsqlusr,svsqlpwd;[br]string svname, svcompany, svserial;[br]string szfile,sztargetpath,szdir,szfolder;[br]string szcomponents, sztargetdir;[br]string szfield1,szfield2;[br]string szdefault,svresult;[br]object piisobj;[br]list list,liststartcopy;[br]number nlevel,nvsize;[br]begin [/p]
[p]szbmppath="c:"^"temp"^"left.bmp";[br]dialogsetinfo (dlg_info_altimage, szbmppath, true); // 設置左邊的圖片[br]//to do: if you want to enable background, window title, and caption bar title [br]//settitle( @title_main, 24, white );[br]//settitle( @title_captionbar, 0, backgroundcaption ); [br]//enable( fullwindowmode ); [br]//enable( background ); [br]//setcolor(background,rgb (0, 128, 128)); [/p]
[p]//默認值設定[br]targetdir = "c:"^"inetpub"^"jaronsoft"^@folder_name; [br]szdir = targetdir;[br]shell_object_folder = @folder_name; [br]svname = "試用版用戶";[br]svcompany = "jdinfo network";[br]svserial = "111-1111111"; [/p]
[p]dlg_start:[br]// beginning of dialogs label[/p]
[p]dlg_sdwelcome: //歡迎 對話框[br]sztitle = "歡迎進入";[br]szmsg = "";[br]nresult = sdwelcome( sztitle, szmsg );[br]if (nresult = back) goto dlg_start;[/p]
[p]dlg_sdlicense://軟件許可協議 對話框[br]szlicensefile = supportdir ^ "license.txt";[br]sztitle = "許可協議";[br]szmsg = "";[br]szquestion = "";[br]nresult = sdlicense( sztitle, szmsg, szquestion, szlicensefile );[br]if (nresult = back) goto dlg_sdwelcome;[/p]
[p]dlg_sdshowinfolist://readme文件 對話框[br]szfile = supportdir ^ "infolist.txt";[br]list = listcreate( stringlist );[br]listreadfromfile( list, szfile );[br]sztitle = "readme";[br]szmsg = "";[br]nresult = sdshowinfolist( sztitle, szmsg, list ); [br]listdestroy( list );[br]if (nresult = back) goto dlg_sdlicense;[/p]
[p]dlg_sdregisteruserex://用戶信息 對話框[br]szmsg = "";[br]sztitle = "用戶信息"; [br]nresult = sdregisteruserex( sztitle, szmsg, svname, svcompany, svserial );[br]if (nresult = back) goto dlg_sdshowinfolist;[br]//檢查序列號[br]//if (chk_serial(svcompany, svserial)<0) then[br]//goto dlg_sdregisteruserex;[br]//endif;[br]//檢查序列號完畢[br]dlg_sdaskdestpath://安裝位置 對話框[br]sztitle = "檢查序列號";[br]szmsg = "";[br]nresult = sdaskdestpath( sztitle, szmsg, szdir, 0 );[br]targetdir = szdir;[br]if (nresult = back) goto dlg_sdregisteruserex;[/p]
[p]dlg_setuptype: //安裝類型 對話框[br]nsetuptype = typical; [br]sztitle = "安裝類型";[br]szmsg = "請選擇您需要按哪種方式安裝"; [br]nresult = setuptype ( sztitle , szmsg , "" , nsetuptype , 0 );[br]if (nresult = back) then[br]goto dlg_sdaskdestpath;[br]else[br]nsetuptype = nresult;[br]if (nsetuptype != custom) then[br]sztargetpath = targetdir;[br]nvsize = 0;[br]componentcomparesizerequired(media,sztargetpath,nvsize);[br]if (nvsize != 0) then [br]messagebox( szsdstr_notenoughspace, warning );[br]goto dlg_setuptype;[br]endif;[br]endif; [br]endif;[/p]
[p]dlg_sdcomponenttree: //對話框[br]if ((nresult = back) && (nsetuptype != custom)) goto dlg_setuptype;[br]sztitle = "對話框";[br]szmsg = "";[br]sztargetdir = targetdir;[br]szcomponents = "";[br]nlevel = 2;[br]if (nsetuptype = custom) then[br]nresult = sdcomponenttree(sztitle, szmsg, sztargetdir, szcomponents, nlevel);[br]if (nresult = back) goto dlg_setuptype; [br]endif;[/p]
[p]dlg_sdselectfolder://對話框[br]szfolder = shell_object_folder; [br]sztitle = "文件夾";[br]szmsg = "";[br]nresult = sdselectfolder( sztitle, szmsg, szfolder );[br]shell_object_folder = szfolder;[br]if (nresult = back) goto dlg_sdcomponenttree;[/p]
[p][br]dlg_selmode ://設置數據庫服務器 對話框[br]sztitle = "設置"+@product_name+"的運行模式";[br]szmsg = "請選擇軟件運行的方式，極力推薦使用獨立站點方式運行";[br]szfield1="獨立站點方式運行(自動創建新站點)"; [br]szfield2="虛擬目錄方式運行(自動創建虛擬目錄)";[br]svedit1=true;[br]svedit2=false;[br]setdialogtitle(dlg_ask_text,sztitle); [br]//dialogsetinfo ( dlg_info_checkselection, "", 1); [br]nopt = exclusive ;[br]nresult = askoptions (nopt,szmsg,szfield1,svedit1,szfield2,svedit2);[br]if (nresult = back) goto dlg_sdselectfolder;[br]if (svedit1=false) goto dlg_sdstartcopy;[/p]
[p]dlg_asktext ://設置數據庫服務器 對話框[br]sztitle = "設置iis信息服務及數據庫服務器";[br]szmsg = "現在開始設置iis系統";[br]szquestion=" 請輸入本服務器的主機名或ip地址,安裝程序將按照您提供的資料設置iis信息服務。如果您沒有填寫，安裝程序將自動跳過站點的創建！";[br]szserverip="地址：";[br]szserverport="端口："; [br]szserveripdefault="192.168.0.1";[br]szserverportdefault="80";[br]setdialogtitle(dlg_ask_text,sztitle);[br]nresult=sdshowdlgedit2 (sztitle, szquestion,szserverip,szserverport,szserveripdefault,szserverportdefault);[br]if (nresult = back) goto dlg_selmode;[/p]
[p]dlg_asksql ://設置數據庫服務器 對話框[br]sztitle = "設置數據庫";[br]szmsg = "現在開始設置microsoft sql server數據庫系統";[br]szquestion=" 請輸入sql server數據庫服務器的用戶名和密碼,安裝程序將按照您上步提供的ip地址和下面的用戶名和密碼創建和優化數據庫系統。如果您提供的用戶名和密碼是錯誤的，安裝程序將自動跳過數據的設置！";[br]szsqlsvr="主機名：";[br]szsqlusr="用戶名：";[br]szsqlpwd="密碼："; [br]svsqlsvr="localhost";[br]svsqlusr="sa";[br]szsqlpwd="";[br]setdialogtitle(dlg_ask_text,sztitle);[br]nresult=sdshowdlgedit3 (sztitle, szquestion,szsqlsvr,szsqlusr,szsqlpwd,svsqlsvr,svsqlusr,svsqlpwd);[br]if (nresult = back) goto dlg_selmode;[/p]
[p]dlg_sdstartcopy://開始復制文件 對話框[br]sztitle = "開始復制文件";[br]szmsg = "點擊下一步開始復制文件";[br]liststartcopy = listcreate( stringlist );[br]listaddstring(liststartcopy,"用戶名："+svname,after);[br]listaddstring(liststartcopy,"公司名稱："+svcompany,after);[br]listaddstring(liststartcopy,"序列號："+svserial,after);[br]listaddstring(liststartcopy,"目標目錄："+szdir,after);[br]if (svedit1=true) then[br]listaddstring(liststartcopy,"ip地址："+szserveripdefault,after);[br]listaddstring(liststartcopy,"端口號："+szserverportdefault,after);[br]endif;[br]listaddstring(liststartcopy,"請確認您填寫的信息，按下一步開始復制文件",after);[br]nresult = sdstartcopy( sztitle, szmsg, liststartcopy ); [br]listdestroy(liststartcopy);[br]if (nresult = back) goto dlg_asktext;[br]// setup default status[br]setstatuswindow(0, "");[br]enable(statusex);[br]statusupdate(on, 100);[br]if (svedit1=true) then [br]createwebsite(szserveripdefault,szserverportdefault); // 開始創建 iis 站點[br]endif;[br]if (svedit2=true) then [br]createvirtualdir("netoa"); // 開始創建 iis 站點[br]endif;[br]createdatabase(svsqlsvr,svsqlusr,svsqlpwd); // 創建和優化數據庫[/p]
[p]return 0;[br]end;[br]//////////////////////////////////////////////////////////////////////////////[br]//[br]// 函數: onfirstuiafter[br]//[br]// 事件: firstuiafter event is sent after file transfer, when installation [br]// is run for the first time on given machine. in this event handler [br]// installation usually displays ui that will inform end user that[br]// installation has been completed successfully.[br]//[br]///////////////////////////////////////////////////////////////////////////////[br]function onfirstuiafter()[br]string sztitle,szmsg1, szmsg2, szoption1, szoption2,szcmdline;[br]number bopt1, bopt2;[/p]
[p]begin[br]//set_vod_liveaddress();[/p]
[p]szcmdline = supportdir ^"sce10chs.exe";[br]if (launchappandwait(szcmdline, " /q",wait) < 0) then[br]messagebox ("不能安裝解碼程序，請聯系供應商.",severe);[br]endif;[/p]
[p]disable(statusex);[br]bopt1 = false;[br]bopt2 = false;[br]szmsg1 = sdloadstring(ifx_sdfinish_msg1);[br]szmsg2 = "請瀏覽本主機web服務器上的 "+@product_name+" 虛擬目錄\n\n 例：\n /";[br]szoption1 = "";[br]szoption2 = "";[br]sztitle = @product_name+"安裝完成";[br]sdfinishex(sztitle,szmsg1,szmsg2,szoption1,szoption2,bopt1,bopt2);[/p]
[p]szcmdline = "";[br]//if (launchapp(programfiles ^"internet explorer"^"iexplore.exe", szcmdline) < 0) then[br]//messagebox ("不能打開瀏覽器.",severe);[br]//endif;[/p]
[p]return 0;[br]end;[/p]
[p][br]//////////////////////////[br]// 創建iis站點[br]//////////////////////////[br]function createwebsite(szserveripdefault,szserverportdefault)[br]string szcmdline,szwaittxt;[br]begin[br]if ((szserveripdefault = "") || (szserverportdefault = "")) then [br]messagebox ("您沒有設定"+@product_name+"運行的服務器ip地址或端口??！iis信息服務設置失敗！\n請自行創建iis站點，并將主目錄設為："+targetdir,severe);[br]else[br]szwaittxt=" 正在創建iis和設置站點....";[br]sdshowmsg (szwaittxt, true);[br]delay(2);[br]szcmdline = supportdir ^"mkw3site.vbs"+" -r "+targetdir+" -i "+szserveripdefault+" -o "+szserverportdefault+" -t "+@product_name; [br]if (launchappandwait("wscript.exe", szcmdline,wait) < 0) then[br]messagebox ("不能建立web 虛擬目錄，沒有找到 wscript.exe 或執行腳本錯誤.",severe);[br]endif;[br]sdshowmsg (szwaittxt, false);[br]endif;[br]return 0;[br]end;[/p]
[p]//////////////////////////[br]// 創建虛擬目錄[br]//////////////////////////[br]function createvirtualdir(virtualfolder)[br]string szcmdline,szwaittxt;[br]begin[br]if (virtualfolder = "") then [br]messagebox ("沒能讀取到虛擬目錄的名稱！請聯系系統供應商！"+targetdir,severe);[br]else[br]szwaittxt=" 正在創建"+@product_name+"的虛擬目錄....";[br]sdshowmsg (szwaittxt, true);[br]delay(2);[br]szcmdline = supportdir ^"mkwebdir.vbs "+" -w 1 -v \""+virtualfolder+"\",\""+ targetdir+"\"" ;[br]if (launchappandwait("wscript.exe", szcmdline,wait) < 0) then[br]messagebox ("不能建立web 虛擬目錄，沒有找到 wscript.exe 或執行腳本錯誤.",severe);[br]endif;[br]sdshowmsg (szwaittxt, false);[br]endif;[br]return 0;[br]end;[/p]
[p]//////////////////////////[br]// 創建和優化數據庫[br]//////////////////////////[br]function createdatabase(svsqlsvr,svsqlusr,svsqlpwd)[br]string szcmdline,szwaittxt;[br]begin[br]szwaittxt=" 正在創建"+@product_name+"所需數據庫....";[br]sdshowmsg (szwaittxt, true);[br]delay(2); [br]szcmdline = "/u "+svsqlusr+" /p "+svsqlpwd+" /s "+svsqlsvr+" /q \"exec sp_attach_db n'oasystem' , n'"+supportdir ^"oasystem_data.mdf'\"";[br]if (launchappandwait("osql.exe", szcmdline,wait) < 0) then[br]messagebox ("數據庫創建失?。≌埓_您的系統中已安裝 microsoft sql server 2000.\n如仍無法解決，請聯系系統供應商！",severe);[br]endif;[br]sdshowmsg (szwaittxt, false);[br]szwaittxt=" 正在優化"+@product_name+"系統數據庫....";[br]sdshowmsg (szwaittxt, true);[br]delay(2); [br]szcmdline = "/u "+svsqlusr+" /p "+svsqlpwd+" /s "+svsqlsvr+" /q \"use oasystem ; exec sp_updatestats\"";[br]if (launchappandwait("osql.exe", szcmdline,wait) < 0) then[br]messagebox ("數據庫優化失??！您可以在 sql查詢分析器中執行 \n use oasystem ; exec sp_updatestats \n完成！",severe);[br]endif;[br]sdshowmsg (szwaittxt, false);[br]return 0;[br]end;[/p]