home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2001 July / VPR0107A.BIN / SHDOCLC.DLL / HTML / ANALYZE.DLG < prev    next >
Text File  |  2000-06-19  |  9KB  |  237 lines
  1. <HTML id=dlgAnalyze STYLE="font-family: MS UI Gothic; font-size: 9pt;
  2. width: 30em; height: 33em">
  3. <HEAD>
  4. <meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
  5. <TITLE id=dialogTitle>
  6. ドキュメントの分析
  7. </TITLE>
  8. <SCRIPT LANGUAGE="JavaScript" defer>
  9. window.onerror = HandleError
  10. function HandleError(message, url, line)
  11. {
  12. var L_Dialog_ErrorMessage = "このダイアログでエラーが発生しました。";
  13. var L_ErrorNumber_Text = "エラー : ";
  14. var str = L_Dialog_ErrorMessage + "\n\n" 
  15.  + L_ErrorNumber_Text + line + "\n"
  16.  + message;
  17. alert (str);
  18. window.close();
  19. return true;
  20. }
  21. function otherDocument() 
  22. {
  23. return window.dialogArguments.document;
  24. }
  25. function loadBdy()
  26. {
  27. document.all.btnOk.onclick = new Function("window.close();");
  28. document.onkeyup = new Function("documentOnKeyUp()");
  29. runAnalysis();
  30. } 
  31. function documentOnKeyUp()
  32. {
  33. if (window.event.keyCode == 27)
  34. {
  35.  window.close();
  36. }
  37. } 
  38. function runAnalysis() 
  39. { 
  40. var errorsFound, reportLocation;
  41. errorsFound = false;
  42. reportLocation = document.all.ReportArea;
  43. initializeResults(reportLocation);
  44. errorsFound = errorsFound || checkBodyWithinFrameset(reportLocation);
  45. errorsFound = errorsFound || checkAnythingAfterFrameset(reportLocation);
  46. errorsFound = errorsFound || checkUnloadedComponents(reportLocation);
  47. errorsFound = errorsFound || checkNonApartmentControls(reportLocation);
  48. errorsFound = errorsFound || checkUnloadedStyleSheets(reportLocation);
  49. if (errorsFound == false) {
  50.  reportNothingFound(reportLocation);
  51. }
  52. }
  53. function initializeResults(reportLocation) 
  54. {
  55. reportLocation.innerHTML = " ";
  56. }
  57. function reportNothingFound(reportLocation) 
  58. {
  59. var L_NoErrors_Text = "エラーは見つかりませんでした。";
  60. reportLocation.innerHTML = L_NoErrors_Text;
  61. }
  62. function checkBodyWithinFrameset(reportLocation) 
  63. {
  64. var theDocument;
  65. var framesets, bodies;
  66. var retVal;
  67. var L_FramesetInBody_Text = "ドキュメントの BODY 内に FRAMESET があるため、このドキュメントは正しく表示されない可能性があります。ページの作成者は次の方法でこの問題を解決できます。<OL><li>BODY タグを削除する。</li><li>ドキュメントの HEAD と FRAMESET の間に HTML コードがないことを確認する。</li></ol><br><hr>";
  68. retVal = false;
  69. theDocument = otherDocument();
  70. framesets = theDocument.all.tags("frameset");
  71. if (framesets.length > 0) {
  72.  bodies = theDocument.all.tags("body");
  73.  if (bodies.length > 0) {
  74.   reportLocation.insertAdjacentHTML("BeforeEnd", L_FramesetInBody_Text );
  75.   retVal = true;
  76.  }
  77. }
  78. return retVal;
  79. }
  80. function checkAnythingAfterFrameset(reportLocation) 
  81. {
  82. var L_ContentAfterFrameset_Text = "FRAMESET の後にコンテンツがあるため、このドキュメントは正しく表示されない可能性があります。<br><hr>";
  83. var theDocument;
  84. var framesets;
  85. var i, startIndex;
  86. var retVal;
  87. retVal = false;
  88. theDocument = otherDocument();
  89. framesets = theDocument.all.tags("frameset");
  90. if (framesets.length > 0) {
  91.  startIndex = framesets(0).sourceIndex;
  92.  if (window.dialogArguments.anythingAfterFrameset) {
  93.  reportLocation.insertAdjacentHTML("BeforeEnd", L_ContentAfterFrameset_Text );
  94.  retVal = true;
  95.  }
  96. }
  97. return retVal;
  98. }
  99. function checkUnloadedComponents(reportLocation) 
  100. {
  101. var theDocument;
  102. var objects, applets, embeds;
  103. var retVal;
  104. retVal = false;
  105. theDocument = otherDocument();
  106. objects = theDocument.all.tags("object");
  107. applets = theDocument.all.tags("applet");
  108. embeds = theDocument.all.tags("embed");
  109. retVal = checkReadyStateComplete(objects, reportLocation);
  110. retVal = retVal || checkReadyStateComplete(applets, reportLocation);
  111. retVal = retVal || checkReadyStateComplete(embeds, reportLocation);
  112. return retVal;
  113. }
  114. function checkReadyStateComplete(objects, reportLocation) 
  115. {
  116. var L_ObjectNotInstalled_Text = "次の OBJECT は正常にインストールされませんでした。<BR>";
  117. var L_AppletNotInstalled_Text = "次の APPLET は正常にインストールされませんでした。<BR>";
  118. var L_EmbedNotInstalled_Text = "次の EMBED は正常にインストールされませんでした。<BR>";
  119. var L_ObjectNotInstalledReasons_Text = "<br><br>以下に考えられる原因を述べています : <OL><LI>現在のセキュリティの設定では、この OBJECT は使用できない。</li><li>この OBJECT はコンピュータに正常にインストールされていない。</li><li>ページまたは OBJECT の作成の仕方が正しくありません。</li></ul><hr>";
  120. var L_AppletNotInstalledReasons_Text = "<br><br>以下に考えられる原因を述べています : <OL><LI>現在のセキュリティの設定では、この APPLET は使用できない。</li><li>この APPLET はコンピュータに正常にインストールされていない。</li><li>ページまたは APPLET の作成の仕方が正しくありません。</li></ul><hr>";
  121. var L_EmbedNotInstalledReasons_Text = "<br><br>以下に考えられる原因を述べています : <OL><LI>現在のセキュリティの設定では、この EMBED は使用できない。</li><li>この EMBED はコンピュータに正常にインストールされていない。</li><li>ページまたは EMBED の作成の仕方が正しくありません。</li></ul><hr>";
  122. var strNotInstalled;
  123. var strNotInstalledReason;
  124. var i, element;
  125. var retVal;
  126. retVal = false;
  127. if (objects == null) 
  128.  return retVal;
  129. for (i=0; i < objects.length; i++) {
  130.  element = objects(i);
  131.  if (element.readyState != 4 && element.readyState != "complete") {
  132.   switch (element.tagName.toLowerCase())
  133.   {
  134.   case "object":
  135.    strNotInstalled = L_ObjectNotInstalled_Text;
  136.    strNotInstalledReason = L_ObjectNotInstalledReasons_Text;
  137.    break;
  138.   case "applet":
  139.    strNotInstalled = L_AppletNotInstalled_Text;
  140.    strNotInstalledReason = L_AppletNotInstalledReasons_Text;
  141.    break;
  142.   case "embed":
  143.    strNotInstalled = L_EmbedNotInstalled_Text;
  144.    strNotInstalledReason = L_EmbedNotInstalledReasons_Text;
  145.    break;
  146.   }
  147.  reportLocation.insertAdjacentHTML("BeforeEnd", strNotInstalled);
  148.  reportLocation.insertAdjacentText("BeforeEnd", element.outerHTML);
  149.  reportLocation.insertAdjacentHTML("BeforeEnd", strNotInstalledReason);
  150.  retVal = true;
  151.  }
  152. }
  153. return retVal;
  154. }
  155. function checkNonApartmentControls(reportLocation) 
  156. {
  157. var L_ObjectNotApartmentModel_Text = "次の OBJECT はアパートメント スレッド モデルを使用していないため、一部の環境で正しく機能しない可能性があります。<br>";
  158. var theDocument;
  159. var objects;
  160. var i;
  161. var retVal;
  162. retVal = false;
  163. theDocument = otherDocument();
  164. objects = theDocument.all.tags("object");
  165. for (i=0; i < objects.length; i++) {
  166.  element = objects(i);
  167.  nonApartmentModel = checkCLSIDForNonApartmentModel(element);
  168.  retVal = retVal || nonApartmentModel;
  169.  if (nonApartmentModel == true) {
  170.  reportLocation.insertAdjacentHTML("BeforeEnd", L_ObjectNotApartmentModel_Text);
  171.  reportLocation.insertAdjacentText("BeforeEnd", element.outerHTML);
  172.  reportLocation.insertAdjacentHTML("BeforeEnd", "<br><hr>");
  173.  }
  174. } 
  175. return retVal;
  176. }
  177. function checkCLSIDForNonApartmentModel(element) {
  178. return !(window.dialogArguments.isApartmentModel(element));
  179. }
  180. function checkUnloadedStyleSheets(reportLocation) 
  181. {
  182. var theDocument;
  183. var links;
  184. var retVal;
  185. retVal = false;
  186. theDocument = otherDocument();
  187. links = theDocument.all.tags("link");
  188. retVal = checkLinkReadyStateComplete(links, reportLocation);
  189. return retVal;
  190. }
  191. function checkLinkReadyStateComplete(objects, reportLocation) 
  192. {
  193. var i, element;
  194. var retVal;
  195. var L_StyleSheetNotInstalled_Text = "次のスタイル シートはインストールされていないため、このドキュメントは正常に表示されない可能性があります : ";
  196. retVal = false;
  197. if (objects == null) 
  198.  return retVal;
  199. for (i=0; i < objects.length; i++) {
  200.  element = objects(i);
  201.  if (element.rel.toLowerCase() == "stylesheet"
  202.   || element.rel.toLowerCase() == "alternate stylesheet")
  203.  {
  204.   if (element.readyState != "complete" && element.readyState != 4) {
  205.   reportLocation.insertAdjacentHTML("BeforeEnd", L_StyleSheetNotInstalled_Text + element.href + "<BR><hr>");
  206.   retVal = true;
  207.   }
  208.  }
  209.  }
  210. return retVal;
  211. }
  212. </SCRIPT>
  213. </HEAD>
  214. <BODY ID=bdy onLoad="loadBdy()" style="font-family: 'MS UI Gothic';
  215. font-size: 9pt; background: threedface; color: windowtext;" 
  216. topmargin=0 scroll=no>
  217. <br id=brAnalysis>  現在のドキュメントの分析 :<br>
  218. <br>
  219. <DIV id=ReportArea style="height: 75%; width: 93%; 
  220. position: absolute; left: 5%; top: 12%; overflow: auto; padding: 3px;
  221. border-style: solid; border-width: 1px; border-color: threeddarkshadow">
  222. エラーは見つかりませんでした。
  223. </DIV>
  224. <br id=br2><P id=par1> </P>
  225. <DIV id=divButton style="font-family: MS UI Gothic; font-size: 9pt; 
  226. width: 8em; height: 2.2em; position: absolute;
  227. top: 27.1em; left: 20em; background: threedface;">
  228. </DIV>
  229. <BUTTON id=btnOk tabIndex=55 
  230. style="font-family: MS UI Gothic; font-size: 9pt; 
  231. width: 7em; height: 2.2em; position: absolute;
  232. top: 27.5em; left: 21em" type=submit>
  233. OK
  234. </BUTTON>
  235. </BODY>
  236. </HTML>
  237.