网站安装文件制作

 setup.rul

做的是繁体的 简体下面有些文字显示乱码

将就看吧

不懂的发邮件

 

1.                                               
2. //
3. // File Name: Setup.rul
4. //
5. // Description: InstallShield script
6. //
7. // Comments: This script was generated based on the selections you made in
8. // the Project Wizard. Refer to the help topic entitled "Modify
9. // the script that the Project Wizard generates" for information
10. // on possible next steps.
11. //
15. // Include header files
17. #include "ifx.h"
19. // string defines 
21.  installation declarations ///
23. // ----- DLL function prototypes -----
26. // your DLL function prototypes
29. // ---- script function prototypes -----
32. // your script function prototypes
33. prototype CreateDataBase(STRING,STRING,STRING,STRING,STRING);//戈畐
34. prototype CreateWebSite(STRING,STRING);//IIS
35. prototype CreateVirtualDir(STRING);//店览ヘ魁
36. prototype CheckIIS(); //浪代琌杆iis
37. prototype Checkie(); //浪代ieセ
38. prototype Checkmdac(); //浪代mdacセ
39. prototype regcom(); //爹jamil舱ン
40. prototype DelIIS(STRING);//埃店览ヘ魁
41. prototype Writeini(STRING,STRING,STRING,STRING,STRING,STRING,BOOL);
42. prototype DelDataBase(STRING,STRING,STRING,STRING);   
43. prototype UpdateKey(STRING,STRING,STRING);//戈畐  
44. prototype BOOL DoesDatabaseExist(STRING, STRING, STRING, STRING, STRING);
45. prototype STRING GetServiceName();
46. // your global variables
50. //
51. //
52. // FUNCTION: OnFirstUIBefore
53. //
54. // EVENT: FirstUIBefore event is sent when installation is run for the first
55. // time on given machine. In the handler installation usually displays
56. // UI allowing end user to specify installation parameters. After this
57. // function returns, FeatureTransferData is called to perform file
58. // transfer.
59. //
60. ///
61. function OnFirstUIBefore()
63. number nResult,nSetupType;
64. string szTitle, szMsg;
65. string szLicenseFile, szQuestion;
66. string szName, szCompany, szSerial;
67. string szFeatures, szTargetdir;
68. number nLevel;
69. LIST listStartCopy,list;
70. number nvSize;
71. number nUser;
73. number nOpt,svEdit1,svEdit2;
74. STRING szServerIP,szServerPort,szServerIPDefault,szServerPortDefault;
75. STRING szSQLsvr,szSQLusr,szSQLpwd,svSQLsvr,svSQLusr,svSQLpwd , svDatabaseName,svDataOwner;
76. STRING svName, svCompany, svSerial;
77. STRING szFile,szTargetPath,szDir,szfolder;
78. STRING szField1,szField2;
79. STRING szDefault,svResult;
80. string szComponents;
81. OBJECT piisObj;
82. STRING szTitle1;
83. STRING szMsg1,szMsg2;
84. STRING szMsg11, szMsg12, szOpt1, szOpt2;
85. BOOL bvOpt1, bvOpt2;
86. begin
87. // TO DO: if you want to enable background, window title, and caption bar title
88. //SetTitle( @PRODUCT_NAME, 24, WHITE );
89. // SetTitle( @PRODUCT_NAME, 0, BACKGROUNDCAPTION );
90. // Enable( FULLWINDOWMODE );
91. // Enable( BACKGROUND );
92. // SetColor(BACKGROUND,RGB (0, 128, 128));
93. //SetFont (FONT_TITLE, STYLE_NORMAL, "Ш砰");
94. //SHELL_OBJECT_FOLDER = @PRODUCT_NAME;
96. TARGETDIR = "C:"^"inetpub"^"infofaq"; 
97. szDir = TARGETDIR;         
98. szName = "刚ノノめ";
99. szCompany = "infofaq";
101. Dlg_Start:
102. // beginning of dialogs label
103. /*
104. Dlg_SdWelcome:
105. szTitle = "";
106. szMsg = "";
107. nResult = SdWelcome( szTitle, szMsg );
108. if (nResult = BACK) goto Dlg_Start;
110. Dlg_SdLicense:
111. szLicenseFile = SUPPORTDIR ^ "license.txt";
112. szTitle = "";
113. szMsg = "";
114. szQuestion = "";
115. nResult = SdLicense( szTitle, szMsg, szQuestion, szLicenseFile );
116. if (nResult = BACK) goto Dlg_SdWelcome;
118. Dlg_SdCustomerInformation:
119. szMsg = "";
120. szTitle = "";
121. nResult = SdCustomerInformation( szTitle, szName, szCompany, nUser );
122. if (nResult = BACK) goto Dlg_SdLicense;
123. */
124. Dlg_SelMode ://砞竚戈畐狝竟 癸杠よ遏    
125. if !CheckIIS() then
126.     MessageBox ("筿福⊿Τ杆IIS叫杆刚",SEVERE); 
127.     abort;
128. endif;
129. RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );   
130. if (RegDBKeyExist ("SOFTWARE//Microsoft//.NETFramework" ) != 1) then  
131.     /*
132.     MessageBox ("眤╰参⊿Τ杆.net琜瞷秨﹍杆.NETFramework2.0",INFORMATION);        
133.     if(LaunchAppAndWait ( SUPPORTDIR ^"dotnetfx.exe " , "" ,WAIT)<0) then
134.         MessageBox ("杆.net琜祇ネ種叫穝杆",SEVERE);
135.         abort;
136.     endif;
137.     */
138.     MessageBox ("杆.net琜祇ネ種叫杆刚",SEVERE);
139. endif;
140. if !Checkmdac() then//狦竒杆玥铬筁
141.     if(LaunchAppAndWait (SUPPORTDIR^"mdac_typ.exe","",WAIT)<0) then
142.         MessageBox ("杆稬硁戈砐拜じン琌祇ネ叫穝杆",SEVERE);
143.         abort;
144.     endif;
145. endif;
146.               
147. Dlg_AskOptions://砞竚IIS翴┪店览ヘ魁  
148.     bvOpt1 = TRUE;
149.     bvOpt2 = FALSE;                                                   
150.     nResult = AskOptions (EXCLUSIVE, "叫匡拒眤惠杆セ╰参店览ヘ魁临琌翴", "店览ヘ魁", bvOpt1, "IIS翴",bvOpt2);
151.     if (nResult = BACK) goto Dlg_SelMode;
152.     Dlg_AskText ://砞竚狝竟癸杠よ遏
153.     if (bvOpt2) then
154.         szTitle = "砞竚IIS戈癟狝竟";
155.         szMsg = "瞷秨﹍砞竚IIS╰参";
156.         szQuestion=" 叫块セ狝竟诀┪IP,杆祘Α盢酚眤矗ㄑ戈砞竚IIS戈癟狝叭狦眤⊿Τ恶糶杆祘Α盢笆铬筁翴承";
157.         szServerIP="";
158.         szServerPort="狠";
159.         szServerIPDefault="127.0.0.1";
160.         szServerPortDefault="80";
161.         SetDialogTitle(DLG_ASK_TEXT,szTitle);
162.         nResult=SdShowDlgEdit2 (szTitle, szQuestion,szServerIP,szServerPort,szServerIPDefault,szServerPortDefault);
163.         if (nResult = BACK) goto Dlg_AskOptions;   
164.     else  
165.         szTitle = "砞竚店览ヘ魁";
166.         szMsg = "瞷秨﹍砞竚店览ヘ魁";
167.         szQuestion="叫块店览ヘ魁嘿";
168.         szServerIP="店览ヘ魁嘿";
169.         szServerIPDefault="infofaq";
170.         SetDialogTitle(DLG_ASK_TEXT,szTitle);
171.         nResult=SdShowDlgEdit1(szTitle, szQuestion,szServerIP,szServerIPDefault);
172.         if (nResult = BACK) goto Dlg_AskOptions;  
173.     endif;
175. Dlg_AskSQL ://砞竚戈畐狝竟 癸杠よ遏
176. szTitle = "砞竚戈畐1";
177. szMsg = "瞷秨﹍砞竚戈畐";
178. szQuestion="叫龄戈畐狝竟ㄏノ嘿ㄏノ盞絏狦眤矗ㄑㄏノ嘿㎝盞絏琌岿粇杆祘Α盢笆铬筁戈畐砞竚";
179. szSQLsvr="戈畐";
180. szSQLusr="ㄏノ嘿";
181. szSQLpwd="ㄏノ盞絏";
182. svSQLsvr=".";
183. svSQLusr="sa";
184. svSQLpwd=""; ;
185. SetDialogTitle(DLG_ASK_TEXT,szTitle);
186. nResult=SdShowDlgEdit3 (szTitle, szQuestion,szSQLsvr,szSQLusr,szSQLpwd,svSQLsvr,svSQLusr,svSQLpwd);
187. if (nResult = BACK) goto Dlg_AskText;
189. Dlg_AskSQL2 ://砞竚戈畐狝竟 癸杠よ遏
190. szTitle = "砞竚戈畐2";
191. szMsg = "膥尿砞竚戈畐";
192. szQuestion=" 叫块赣戈畐嘿㎝局Τ局Τぃ恶糶";      
193. svDatabaseName="InfoFAQ";
194. svDataOwner="";
195. SetDialogTitle(DLG_ASK_TEXT,szTitle);
196. nResult=SdShowDlgEdit2 (szTitle, szQuestion,"戈畐嘿","戈畐局Τ",svDatabaseName,svDataOwner);
197. if (nResult = BACK) goto Dlg_AskSQL;  
199. szMsg = "/U "+svSQLusr+" /P "+svSQLpwd+" /S "+svSQLsvr+" /i /""+SUPPORTDIR^"kill.sql/"";
200. LaunchAppAndWait("osql.exe", szMsg,WAIT);
203. if(DoesDatabaseExist(svSQLsvr,svDatabaseName, "SQL Server",svSQLusr,svSQLpwd))then
204.     bvOpt1 = TRUE;       
205.     nResult = AskOptions (NONEXCLUSIVE, svDatabaseName+"计沮畐竒盢滦籠Τ"+svDatabaseName+"计沮畐琌称Τ"+svDatabaseName+"计沮畐:", "称Τ"+svDatabaseName+"计沮畐", bvOpt1);
206.     if (nResult = BACK) goto Dlg_AskSQL2;
207.     if (bvOpt1) then  
208.         szMsg = "/U "+svSQLusr+" /P "+svSQLpwd+" /S "+svSQLsvr+" /Q /"backup database /""+svDatabaseName+"/" to disk ='c://"+svDatabaseName+".dmp'/"";
209.         LaunchAppAndWait("osql.exe", szMsg,WAIT);
210.         MessageBox ("戈畐竒称c://"+svDatabaseName+".dmp",INFORMATION);
211.         //szMsg = "/U "+svSQLusr+" /P "+svSQLpwd+" /S "+svSQLsvr+" /Q /"DROP DATABASE /""+svDatabaseName+"/"/"" ;
212.         //szMsg = "/U "+svSQLusr+" /P "+svSQLpwd+" /S "+svSQLsvr+" /Q /"exec sp_dbremove N'"+svDatabaseName+"'" ;
213.         //LaunchAppAndWait("osql.exe", szMsg,WAIT); 
214.         DelDataBase(svSQLsvr , svSQLusr,svSQLpwd,svDatabaseName);
215.     endif; 
216. endif;
218. Dlg_SdAskDestPath:
219. szTitle = "";
220. szMsg = "";
221. nResult = SdAskDestPath( szTitle, szMsg, szDir, 0 );
222. TARGETDIR = szDir;              
223. if (nResult = BACK) goto Dlg_AskSQL2;
225. Dlg_SdStartCopy:
226. szTitle = "";
227. szMsg = "";
228. szTitle1 = "杆ア毖";
229. szMsg11 = "パ杆祇ネ種旧璓杆ア毖";
230. szMsg12 = "翴阑ЧΘ癶杆";
231. szOpt1 = "";
232. szOpt2 ="";
233. listStartCopy = ListCreate( STRINGLIST );
234. //ListAddString(listStartCopy,"ノめ"+szName,AFTER);
235. //ListAddString(listStartCopy,"そ嘿┯穟戈癟俱Τそ",AFTER);
236. //ListAddString(listStartCopy,"硁ン嘿絬醚恨瞶╰参",AFTER);
237. ListAddString(listStartCopy,"ヘ夹ヘ魁"+szDir,AFTER);
238. //if (svEdit1=TRUE) then
239. //ListAddString(listStartCopy,"IP"+szServerIPDefault,AFTER);
240. //ListAddString(listStartCopy,"狠"+szServerPortDefault,AFTER);
241. //endif;
242. ListAddString(listStartCopy,"叫絋粄眤恶糶戈癟˙秨﹍狡籹郎",AFTER);
244. // listStartCopy = ListCreate( STRINGLIST );
245. //The following is an example of how to add a string(szName) to a list(listStartCopy).
246. //eg. ListAddString(listStartCopy,szName,AFTER);
247. nResult = SdStartCopy( szTitle, szMsg, listStartCopy );
248. ListDestroy(listStartCopy);
249. if (nResult = BACK) goto Dlg_SdAskDestPath;
251. Enable(STATUSEX);    
252. StatusUpdate(ON, 100);                 
254. // regcom();//爹舱ン                
255. if (bvOpt2) then 
256.     CreateWebSite(szServerIPDefault,szServerPortDefault); // 秨﹍承 IIS 翴 
257. else
258.     CreateVirtualDir(szServerIPDefault); 
259. endif;  
260. if(LaunchAppAndWait("CACLS.exe", "/""+TARGETDIR^"uploadFiles/" /T /E /C /G everyone:F",WAIT)<0) then
261.     MessageBox (TARGETDIR^"uploadFiles"+"ゅンЖ舦砞竚ア毖叫も砞竚糶", SEVERE);
262. endif;
263. CreateDataBase(svSQLsvr,svSQLusr,svSQLpwd,svDatabaseName , svDataOwner); // 承㎝ 纔て戈畐
264. Writeini(svSQLsvr,svSQLusr,svSQLpwd,szServerIPDefault,TARGETDIR , svDatabaseName,bvOpt2);//糶iniゅン   
265. return 0;
266. end;
268. ///
269. //
270. // FUNCTION: OnMaintUIBefore
271. //
272. // EVENT: MaintUIBefore event is sent when end user runs installation that
273. // has already been installed on the machine. Usually this happens
274. // through Add/Remove Programs applet. In the handler, installation
275. // usually displays UI allowing end user to modify existing installation
276. // or uninstall application. After this function returns,
277. // FeatureTransferData is called to perform file transfer.
278. //
279. ///
280. function OnMaintUIBefore()
281. NUMBER nResult, nType;
282. STRING szTitle, szMsg, svDir, svResult, szCaption , svMatchingFileName;
283. STRING svip,svuser,svpass , szServerIPDefault,szCmdLine , installpath , svDatabaseName; 
284. BOOL   bvOpt1;   
285. begin
286. // TO DO: if you want to enable background, window title, and caption bar title
287. // SetTitle( @PRODUCT_NAME, 24, WHITE );
288. // SetTitle( @PRODUCT_NAME, 0, BACKGROUNDCAPTION );
289. // SetColor(BACKGROUND,RGB (0, 128, 128));
290. // Enable( FULLWINDOWMODE );
291. // Enable( BACKGROUND );
293. Dlg_Start:
294. Disable(BACKBUTTON);
295. nType = SdWelcomeMaint(szTitle, szMsg, MODIFY);
296. Enable(BACKBUTTON);
298. if (nType = REMOVEALL) then
299. svResult = SdLoadString(IFX_MAINTUI_MSG);
300. szCaption = SdLoadString(IFX_ONMAINTUI_CAPTION);
301. nResult = SprintfBox(MB_OKCANCEL,szCaption,"%s",svResult);
302. if (nResult = IDCANCEL) goto Dlg_Start;
303. endif;
305. nResult = NEXT;
307. Dlg_SdFeatureTree:
308. if (nType = MODIFY) then
309. szTitle = "";
310. szMsg = "";
311. nResult = SdFeatureTree(szTitle, szMsg, TARGETDIR, "", 2);
312. if (nResult = BACK) goto Dlg_Start;
313. endif;
315. switch(nType)
316. case REMOVEALL: FeatureRemoveAll();
317. case REPAIR: FeatureReinstall();
318. endswitch;       
321. GetProfString (WINSYSDIR^"dbconn.ini", "dbconnection","server", svip);
322. GetProfString (WINSYSDIR^"dbconn.ini", "dbconnection","db_user", svuser);
323. GetProfString (WINSYSDIR^"dbconn.ini", "dbconnection","db_pass", svpass); 
324. GetProfString (WINSYSDIR^"dbconn.ini", "webwork","iis", szServerIPDefault);  
325. GetProfString (WINSYSDIR^"dbconn.ini", "installpath","path", installpath);
326. GetProfString (WINSYSDIR^"dbconn.ini", "dbconnection","db_name",svDatabaseName);
327. //svall=svip+","+svuser+","+svpass;
328. // SdShowMsg(svall,WAIT);
329. // Delay(5);                    
330. szMsg = "/U "+svuser+" /P "+svpass+" /S "+svip+" /i /""+SUPPORTDIR^"kill.sql/"";
331. LaunchAppAndWait("osql.exe", szMsg,WAIT);
333. Disable(BACKBUTTON);
334. SdShowMsg("タ氨ゎ翴",   TRUE);     
335. Sprintf(szCmdLine , SUPPORTDIR^"adsutil.vbs STOP_SERVER   w3svc/1/root/"^szServerIPDefault);   
336. LaunchAppAndWait("CScript.exe",   szCmdLine,   WAIT);   
337. SdShowMsg("タ氨ゎ翴",   FALSE);   
339. DelIIS(szServerIPDefault);  
340. bvOpt1 = FALSE;    
341. nResult = AskOptions (NONEXCLUSIVE, "琌埃肚郎Ж:", "埃"+installpath^"uploadFiles", bvOpt1);
342. if (bvOpt1) then
343.     if (DeleteDir (installpath^"uploadFiles", ALLCONTENTS) != 0) then
344.         MessageBox ("埃ゅンЖ岿叫も笆埃"+installpath^"uploadFiles", SEVERE);
345.     endif;
346. endif; 
347. bvOpt1 = FALSE;       
348. nResult = AskOptions (NONEXCLUSIVE, "琌埃计沮畐:", "埃计沮畐", bvOpt1);
349. if (bvOpt1) then    
350.     DelDataBase(svip,svuser,svpass , svDatabaseName);    
351.     DeleteDir(installpath^"database", ALLCONTENTS);
352. endif;  
354. szCmdLine = "/U "+svuser+" /P "+svpass+" /S "+svip+" /Q /"xuweikillspid /""+svDatabaseName +"/"/"";
355. LaunchAppAndWait("osql.exe", szCmdLine,WAIT);
356.           
357. while(FindFile (installpath, "*.*", svMatchingFileName) = 0)
358.       DeleteFile(installpath^svMatchingFileName);
359. endwhile;    
360.      
361. Enable(STATUSEX);
363. end;
365. //   
366. //   承IIS翴   
367. //   
368. function  CreateWebSite(szServerIPDefault,szServerPortDefault)   
369.     STRING   szCmdLine,szWaitTxt ,strtime;  
370.     BOOL  bvOpt1;  
371.     NUMBER nvResult;
372.     begin    
373.         szWaitTxt="   タ承翴....";   
374.         SdShowMsg   (szWaitTxt,   TRUE);   
375.         Delay(2);    
376.         GetSystemInfo ( TIME, nvResult, strtime); 
377.         StrReplace(strtime,":","",0);
378.         //szCmdLine   =   SUPPORTDIR^"mkw3site.vbs"+"  -r /""+TARGETDIR+"/"   -i "+szServerIPDefault+" -o "+szServerPortDefault+" -t infofaq"+strtime;
379.         szCmdLine   =   SUPPORTDIR^"mkw3site.vbs"+"  -r /""+TARGETDIR+"/"   -i "+szServerIPDefault+" -o "+szServerPortDefault+" -t infofaq";          
380.         //szCmdLine   =   SUPPORTDIR^"mkw3site.vbs"+"   -r   /""+TARGETDIR+"   -i   /""+szServerIPDefault+"   -o   /""+szServerPortDefault;     
381.         if (LaunchAppAndWait("WScript.exe",   szCmdLine,WAIT)   <   0)   then   
382.             MessageBox   ("ぃミ翴⊿Τт   WScript.exe   ┪磅︽竲セ岿粇.",SEVERE);   
383.             abort;
384.         endif;     
385.         SdShowMsg   (szWaitTxt,   FALSE);  
386.     return   0;   
387.     end;   
389. //   
390. //   承店览ヘ魁   
391. //   
392. function   CreateVirtualDir(VirtualFolder)   
393.     STRING   szCmdLine,szWaitTxt;    
394.     BOOL  bvOpt1;
395.     begin    
396.         szWaitTxt="   タ承店览ヘ魁....";   
397.         SdShowMsg   (szWaitTxt,   TRUE);   
398.         Delay(2);   
399.         szCmdLine = SUPPORTDIR^"mkwebdir.vbs"+" -w 1 -v /""+VirtualFolder+"/",/""+TARGETDIR+"/"";   
400.         if(LaunchAppAndWait("WScript.exe",   szCmdLine,WAIT)   <   0)   then   
401.             MessageBox   ("ぃミWEB   店览ヘ魁⊿Τт   WScript.exe   ┪磅︽竲セ岿粇.",SEVERE);   
402.             abort;
403.         endif;           
404.         SdShowMsg   (szWaitTxt,   FALSE);    
405.         return   0;   
406.     end;       
407.     
408. //
409. // 耞计沮畐
410. //  
411. function STRING GetServiceName()   
412. string szKey, szName, svValue;
413. number nvSize, nvType;
415. begin
417.     szKey = "System//CurrentControlSet//Control//ComputerName//ComputerName";
418.     
419.     szName = "ComputerName";
420.     RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
421.     RegDBGetKeyValueEx(szKey, szName, nvType, svValue, nvSize);
423.     return svValue;
424.     
425. end;     
426. //
427. // 耞计沮畐
428. //         
429. function BOOL DoesDatabaseExist(svServerName, svDatabaseName, svDriver, svUserName, svUserPassword) 
430.     OBJECT pADOConnObj, pADORecordSetObj;
431.     STRING szADOConnObjID, szADORecordSetObjID, szConnString, szSQL;
432.     BOOL   bExists;
433. begin
434.     bExists = FALSE;
435.          
436.     // Create ADO Connection Object to connect to the SQL server                   
437.         szADOConnObjID = "ADODB.Connection";
438.         set pADOConnObj = CreateObject(szADOConnObjID);         
439.     
440.     // Create the SQL string to complete the connection
441.     szConnString = "driver={" + svDriver + "};";
442.     szConnString = szConnString + "server=" + svServerName + ";";
443.     szConnString = szConnString + "uid=" + svUserName + ";";
444.     szConnString = szConnString + "pwd=" + svUserPassword + ";";
445.     szConnString = szConnString + "database=master";
446.     
447.     // Open the ADO Connection                    
448.     pADOConnObj.Open(szConnString);
449.     
450.     // Create ADO Recordset object for the return
451.     szADORecordSetObjID = "ADODB.Recordset";
452.     set pADORecordSetObj = CreateObject(szADORecordSetObjID);
454.     // Set some ADO Recordset properties  
455.     pADORecordSetObj.CursorType = 3;
456.     pADORecordSetObj.ActiveConnection = pADOConnObj;
457.     
458.     // Create the SQL string to retrieve the database if it exists    
459.     szSQL = "Select name from sysdatabases where name='" + svDatabaseName + "'";    
460.     
461.     // Use the recordset to see if the database exists 
462.     pADORecordSetObj.Open(szSQL);
463.     if (pADORecordSetObj.RecordCount = 1) then
464.         bExists = TRUE;
465.     endif;
466.       
467.     return bExists;        
468. end;              
469. //
470. // 承㎝纔て戈畐
471. //
472. function CreateDataBase(svSQLsvr,svSQLusr,svSQLpwd,svDatabaseName , svDataOwner)
473. STRING szCmdLine1,szWaitTxt,szdatabase,szdatabase1,path,path1,path3;   
474. BOOL  bvOpt1;
475. begin
476. path=TARGETDIR^"database//InfoFAQ_Data.mdf";
477. path3=TARGETDIR^"database//InfoFAQ_Log.ldf";
478. szWaitTxt=" タ承戈畐....";
479. SdShowMsg (szWaitTxt, TRUE);
480. Delay(2);                          
482. Disable(LOGGING);   
483. CopyFile(SUPPORTDIR^"InfoFAQ_Data.mdf",TARGETDIR^"database//InfoFAQ_Data.mdf");
484. CopyFile(SUPPORTDIR^"InfoFAQ_Log.ldf",TARGETDIR^"database//InfoFAQ_Log.ldf");
485. Enable(LOGGING);  
487. szdatabase = "/U "+svSQLusr+" /P "+svSQLpwd+" /S "+svSQLsvr+" /Q /"exec sp_attach_db N'"+svDatabaseName+"' , N'"+path+"',N'"+path3+"'/"";
488. if (LaunchAppAndWait("osql.exe", szdatabase,WAIT)<0) then;
489.     MessageBox ("戈畐承ア毖叫絋眤╰参い杆 Microsoft SQL Server./nご礚猭秆∕叫羛么╰参ㄑ莱坝",SEVERE);
490. endif;  
491. if(svDataOwner != "")then
492.     szdatabase = "/U "+svSQLusr+" /P "+svSQLpwd+" /S "+svSQLsvr+" /Q /"exec sp_addrolemember  db_owner N'"+svDataOwner+"'/"";
493.     LaunchAppAndWait("osql.exe", szdatabase,WAIT);
494. endif;
495. SdShowMsg (szWaitTxt, FALSE);  
496. return 0;
497. end;
500. //
501. //
502. //浪代琌杆iis
503. //
504. //
505. function CheckIIS()
506. NUMBER nvType, nvSize;
507. STRING svvalue;
508. begin
509. RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );
510. if (RegDBKeyExist ("System//CurrentControlSet//Services//IISADMIN" ) = 1) then
511. return (1);
512. else
513. return (0);
514. endif;
515. end;
518. //
519. //
520. //浪代ieセ
521. //
522. //
523. function Checkie()
524. NUMBER nvType, nvSize;
525. STRING svvalue,szKey,szName;
526. begin
527. szKey="SOFTWARE//Microsoft//Internet Explorer";
528. szName="version";
529. RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );
530. RegDBGetKeyValueEx(szKey, szName, nvType, svvalue, nvSize );
531. if(svvalue="6.0.2600.0000")then
532. return (0);
533. else
534. return (1);
535. endif;
536. end;
539. //
540. //浪代mdacセ
541. //
542. //
543. function Checkmdac()
544. NUMBER nvType, nvSize;
545. STRING svvalue,szKey,szName;
546. begin
547. szKey="SOFTWARE//Microsoft//DataAccess";
548. szName="version";
549. RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );
550. if(RegDBGetKeyValueEx(szKey, szName, nvType, svvalue, nvSize ) < 0 ) then
551. return (0);
552. else
553. return (1);
554. endif;
555. end;
558. //
559. //
560. //Write dbconn.ini file
561. //
562. //
563. function Writeini(svSQLsvr,svSQLusr,svSQLpwd ,szServerIPDefault,installpath , svDatabaseName , isiis)
564. string svDate,iniFile,svResult,szInfo,szWaitTxt;
565. NUMBER nvResult;
566. begin
567. //szWaitTxt="タ皌竚╰参郎叫祔獼....";
569. iniFile =SUPPORTDIR^"dbconn.ini";
570. //SdShowMsg (szWaitTxt, TRUE);
571. // Delay(2);
572. if (GetSystemInfo (DATE, nvResult, svResult) < 0) then
574. szInfo = "ぃ眔╰参丁";
576. else
577. svDate=svResult+" ";
578. endif;
580. if (GetSystemInfo (TIME, nvResult, svResult) < 0) then
582. szInfo = "ぃ眔╰参丁";
584. else
585. svDate=svDate+svResult;
586. endif;
588. if (WriteProfString(iniFile,"dbconnection","server", svSQLsvr) <0) then
589. MessageBox("dbconn.ini岿粇╰参盢礚猭笲︽", SEVERE);
590. endif;
592. if (WriteProfString(iniFile,"dbconnection","db_user",svSQLusr) <0) then
593. MessageBox("dbconn.ini岿粇╰参盢礚猭笲︽", SEVERE);
594. endif;
596. if (WriteProfString(iniFile,"dbconnection","db_pass",svSQLpwd) <0) then
597. MessageBox("dbconn.ini岿粇╰参盢礚猭笲︽", SEVERE);
598. endif;
599.     
600. if (WriteProfString(iniFile,"dbconnection","db_name",svDatabaseName) <0) then
601. MessageBox("dbconn.ini岿粇╰参盢礚猭笲︽", SEVERE);
602. endif;
604. if (WriteProfString(iniFile,"webwork","webworkstart", svDate) <0) then
605. MessageBox("dbconn.ini岿粇╰参盢礚猭笲︽", SEVERE);
606. endif;
607.   
608. if (WriteProfString(iniFile,"webwork","iis", szServerIPDefault) <0) then
609. MessageBox("dbconn.ini岿粇╰参盢礚猭笲︽", SEVERE);
610. endif;     
612. if (WriteProfInt(iniFile,"webwork","isiis", isiis) <0) then
613. MessageBox("dbconn.ini岿粇╰参盢礚猭笲︽", SEVERE);
614. endif;
616. if (WriteProfString(iniFile,"installpath","path", installpath) <0) then
617. MessageBox("dbconn.ini岿粇╰参盢礚猭笲︽", SEVERE);
618. endif;  
620. CopyFile(SUPPORTDIR^"dbconn.ini",WINSYSDIR^"dbconn.ini");
621. end;
624. //
625. //爹舱ン
626. //
627. function regcom()
628. string szLine,szWaitTxt;
629. begin
630. szLine=WINSYSDIR^"jmail.dll";
631. szWaitTxt=" タ爹舱ン....";
632. SdShowMsg (szWaitTxt, TRUE);
633. Delay(2);
634. CopyFile(SUPPORTDIR^"jmail.dll",WINSYSDIR^"jmail.dll");
635. if (LaunchAppAndWait("regsvr32.exe",szLine,WAIT)<0) then
636. MessageBox ("爹舱ンア毖叫沽刚も笆爹"+szLine,SEVERE);
637. // else
638. // MessageBox ("爹舱ンΘ"+szLine,INFORMATION);
639. //SdShowMsg (szLine, TRUE);
640. // Delay(3);
641. endif;
642. end;
644. function DelIIS(VirtualFolder)
645. STRING szCmdLine;
646. begin
647.     //埃竒店览ヘ魁
648.     szCmdLine = SUPPORTDIR ^"adsutil.vbs delete w3svc/1/root/"^VirtualFolder;
649.     if(LaunchAppAndWait("CScript.exe", szCmdLine, WAIT)<0) then
650.         MessageBox ("埃iis戈癟狝叭ア毖叫沽刚も笆埃",INFORMATION);
651.      endif;
652. end;
655. //
656. //埃戈畐
657. //
658. //
659. function DelDataBase(server,user,pass , svDatabaseName)
660. STRING szWaitTxt,szdatabase1,szdatabase2,szdatabase3,path1;
661. begin
662.                             
663. szWaitTxt=" タ埃戈畐....";
665. szdatabase2 = "/U "+user+" /P "+pass+" /S "+server+" /Q /"xuweikillspid /""+svDatabaseName +"/"/"";
666. LaunchAppAndWait("osql.exe", szdatabase2,WAIT);
667. //SdShowMsg(szdatabase2,WAIT);
668. //Delay(3);
669. szdatabase3 = "/U "+user+" /P "+pass+" /S "+server+" /Q /"DROP Database /"" +svDatabaseName+"/"/"" ;
670. LaunchAppAndWait("osql.exe", szdatabase3,WAIT);
671. //SdShowMsg(szdatabase3,WAIT);
672. //Delay(3);
673. SdShowMsg (szWaitTxt, FALSE);
674. return 0;
675. end;      
676. //---------------------------------------------------------------------------
677. // OnSetTARGETDIR
678. //
679. // OnSetTARGETDIR is called directly by the framework to initialize
680. // TARGETDIR to it's default value.
681. //
682. // Note: This event is called for all setups.
683. //---------------------------------------------------------------------------
684. function OnSetTARGETDIR()
685. number nId, nIgnore, nResult;
686. string szId, szTARGETDIR;
687. begin
689.     // In maintenance mode the value of TARGETDIR is read from the log file.
690.     if( MAINTENANCE ) then
691.         return ISERR_SUCCESS;
692.     endif;
694.     // Set TARGETDIR to script default.
695.     TARGETDIR = "<FOLDER_APPLICATIONS>//<IFX_COMPANY_NAME>//<IFX_PRODUCT_NAME>";
697.     // Read TARGETDIR from the media.
698.     nResult = MediaGetData( MEDIA, MEDIA_FIELD_TARGETDIR, nIgnore, szTARGETDIR );
700.     // Use the TARGETDIR from the media if anything was read.
701.     if( nResult >= ISERR_SUCCESS && StrLengthChars( szTARGETDIR ) ) then
702.         TARGETDIR = szTARGETDIR;
703.     endif;
704.         
705.     // Customize the default TARGETDIR for multi-instance application.
706.     // TODO: If you want something different customize the code below.  
707.     if( MAINT_OPTION = MAINT_OPTION_MULTI_INSTANCE  && MULTI_INSTANCE_COUNT > 0) then
709.         // Start with the current multi-instance count plus one.
710.         nId = MULTI_INSTANCE_COUNT + 1;
712.         // Find a unique TARGETDIR.
713.         while( ExistsDir( TARGETDIR ) = EXISTS )
714.             
715.             // Convert to string.
716.             NumToStr( szId, nId );
717.             
718.             // Update IFX_MULTI_INSTANCE_SUFFIX
719.             IFX_MULTI_INSTANCE_SUFFIX = "_" + szId;
720.         
721.             // Update TARGETDIR
722.             TARGETDIR = TARGETDIR + IFX_MULTI_INSTANCE_SUFFIX;
723.             
724.             // Update nId
725.             nId = nId + 1;
727.         endwhile;
729.     endif;
731. end;
732. //---------------------------------------------------------------------------
733. // OnFirstUIAfter
734. //
735. // First Install UI Sequence - After Move Data
736. //
737. // The OnFirstUIAfter event called by OnShowUI after the file transfer
738. // of the setup when the setup is running in first install mode. By default
739. // this event displays UI that informs the end user that the setup has been
740. // completed successfully.
741. //
742. // Note: This event will not be called automatically in a
743. // program...endprogram style setup.
744. //---------------------------------------------------------------------------
745. function OnFirstUIAfter()
746.     STRING szTitle, szMsg1, szMsg2, szOpt1, szOpt2, svSQLsvr ,svpass , svuser,szServerIPDefault,svDatabaseName;
747.     NUMBER bvOpt1, bvOpt2;
748.     NUMBER bShowUpdateServiceDlg; 
749.     BOOL isiis;
750. begin
752.     ShowObjWizardPages(NEXT);
753.     
754.     szTitle = "";
755.     szMsg1 = ""; 
756.     szMsg2 = "";
757.     szOpt1 = "";
758.     szOpt2 = "";
759.     bvOpt1   = FALSE;
760.     bvOpt2   = FALSE;  
761.     isiis = FALSE;  
763.     // Set this to true if you have the update service enabled, and if you want to check for updates.
764.     // Note: the ISUS Starter Edition does not support checking for updates programatically.  So, 
765.     // only set this to true if you have at least the ISUS Professional Edition.
766.     bShowUpdateServiceDlg = FALSE;
767.     GetProfString (WINSYSDIR^"dbconn.ini", "webwork","iis", szServerIPDefault); 
768.     GetProfString (WINSYSDIR^"dbconn.ini", "dbconnection","server", svSQLsvr);
769.     GetProfString (WINSYSDIR^"dbconn.ini", "dbconnection","db_user", svuser);
770.     GetProfString (WINSYSDIR^"dbconn.ini", "dbconnection","db_pass", svpass);                                                           
771.     GetProfString (WINSYSDIR^"dbconn.ini", "dbconnection","db_name",svDatabaseName);
772.     GetProfInt (WINSYSDIR^"dbconn.ini", "webwork","isiis", isiis);
773.     UpdateKey(TARGETDIR,"connectionString" ,"<add key=/"connectionString/" value=/""+"Server="+svSQLsvr+";UID="+svuser+";PWD="+svpass+";database="+svDatabaseName+"/"/>");
774.     UpdateKey(TARGETDIR,"DBConnection" ,"<add key=/"DBConnection/" value=/"Provider=SQLOLEDB.1;Password="+svpass+";Persist Security Info=True;User ID="+svuser+";Initial Catalog="+svDatabaseName+"Data Source="+svSQLsvr+";/">");
775.     if(isiis) then
776.         UpdateKey(TARGETDIR,"zhaofengfaq/login/login.aspx" ,"<forms loginUrl=/"/login/login.aspx/""+" protection=/"All/" timeout=/"30/" slidingExpiration=/"true/"/>");
777.         UpdateKey(TARGETDIR,"VirPath" ,"<add key=/"VirPath/" value=/"/"/>"); 
778.     else
779.         UpdateKey(TARGETDIR,"zhaofengfaq/login/login.aspx" ,"<forms loginUrl=/""+szServerIPDefault+"/login/login.aspx/""+" protection=/"All/" timeout=/"30/" slidingExpiration=/"true/"/>");
780.         UpdateKey(TARGETDIR,"VirPath" ,"<add key=/"VirPath/" value=/""+szServerIPDefault+"/"/>"); 
781.     endif;
782.     //UpdateKey(TARGETDIR,"zhaofengfaq/login/login.aspx" ,"<add key=/"FCKeditor:BasePath/" value=/""+szServerIPDefault^"/FCKeditor//"/>");
783.     //UpdateKey(TARGETDIR,"FCKeditor:UserFilesPath" ,"<add key=/"FCKeditor:UserFilesPath/" value=/""+szServerIPDefault^"/UserFiles//"/>");
784.     FileInsertLine(TARGETDIR^"Web.config", "<?xml version=/"1.0/"?>",0,REPLACE);
785.     //{{IS_SCRIPT_TAG(Dlg_SdDinishEx)
786.         
787.     Disable(LOGGING); 
788.     if (ExistsDir (TARGETDIR^"uploadFiles//PIC//admin") != EXISTS) then
789.         // The directory does not exist; create it.
790.         if (CreateDir (TARGETDIR^"uploadFiles//PIC//admin") < 0) then           
791.             MessageBox ("承"+TARGETDIR^"uploadFiles//PIC//admin"+"ゅンЖぃΘ叫も笆承", SEVERE);
792.         endif;
793.     endif;  
794.     Enable(LOGGING);
795.     
796.     if ( BATCH_INSTALL ) then
797.         SdFinishReboot ( szTitle , szMsg1 , SYS_BOOTMACHINE , szMsg2 , 0 );
798.     else
799.         
800.         // If the update service is enabled, show finish dialog that includes
801.         // update check option.
802.         if( bShowUpdateServiceDlg && ( ENABLED_ISERVICES & SERVICE_ISUPDATE ) ) then
804.             if( SdFinishUpdateEx( szTitle, szMsg1, szMsg2, szOpt1, szOpt2, TRUE ) ) then
806.                 // Don't check for updates in silent mode.
807.                 if( MODE != SILENTMODE ) then
808.                     UpdateServiceCheckForUpdates( "", FALSE );
809.                 endif;
811.             endif;
813.         else
814.             SdFinish ( szTitle , szMsg1 , szMsg2 , szOpt1 , szOpt2 , bvOpt1 , bvOpt2 );
815.         endif;
817.     endif;
818.     //}}IS_SCRIPT_TAG(Dlg_SdDinishEx)   
819. end;   
822. function UpdateKey( svFilePath, svFindEntry, svNewEntry)
823. NUMBER nResult, nvLineNumber;
824. STRING WebConfigFile, svReturnLine;
826. begin
827.   // build the path to the Web.Config     
828.   WebConfigFile = svFilePath ^ "Web.config";
830.   // search the file for the key we specify
831.   nResult = FileGrep( WebConfigFile, svFindEntry, svReturnLine, nvLineNumber, RESTART );
832.   switch(nResult)
833.    case 0:
834.     // Since this line normally appears twice in our web.config file, we're 
835.     // checking for the existence of a 2nd match and updating it instead.
836.     // If there is no 2nd match, go ahead and update the one we find.
837.     /*
838.     if ( svFindEntry = "connectionString" ) then
839.      nResult = FileGrep( WebConfigFile, svFindEntry , svReturnLine, nvLineNumber, CONTINUE );
840.      if ( nResult < 0 ) then
841.       FileGrep( WebConfigFile, svFindEntry, svReturnLine, nvLineNumber, RESTART );
842.      endif;
843.     endif;
844.     */
845.    
846.     // once we find the key, update (replace) it with our new values
847.     if ( FileInsertLine( WebConfigFile, svNewEntry, nvLineNumber, REPLACE ) < 0 ) then
848.      // hmmm we couldn't update the value of the key
849.      MessageBox( "Unable to update Web.Config file.", SEVERE );
850.     endif;         
851.    case -2:
852.     // File Not Found
853.     MessageBox( "Web.Config file not found.", SEVERE );
854.    case -4:
855.     // EOF reached
856.     MessageBox( svFindEntry + " key not found.", SEVERE );
857.    default:
858.     //unknown error
859.     MessageBox( "An unknown error has occurred. The Web.Config file has NOT been updated.", SEVERE );
860.   endswitch; 
861. end;
862. //---------------------------------------------------------------------------
863. // OnIISCheckRequirements
864. //
865. // The OnIISCheckRequirements event is called by Preprogram to make sure
866. // that the requirements for IIS runtime are met
867. //---------------------------------------------------------------------------
868. function OnIISCheckRequirements()
869. STRING szMsg;                
870. number nResult;
871. begin
872.     // if the version is not adequate, display messagebox and abort 
873.     if ( IISRTGetIISVersion( IIS_GET_VERSION_MAJOR ) < IIS_VERSION_MAJOR_MIN_SUPPORT ) then
875.         if(REMOVEALLMODE ==0) then 
876.             //IOC-000043287 do not abort if this is uninstall
877.             szMsg = SdLoadString( IDS_IFX_IIS_INADEQUATE_VERSION );
878.             MessageBox(szMsg, SEVERE);
879.             abort;
880.         endif;
882.     endif;
884. end;