例えばこんな風に画像だらけのページを呼んだりする時便利なスクリプトです
IEオンリーです NetScapeではそのまま飛び先に設定したページに飛びます
スクリプトコピーは一番下です
Graphics by
素晴らしい画像に感謝
WindowsIE4.ｘ以降では
Ｃｏｐｙボタン
を押すと 以下のスクリプトがコピーされます
コピーした物の中に書かれているコメントに従って 御自分のHTMLに お入れ下さい
<!--■以下スクリプトをhead内に入れる--> <script language="JavaScript"> <!-- /*http://myako.net/ ako's cyberpage*/ hazimeC = new Array() owariC = new Array() //■ここから設定 //■以下に読み込ませたい画像名を並べる 画像が無い場合ロードが途中で止まります var Ga = new Array("harunoyoi5.jpg","oirannmado1a.jpg","oirann5b.jpg","oirann6bc.jpg","tukiyo4a.jpg","tukiyo4bc.jpg","heiann6a.jpg","heiann3.jpg","yukikage1.jpg","geisha8c.jpg") //■↑ ここにロードしたい画像名をいくつでも並べます //■↑ この画像がほしい方は http://www.geocities.co.jp/HeartLand-Sumire/5531/ までどうぞ var Page = "load2.html" //■読み込んだあと表示するページ var Haba = 600 //■バーの幅 適宜 var Takasa = 15 //■バーの高さ 適宜 var barBack = "#0000ff" //■最初のバーの色" //■バーの始まりの色の第1第3第5の数値を入れる わからなかったら色々入れて試してください hazimeC[0] = "f" hazimeC[1] = "1" hazimeC[2] = "0" //■バーの終わりの時の色の第1第3第5の数値を入れる わからなかったら色々入れて試してください owariC[0] = "f" owariC[1] = "f" owariC[2] = "e" var syuusei = 6 //■上記の色や幅などを入れ替えてエラーが出る場合この数値を色々変えてみてね 2より小さくはしないでね //■ここまで設定 ここからは弄らないこと if (!document.all) location.replace(Page) var a = 10, b = 11, c = 12, d = 13, e = 14, f=15, kazu, suu, tugi = new Array(), st = new Array(), akod = new Array(); var irokae = new Array("0","1","2","3","4","5","6","7","8","9","a","b","c","d","e","f"), Gana = Ga.length; var yomikomi = new Array(), yomikomiGa = new Array(), irokazu = 0, pd = 0, akoba = 0, kage = new Array(), Cv = new Array(); var kazu2 = Math.floor(Haba/syuusei); for (kazu = 0; kazu < 3; kazu++) { hazimeC[kazu] = hazimeC[kazu].toLowerCase(); owariC[kazu] = owariC[kazu].toLowerCase(); hazimeC[kazu] = eval(hazimeC[kazu]); owariC[kazu] = eval(owariC[kazu]); akod[kazu] = (owariC[kazu]-hazimeC[kazu])/kazu2; tugi[kazu] = Math.floor(akod[kazu]); st[kazu] = Math.round((akod[kazu] - tugi[kazu])*15);} owariC[0] = 0; owariC[1] = 0; owariC[2] = 0; kazu = 0, suu = 0; while (kazu <= kazu2) { kage[kazu] = "#"; while (suu < 3) { kage[kazu] += irokae[hazimeC[suu]]; kage[kazu] += irokae[owariC[suu]]; hazimeC[suu] += tugi[suu]; owariC[suu] += st[suu]; if (owariC[suu] > 15) { owariC[suu] -= 15; hazimeC[suu]++;} suu++;} suu = 0; kazu++;} function yomuGa() { for (kazu = 0; kazu < Gana; kazu++) { yomikomiGa[kazu] = new Image(); yomikomiGa[kazu].src = Ga[kazu]; yomikomi[kazu] = 0; Cv[kazu] = Math.floor(kazu2/Gana)*(kazu+1) } Cv[Cv.length-1] += kazu2%Gana sirabe();} function sirabe() { if (pd) { kae(); return } if (irokazu == Gana) { location.replace(Page); return } for (kazu = 0; kazu < Gana; kazu++) { if (!yomikomi[kazu] && yomikomiGa[kazu].complete) { yomikomi[kazu] = 1; pd++; irokazu++; sirabe(); return;}} setTimeout("sirabe()",10);} function kae() { if (akoba+1 > Cv[irokazu-1]) { var hiritu = Math.round(100/Gana)*irokazu; if (hiritu > 100) while (hiritu != 100) hiritu--; if (irokazu == Gana && hiritu < 100) hiritu = 100; defaultStatus = "現在" +irokazu+ " 枚目まで読み込んで " + Gana + " 枚の画像の " + hiritu + "%を読み込んでます"; pd--; sirabe(); return;} eval("document.all.akoc" + (akoba+1) + ".style.backgroundColor = kage[akoba]"); akoba++; setTimeout("kae()",1);} defaultStatus = "現在" +Gana+ "枚の画像の 0%を読み込んでます" //--> </script> <!--■ここまでhead内に入れる--> </head> <body> <center> <font size="2"><center>画像を読み込む間少し待ってね <!--■以下スクリプトをbody内に入れる--> <script language="JavaScript"> <!-- /*http://myako.net/ ako's cyberpage*/ document.write('<table border=0 width="' + Haba + '" height="' + Takasa + '" cellpadding=0 cellspacing=0 bgcolor="' + barBack + '"><tr>'); for (kazu = 0; kazu < kazu2; kazu++) { document.write('<td width="' + syuusei + '" id="akoc' + (kazu+1) + '"></td>');} document.write('</tr></table>'); document.write('<br><br>◆<a href="javascript:location.replace(Page)">Skipする</a> ◆<a href="http://myako.net/">Top</a></font>') //■↑ 飛ばし先のHTML名と その他リンク yomuGa(); //--> </script> <!--■ここまでbody内に入れる--> <br><br> 見本で使用の画像がほしい方は <a href="http://www.geocities.co.jp/HeartLand-Sumire/5531/" target="_top">こちら</a> までどうぞ<br> スクリプトご使用の際は以下リンクタグをお入れください<br> <a href="http://myako.net/" target="_top">Script by ako's cyberpage</a>
Script by ako's cyberpage
素晴らしい画像に感謝
素晴らしい画像に感謝