用InstallShield9 進(jìn)行ASP軟件的打包和數(shù)據(jù)庫自動安裝
更新時間：2008年12月20日 00:10:29 作者：
近期公司用ASP+SQL開發(fā)辦公自動化OA，需要制作安裝程序發(fā)行，此腳本是用IS9.0制作，以此共享，與各同仁交流學(xué)習(xí)
復(fù)制代碼 代碼如下:
#define BITMAP_ID 1
#include "ifx.h" //不能移動
prototype CreateWebSite(STRING,STRING); // 創(chuàng)建 IIS 站點
prototype CreateVirtualDir(STRING); // 創(chuàng)建虛擬目錄
prototype CreateDataBase(STRING,STRING,STRING);//創(chuàng)建SQL數(shù)據(jù)庫
prototype CheckIIS(); // 示例：檢查系統(tǒng)是否安裝IIS
STRING TMP_PRODUCT_NAME,TMP_PRODUCT_VERSION,TMP_COMPANY_NAME,TMP_PRODUCT_KEY,TMP_TITLE_CAPTIONBAR;
STRING globalstr,destdir,destsvr,destsa,destpw;
NUMBER nvFileHandle,nvFileHandlebak,asaline;
BOOL iscreatedb;
STRING nSetupType,szSQLsvr,szSQLusr,szSQLpwd,szSQLsvrDefault,szSQLusrDefault,szSQLpwdDefault;
STRING szADsvr,szADusr,szADpwd,szADsvrDefault,szADusrDefault,szADpwdDefault;
STRING szADDomain,szADOU,szADDomainDefault,szADOUDefault,ADDC1;
STRING svName, svCompany, svSerial;
function OnFirstUIBefore()
NUMBER nResult,nOpt,svEdit1,svEdit2;
STRING szTitle, szMsg,szBmpPath;
STRING szLicenseFile, szQuestion;
STRING szServerIP,szServerPort,szServerIPDefault,szServerPortDefault;
STRING szFile,szTargetPath,szDir,szfolder;
STRING szComponents, szTargetdir;
STRING szField1,szField2;
STRING szDefault,svResult;
OBJECT piisObj;
LIST list,listStartCopy;
NUMBER nLevel,nvSize;
begin
TMP_PRODUCT_NAME="XXX電子政務(wù)平臺";
TMP_PRODUCT_VERSION="V2.0";
TMP_COMPANY_NAME="XXX公司";
TMP_PRODUCT_KEY="88888888";
TMP_TITLE_CAPTIONBAR="0";
szBmpPath=SUPPORTDIR^"left.bmp";
DialogSetInfo(DLG_INFO_ALTIMAGE, szBmpPath, FALSE); // 設(shè)置左邊的圖片
//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));
PlaceBitmap (szBmpPath, BITMAP_ID, 0, 0, FULLSCREEN);
//默認(rèn)值設(shè)定
TARGETDIR = "C:"^"inetpub"^@FOLDER_NAME;
szDir = TARGETDIR;
SHELL_OBJECT_FOLDER = @FOLDER_NAME;
svName = "";
svCompany = "";
svSerial = "88888888";
if (CheckIIS()==1) then // 示例：檢查系統(tǒng)是否安裝IIS
//MessageBox ("已經(jīng)安裝了ＩＩＳ，安裝繼續(xù)！",SEVERE);
goto Dlg_Start;
else
MessageBox ("該系統(tǒng)沒有安裝ＩＩＳ，請先安裝ＩＩＳ！",WARNING);
goto end_all_install;//結(jié)束安裝
endif;
Dlg_Start:// 開始對話框
Dlg_SdWelcome: //歡迎 對話框
szTitle = "歡迎安裝使用 "+TMP_PRODUCT_NAME+" "+TMP_PRODUCT_VERSION;
szMsg = "";
nResult = SdWelcome( szTitle, szMsg );
if (nResult = BACK) goto Dlg_Start;
Dlg_SdLicense://軟件許可協(xié)議 對話框
szLicenseFile = SUPPORTDIR ^ "license.txt";
szTitle = "最終用戶許可協(xié)議";
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 = "系統(tǒng)信息概述";
szMsg = "系統(tǒng)概述";
nResult = SdShowInfoList( szTitle, szMsg, list );
ListDestroy( list );
if (nResult = BACK) goto Dlg_SdLicense;
Dlg_SdRegisterUserEx://用戶信息 對話框
szMsg = "";
szTitle = "用戶信息注冊";
svCompany = "XXX省";
svSerial = "XXX單位";
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_InputADAdmin://設(shè)置AD目錄服務(wù)器的IP和用戶名
szTitle = "設(shè)置目錄(AD)服務(wù)器";
szMsg = "現(xiàn)在開始設(shè)置目錄(AD)服務(wù)器的ＩＰ、管理員帳號和密碼";
szQuestion=" 請輸入目錄(AD)服務(wù)器的管理員帳號和密碼,安裝程序?qū)凑漳峁┑腎P地址、帳號和密碼進(jìn)行配置。如果您提供的帳號或密碼錯誤的話，該系統(tǒng)將不能正常使用！";
szADsvr="IP地址:";
szADusr="帳 號:";
szADpwd="密 碼:";
szADsvrDefault="192.168.8.8";
szADusrDefault="Administrator";
szADpwdDefault="";
SetDialogTitle(DLG_ASK_TEXT,szTitle);
nResult=SdShowDlgEdit3 (szTitle, szQuestion,szADsvr,szADusr,szADpwd,szADsvrDefault,szADusrDefault,szADpwdDefault);
if (nResult = BACK) goto Dlg_SdRegisterUserEx;
Dlg_InputADDomain://設(shè)置AD目錄服務(wù)器的域和組織
szTitle = "設(shè)置目錄(AD)服務(wù)器";
szMsg = "現(xiàn)在開始設(shè)置目錄(AD)服務(wù)器的域名和組織單元";
szQuestion=" 請輸入目錄(AD)服務(wù)器的完整域名和組織單元,安裝程序?qū)凑漳峁┑男畔⑦M(jìn)行配置。如果您提供的信息錯誤的話，該系統(tǒng)將不能正常使用！";
szADDomain="完整域名:";
szADOU="組織單元:";
szADDomainDefault="xx.xx.com";
szADOUDefault="XXX域名";
SetDialogTitle(DLG_ASK_TEXT,szTitle);
nResult=SdShowDlgEdit2 (szTitle, szQuestion,szADDomain,szADOU,szADDomainDefault,szADOUDefault);
//域名轉(zhuǎn)換為３個ＤＣ
if ((StrSub ( ADDC1, szADDomain, 0, StrFindEx ( szADDomain, ".", 0 )+1))<0) then
//只取第一個，后面的固定
MessageBox("你輸入的域名有錯誤，請重新輸入！",WARNING);
goto Dlg_InputADDomain;
endif;
if (nResult = BACK) goto Dlg_SdRegisterUserEx;
Dlg_SetupType: //安裝類型 對話框
nSetupType = "完全安裝";
szTitle = "安裝類型";
szMsg = "請選擇您需要按哪種方式安裝";
nResult = SdSetupTypeEx ( szTitle , szMsg , "" , nSetupType , 0 );
if (nResult = BACK) then
goto Dlg_SdRegisterUserEx;
endif;
if (nSetupType = "僅主程序") then
goto Dlg_SdAskDestPath;
endif;
Dlg_AskSQL://設(shè)置數(shù)據(jù)庫服務(wù)器 對話框
szTitle = "設(shè)置SQL數(shù)據(jù)庫";
szMsg = "現(xiàn)在開始設(shè)置Microsoft SQL Server數(shù)據(jù)庫系統(tǒng)";
szQuestion=" 請輸入SQL SERVER數(shù)據(jù)庫服務(wù)器的用戶名和密碼,安裝程序?qū)凑漳峁┑腎P地址和下面的用戶名和密碼創(chuàng)建和優(yōu)化數(shù)據(jù)庫系統(tǒng)。如果您提供的用戶名和密碼是錯誤的，安裝程序?qū)⒆詣犹^數(shù)據(jù)的設(shè)置！";
szSQLsvr="主機(jī)名：";
szSQLusr="用戶名：";
szSQLpwd="密 碼：";
szSQLsvrDefault="192.168.8.8";
szSQLusrDefault="sa";
szSQLpwdDefault="";
SetDialogTitle(DLG_ASK_TEXT,szTitle);
nResult=SdShowDlgEdit3 (szTitle, szQuestion,szSQLsvr,szSQLusr,szSQLpwd,szSQLsvrDefault,szSQLusrDefault,szSQLpwdDefault);
if (nResult = BACK) goto Dlg_SetupType;
Dlg_SdStartCopy://開始復(fù)制文件 對話框
szTitle = "確認(rèn)數(shù)據(jù)庫信息";
szMsg = "點擊下一步繼續(xù)";
listStartCopy = ListCreate( STRINGLIST );
ListAddString(listStartCopy,"用戶名："+svName,AFTER);
ListAddString(listStartCopy,"公司名稱："+svCompany,AFTER);
ListAddString(listStartCopy,"主機(jī)名："+szSQLsvrDefault,AFTER);
ListAddString(listStartCopy,"用戶名："+szSQLusrDefault,AFTER);
ListAddString(listStartCopy,"密 碼："+szSQLpwdDefault,AFTER);
ListAddString(listStartCopy,"",AFTER);
ListAddString(listStartCopy,"請確認(rèn)您填寫的信息，按下一步繼續(xù)",AFTER);
iscreatedb=TRUE;//安裝數(shù)據(jù)庫標(biāo)志為真
destsvr=szSQLsvrDefault;
destsa=szSQLusrDefault;
destpw=szSQLpwdDefault;
nResult = SdStartCopy( szTitle, szMsg, listStartCopy );
ListDestroy(listStartCopy);
if (nResult = BACK) goto Dlg_AskSQL;
SetStatusWindow(0, "");
Enable(STATUSEX);
StatusUpdate(ON, 100);
if (nSetupType = "僅數(shù)據(jù)庫") then
goto end_all_install;
endif;
//開始主程序安裝
Dlg_SdAskDestPath://安裝位置 對話框
szTitle = "主程序安裝位置";
szMsg = "";
nResult = SdAskDestPath( szTitle, szMsg, szDir, 0 );
TARGETDIR = szDir;
destdir=szDir;
if (nResult = BACK) goto Dlg_SetupType;
Dlg_SelMode1://設(shè)置IIS服務(wù)器 對話框
szTitle = "設(shè)置"+TMP_PRODUCT_NAME+"的運(yùn)行模式";
szMsg = "請選擇軟件運(yùn)行的方式，極力推薦使用獨立站點方式運(yùn)行";
szField1="獨立站點方式運(yùn)行(自動創(chuàng)建新站點)";
szField2="虛擬目錄方式運(yùn)行(自動創(chuàng)建虛擬目錄)";
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_AskSQL;
if (svEdit1=FALSE) goto Dlg_AskText1;//選擇創(chuàng)建虛擬目錄
Dlg_AskText ://設(shè)置IIS服務(wù)器,建立站點 對話框
szTitle = "設(shè)置IIS信息服務(wù)器";
szMsg = "現(xiàn)在開始設(shè)置IIS系統(tǒng)";
szQuestion=" 請輸入本服務(wù)器的主機(jī)名或IP地址,安裝程序?qū)凑漳峁┑馁Y料設(shè)置IIS信息服務(wù)。如果您沒有填寫，安裝程序?qū)⒆詣犹^站點的創(chuàng)建！";
szServerIP="地址：";
szServerPort="端口：";
szServerIPDefault="192.168.8.8";
szServerPortDefault="80";
SetDialogTitle(DLG_ASK_TEXT,szTitle);
nResult=SdShowDlgEdit2 (szTitle, szQuestion,szServerIP,szServerPort,szServerIPDefault,szServerPortDefault);
if (nResult = BACK) goto Dlg_SelMode1;
if (nResult = NEXT) goto Dlg_SdStartCopy1;
Dlg_AskText1 ://設(shè)置IIS服務(wù)器,建立虛擬目錄 對話框
szTitle = "設(shè)置IIS信息服務(wù)器";
szMsg = "現(xiàn)在開始設(shè)置IIS系統(tǒng)";
szQuestion=" 請輸入本服務(wù)器的主機(jī)名或IP地址,安裝程序?qū)凑漳峁┑馁Y料設(shè)置IIS信息服務(wù)。如果您沒有填寫，安裝程序?qū)⒆詣犹^站點的創(chuàng)建！";
szServerIP="別名：";
szServerPort="目錄：";
szServerIPDefault="oa";
szServerPortDefault=szDir;
SetDialogTitle(DLG_ASK_TEXT,szTitle);
nResult=SdShowDlgEdit2 (szTitle, szQuestion,szServerIP,szServerPort,szServerIPDefault,szServerPortDefault);
if (nResult = BACK) goto Dlg_AskText;
Dlg_SdStartCopy1://開始復(fù)制文件 對話框
szTitle = "確認(rèn)IIS服務(wù)器信息";
szMsg = "點擊下一步繼續(xù)";
listStartCopy = ListCreate( STRINGLIST );
ListAddString(listStartCopy,"用戶名："+svName,AFTER);
ListAddString(listStartCopy,"公司名稱："+svCompany,AFTER);
ListAddString(listStartCopy,"目標(biāo)目錄："+szDir,AFTER);
if (svEdit1=TRUE) then
ListAddString(listStartCopy,"IP地址："+szServerIPDefault,AFTER);
ListAddString(listStartCopy,"端口號："+szServerPortDefault,AFTER);
endif;
if (svEdit2=TRUE) then
ListAddString(listStartCopy,"別名："+szServerIPDefault,AFTER);
ListAddString(listStartCopy,"目錄："+szServerPortDefault,AFTER);
endif;
ListAddString(listStartCopy,"",AFTER);
ListAddString(listStartCopy,"請確認(rèn)您填寫的信息，按下一步繼續(xù)",AFTER);
nResult = SdStartCopy( szTitle, szMsg, listStartCopy );
ListDestroy(listStartCopy);
if (nResult = BACK) goto Dlg_AskText1;
SetStatusWindow(0, "");
Enable(STATUSEX);
Enable(INDVFILESTATUS);
StatusUpdate(ON, 100);
if (svEdit1=TRUE) then
CreateWebSite(szServerIPDefault,szServerPortDefault); // 開始創(chuàng)建 IIS 站點
endif;
if (svEdit2=TRUE) then
CreateVirtualDir(szServerIPDefault); // 開始創(chuàng)建 IIS 站點
endif;
end_all_install://結(jié)束全部安裝
return 0;
end;
function OnFirstUIAfter()
STRING szTitle,szMsg1, szMsg2, szOption1, szOption2,szCmdLine;
NUMBER bOpt1, bOpt2;
STRING szMsg;
begin
if ((nSetupType = "完全安裝") || (nSetupType = "僅數(shù)據(jù)庫"))then
//開始創(chuàng)建數(shù)據(jù)庫
CreateDataBase(destsvr,destsa,destpw); // 創(chuàng)建和優(yōu)化數(shù)據(jù)庫
if (nSetupType = "完全安裝")then
//開始設(shè)置global.asa
OpenFileMode (FILE_MODE_NORMAL);//打開文件方式只讀
if (OpenFile (nvFileHandlebak, destdir, "global.bak") < 0) then
MessageBox ("打開配置文件失敗,請手動配置", SEVERE);
goto end_all_install1;
endif;
OpenFileMode (FILE_MODE_APPEND);//打開文件方式可寫
if (CreateFile (nvFileHandle, destdir, "global.asa") < 0) then
MessageBox ("創(chuàng)建global.asa文件失敗,請手動配置", SEVERE);
goto end_all_install1;
else//開始寫文件
asaline=1;
while (GetLine (nvFileHandlebak, globalstr) = 0)
if (asaline=15) then//此行需修改,否則原樣寫入文件:使用單位所在區(qū)域
globalstr="\"uninname=" + svCompany + "\"";
if (WriteLine(nvFileHandle, globalstr) < 0) then
MessageBox ("寫global.asa文件失敗,請手動修改", WARNING);
goto end_all_install1;
endif;
endif;
if (asaline=17) then//此行需修改,否則原樣寫入文件:單位名稱
globalstr="Application(\"thissoftuser\")=uninname & \"" + svSerial + "\"";
if (WriteLine(nvFileHandle, globalstr) < 0) then
MessageBox ("寫global.asa文件失敗,請手動修改", WARNING);
goto end_all_install1;
endif;
endif;
if (asaline=18) then//此行需修改,否則原樣寫入文件:單位名稱
globalstr="Application(\"UnitName\")=uninname & \"" + svSerial + "\"";
if (WriteLine(nvFileHandle, globalstr) < 0) then
MessageBox ("寫global.asa文件失敗,請手動修改", WARNING);
goto end_all_install1;
endif;
endif;
if (asaline=30) then//此行需修改,否則原樣寫入文件:ＳＱＬ連接
globalstr="Application(\"SqlLink\")=\"Provider=SQLOLEDB.1;Password=" + destpw + ";Persist Security Info=True;User ID=" + destsa + ";Initial Catalog=oa;Data Source=" + destsvr + "\"";
if (WriteLine(nvFileHandle, globalstr) < 0) then
MessageBox ("寫global.asa文件失敗,請手動修改", WARNING);
goto end_all_install1;
endif;
endif;
if (asaline=32) then//此行需修改,否則原樣寫入文件:ＳＱＬ連接
globalstr="Application(\"ConnectSql\")=\"Driver=SQL Server;Server=" + destsvr + ";Database=oa;UID=" + destsa + ";Initial Catalog=oa;PWD=" + destpw + "\"";
if (WriteLine(nvFileHandle, globalstr) < 0) then
MessageBox ("寫global.asa文件失敗,請手動修改", WARNING);
goto end_all_install1;
endif;
endif;
if (asaline=37) then//此行需修改,否則原樣寫入文件:ＡＤ管理員帳號
globalstr="Application(\"User_SDJSWOAVERSION\")=\"" + szADusrDefault + "@" + szADDomainDefault + "\"";
if (WriteLine(nvFileHandle, globalstr) < 0) then
MessageBox ("寫global.asa文件失敗,請手動修改", WARNING);
goto end_all_install1;
endif;
endif;
if (asaline=38) then//此行需修改,否則原樣寫入文件:ＡＤ管理員密碼
globalstr="Application(\"Password_SDJSWOAVERSION\")=\"" + szADpwdDefault + "\"";
if (WriteLine(nvFileHandle, globalstr) < 0) then
MessageBox ("寫global.asa文件失敗,請手動修改", WARNING);
goto end_all_install1;
endif;
endif;
if (asaline=61) then//此行需修改,否則原樣寫入文件:ＡＤＩＰ地址和組織單元
globalstr="Application(\"AdsPath_SDJSWOAVERSION\")=\"LDAP://" + szADsvrDefault + ":389/OU=" + szADOUDefault + ",DC=" + ADDC1 + ",DC=xxx,DC=com\"";
if (WriteLine(nvFileHandle, globalstr) < 0) then
MessageBox ("寫global.asa文件失敗,請手動修改", WARNING);
goto end_all_install1;
endif;
endif;
if (asaline=62) then//此行需修改,否則原樣寫入文件:連接ＡＤ
globalstr="Application(\"ExchangeServer_SDJSWOAVERSION\")=\"" + szADsvrDefault + ":3268/\"";
if (WriteLine(nvFileHandle, globalstr) < 0) then
MessageBox ("寫global.asa文件失敗,請手動修改", WARNING);
goto end_all_install1;
endif;
endif;
asaline=asaline+1;//下一行
endwhile;
endif;
// 關(guān)閉文件
CloseFile (nvFileHandle);
CloseFile (nvFileHandlebak);
szTitle = "創(chuàng)建配置文件";
szMsg = "恭喜，自動修改配置文件成功!";
SprintfBox (INFORMATION, szTitle, szMsg, "global.asa");
endif;
endif;
end_all_install1:
Disable(STATUSEX);
bOpt1 = FALSE;
bOpt2 = FALSE;
szMsg1 = SdLoadString(IFX_SDFINISH_MSG1);
szMsg2 = "";
szOption1 = "";
szOption2 = "";
szTitle = TMP_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;
Dlg_RebootDialog:
szTitle = "歡迎安裝使用 "+TMP_PRODUCT_NAME+" "+TMP_PRODUCT_VERSION;
szMsg = " 安裝向?qū)б呀?jīng)成功安裝該系統(tǒng)。在使用該系統(tǒng)之前，必須重新啟動計算機(jī)。";
SdFinishReboot(szTitle, szMsg, SYS_BOOTMACHINE,"",0);
return 0;
end;
//////////////////////////
// 創(chuàng)建和優(yōu)化數(shù)據(jù)庫
//////////////////////////
function CreateDataBase(svSQLsvrf,svSQLusrf,svSQLpwdf)
STRING szCmdLine,szWaitTxt,tmpstr;
begin
szWaitTxt=" 正在創(chuàng)建 "+TMP_PRODUCT_NAME+" 所需數(shù)據(jù)庫....";
SdShowMsg (szWaitTxt, TRUE);
Delay(3);
szCmdLine = "/U "+svSQLusrf+" /P "+svSQLpwdf+" /S "+svSQLsvrf+" /Q \"restore database sdjswoa from disk='" + TARGETDIR + "\\db\\oa'\"";
if (LaunchAppAndWait("osql.exe", szCmdLine,WAIT) < 0) then
tmpstr="數(shù)據(jù)庫創(chuàng)建失?。≌埓_您的系統(tǒng)中已安裝 Microsoft SQL Server 2000和SP1！";
SprintfBox (INFORMATION, "安裝提示信息", tmpstr, "");
endif;
SdShowMsg (szWaitTxt, FALSE);
szWaitTxt=" 正在優(yōu)化 "+TMP_PRODUCT_NAME+" 系統(tǒng)數(shù)據(jù)庫....";
SdShowMsg (szWaitTxt, TRUE);
Delay(3);
szCmdLine = "/U "+svSQLusrf+" /P "+svSQLpwdf+" /S "+svSQLsvrf+" /Q \"use sdjswoa ; exec sp_updatestats\"";
if (LaunchAppAndWait("osql.exe", szCmdLine,WAIT) < 0) then
tmpstr="數(shù)據(jù)庫優(yōu)化失??！請聯(lián)系相關(guān)人員或者手動安裝！";
SprintfBox (INFORMATION, "安裝提示信息", tmpstr, "");
endif;
SdShowMsg (szWaitTxt, FALSE);
return 0;
end;
//////////////////////////
// 創(chuàng)建IIS站點
//////////////////////////
function CreateWebSite(szServerIPDefault,szServerPortDefault)
STRING szCmdLine,szWaitTxt;
begin
if ((szServerIPDefault = "") || (szServerPortDefault = "")) then
MessageBox ("您沒有設(shè)定"+TMP_PRODUCT_NAME+"運(yùn)行的服務(wù)器IP地址或端口??！IIS信息服務(wù)設(shè)置失敗！\n請自行創(chuàng)建IIS站點，并將主目錄設(shè)為："+TARGETDIR,SEVERE);
else
szWaitTxt=" 正在創(chuàng)建IIS和設(shè)置站點....";
SdShowMsg (szWaitTxt, TRUE);
Delay(3);
szCmdLine = SUPPORTDIR ^"mkw3site.vbs"+" -r "+TARGETDIR+" -i "+szServerIPDefault+" -o "+szServerPortDefault+" -t "+TMP_PRODUCT_NAME;
if (LaunchAppAndWait("WScript.exe", szCmdLine,WAIT) < 0) then
MessageBox ("不能建立WEB 虛擬目錄，沒有找到 WScript.exe 或執(zhí)行腳本錯誤.",SEVERE);
endif;
SdShowMsg (szWaitTxt, FALSE);
endif;
return 0;
end;
//////////////////////////
// 創(chuàng)建虛擬目錄
//////////////////////////
function CreateVirtualDir(VirtualFolder)
STRING szCmdLine,szWaitTxt;
begin
if (VirtualFolder = "") then
MessageBox ("沒能讀取到虛擬目錄的名稱！請聯(lián)系系統(tǒng)供應(yīng)商！"+TARGETDIR,SEVERE);
else
szWaitTxt=" 正在創(chuàng)建"+TMP_PRODUCT_NAME+"的虛擬目錄....";
SdShowMsg (szWaitTxt, TRUE);
Delay(3);
szCmdLine = SUPPORTDIR ^"mkwebdir.vbs "+" -w 1 -v \""+VirtualFolder+"\",\""+ TARGETDIR+"\"" ;
if (LaunchAppAndWait("WScript.exe", szCmdLine,WAIT) < 0) then
MessageBox ("不能建立WEB 虛擬目錄，沒有找到 WScript.exe 或執(zhí)行腳本錯誤.",SEVERE);
endif;
SdShowMsg (szWaitTxt, FALSE);
endif;
return 0;
end;
function CheckIIS() // 示例：檢查系統(tǒng)是否安裝IIS
NUMBER nvType, nvSize;
STRING svvalue;
begin
RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );
if (RegDBKeyExist ("System\\CurrentControlSet\\Services\\IISADMIN" ) = 1) then
return (1);
else
return (0);
endif;
end;
相關(guān)文章
這18條背下來沒人敢和你忽悠CPU...2006-07-07
去除某些論壇帖子中自動添加的白色字體即亂碼的方法...2007-03-03
RealPlay11 安裝過程遭遇CNNIC附清除辦法...2007-11-11
刪掉這個迅雷絕不偷偷上傳了c:\windows\system32\cid_store.dat 還是一年前那句話，我支持上傳，反對偷偷上傳，請在懸浮窗中光明正大顯示上傳速率，讓我們知道你在傳什么，多少速率。這樣就不會有人罵你了2008-03-03
自己動手做DVD壓縮盤的方法與相關(guān)軟件下載...2007-03-03
最近給一朋友裝機(jī)，新電腦搞回家后我就幫他裝系統(tǒng)，現(xiàn)在當(dāng)然首選Win XP了。在要給系統(tǒng)盤分區(qū)時，原以為一個XP系統(tǒng)安裝完成后也就是占到不到2G的空間，給它分個4G就足夠了?？蓻]想到用了一段時間后他就向我告急，任務(wù)欄處總提示系統(tǒng)盤空間不足!2008-03-03
Windows win2000/2003 的桌面背景顏色的色值
Windows win2000/2003 的桌面背景顏色的色值...2007-08-08
在上篇文章中對新手朋友們關(guān)心的安全問題做了一點小小的闡述。今天，再就WIN系統(tǒng)中的注冊表問題跟大家做個探討。說實話，注冊表問題很難寫，不光是因為牽涉到了很多新手朋友們頭疼的技術(shù)問題，而且覆蓋面廣、涉及的內(nèi)容多，也很容易看花眼，但總是要寫的，所以，如果新手朋友一下看不懂的話，建議多看幾遍，多動手多驗證，這樣對提高你們對電腦的了解和維護(hù)都有很大的裨益。2008-03-03
div flash firefox div層總是被flash層遮蓋
今天測試div層和flash的交互，發(fā)現(xiàn)div層總是被flash層遮蓋，在百度上找了一會，說是加個<param name="wmode" value="transparent" />就成了，我加完后在IE下問題是解決了，但是FF下好像沒有反應(yīng)，后來才知道IE中和FF加的代碼是不一樣的2008-11-11
SYSTEM32 下的幾乎所有文件的簡單說明...2007-06-06