スクリプトのソースです。使用は自由ですが、できれば使用していることを明記してうちにリンクを張って欲しいです。
特に変わったことはしてないと思いますが（１６進変換は変かも）不明な点などはメールでお気軽にお尋ねください。
<![CDATA[
<HTML>
<HEAD>
<TITLE>背景色を連続的に変更するテスト</TITLE>
<SCRIPT LANGUAGE="JavaScript">
<!--
function makeArray(k){
this.length=k
}
function Init(){
kazu=new makeArray(15)
kazu[0]="0"
kazu[1]="1"
kazu[2]="2"
kazu[3]="3"
kazu[4]="4"
kazu[5]="5"
kazu[6]="6"
kazu[7]="7"
kazu[8]="8"
kazu[9]="9"
kazu[10]="A"
kazu[11]="B"
kazu[12]="C"
kazu[13]="D"
kazu[14]="E"
kazu[15]="F"
COL=new makeArray(5)
COL[0]="F"
COL[1]="F"
COL[2]="F"
COL[3]="F"
COL[4]="F"
COL[5]="F"
RGBv=new makeArray(2)
RGBv[0]=255
RGBv[1]=255
RGBv[2]=255
}
function Hcheck(ORG){
var val=17
for(i=0;i<16;i++){
if(kazu[i]==ORG){
val=i
}
}
return val
}
function RGBchange(num){
Vleft=self.window.document.forms[6+(num-1)*2].elements[0].value.toUpperCase()
Vright=self.window.document.forms[6+(num-1)*2+1].elements[0].value.toUpperCase()
Value=Hcheck(Vright)+Hcheck(Vleft)*16
self.window.document.forms[20].elements[num-1].value=Value
RGBv[num-1]=Value
}
function RGBdirect(num){
check=self.window.document.forms[20].elements[num].value
for(i=0;i<3;i++)
{
if(check.substring(i,i+1)==".")
{
alert("０から２５５までの整数値を半角(1byte文字)で入力してください")
self.window.document.forms[20].elements[num].value=RGBv[num]
check=RGBv[num]
break
}
}
if(check<0 || check>255)
{
alert("０から２５５までの整数値を半角(1byte文字)で入力してください")
self.window.document.forms[20].elements[num].value=RGBv[num]
}
else
{
RGBv[num]=check
check2=check-check%16
lt=kazu[check2/16]
rt=kazu[check%16]
self.window.document.forms[6+num*2].elements[0].value=lt
self.window.document.forms[6+num*2+1].elements[0].value=rt
COL[num*2]=lt
COL[num*2+1]=rt
BGchange()
}
}
function BGchange(){
colorstring="#"
for(i=0;i<6;i++){
colorstring+=self.window.document.forms[6+i].elements[0].value.toUpperCase()
}
window.parent.frames[0].document.bgColor=colorstring
bodystring="<BODY BGCOLOR="+colorstring+">"
self.window.document.forms[19].elements[0].value=bodystring
}
function ColorChange(lr,NUM){
if(NUM>3){
plusminus=false
rgb=NUM-3;
}
else {
plusminus=true
rgb=NUM
}
org=self.window.document.forms[(rgb-1)*2+lr+6].elements[0].value
var vl=Hcheck(org)
if(vl==17)
{
vl=Hcheck(COL[(rgb-1)*2+lr])
}
if(plusminus==true && vl!=15)
{
vl++
}
else
{
if(plusminus==false && vl!=0){
vl--
}
}
COL[(rgb-1)*2+lr]=kazu[vl]
self.window.document.forms[(rgb-1)*2+lr+6].elements[0].value=kazu[vl]
BGchange()
RGBchange(rgb)
}
function Tchange(tar,num){
chatext=self.window.document.forms[num+6].elements[0].value.toUpperCase()
var va=Hcheck(chatext)
if(va==17)
{
alert("０からＦまでの１６進数を半角(1byte文字)で入力してください")
self.window.document.forms[num+6].elements[0].value=COL[num]
}
else{
COL[num]=chatext.toUpperCase()
BGchange()
RGBchange(tar)
}
}
// -->
</SCRIPT>
<BODY BGCOLOR=#FFFFFF onLoad="Init()">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<H2>背景色をダイレクトに変更する実験</H2>
どこにでもある(汗)タイプの背景色変更スクリプトです。<BR>
これと、<A HREF="bgcsys.html" TARGET="_top">これ</A>を組み合わせると少しはいいかもしれません。<BR>
使い方は簡単です。＋や−ボタンを押したり、フォーム内の数値を変更してボタンを押せば、自動的に上部分のフレームの色が変わります。
<HR>
<BR>
<DIV align="center">
<TABLE BORDER>
<TR><TH colspan=2 BGCOLOR="RED">RED</TH><TH colspan=2 BGCOLOR="GREEN">GREEN</TH><TH colspan=2 BGCOLOR="BLUE">BLUE</TH>
<TR><TH>
<FORM>
<INPUT TYPE="button" VALUE=" + " onClick="ColorChange(0,1)">
</FORM>
</TH><TH>
<FORM>
<INPUT TYPE="button" VALUE=" + " onClick="ColorChange(1,1)">
</FORM>
</TH><TH>
<FORM>
<INPUT TYPE="button" VALUE=" + " onClick="ColorChange(0,2)">
</FORM>
</TH><TH>
<FORM>
<INPUT TYPE="button" VALUE=" + " onClick="ColorChange(1,2)">
</FORM>
</TH><TH>
<FORM>
<INPUT TYPE="button" VALUE=" + " onClick="ColorChange(0,3)">
</FORM>
</TH><TH>
<FORM>
<INPUT TYPE="button" VALUE=" + " onClick="ColorChange(1,3)">
</FORM>
</TH>
<TR><TH BGCOLOR="RED">
<FORM>
<INPUT TYPE="TEXT" SIZE=2 VALUE="F" MAXLENGTH=1 onChange="Tchange(1,0)">
</FORM>
</TH><TH BGCOLOR="RED">
<FORM>
<INPUT TYPE="TEXT" SIZE=2 VALUE="F" MAXLENGTH=1 onChange="Tchange(1,1)">
</FORM>
</TH><TH BGCOLOR="GREEN">
<FORM>
<INPUT TYPE="TEXT" SIZE=2 VALUE="F" MAXLENGTH=1 onChange="Tchange(2,2)">
</FORM>
</TH><TH BGCOLOR="GREEN">
<FORM>
<INPUT TYPE="TEXT" SIZE=2 VALUE="F" MAXLENGTH=1 onChange="Tchange(2,3)">
</FORM>
</TH><TH BGCOLOR="BLUE">
<FORM>
<INPUT TYPE="TEXT" SIZE=2 VALUE="F" MAXLENGTH=1 onChange="Tchange(3,4)">
</FORM>
</TH><TH BGCOLOR="BLUE">
<FORM>
<INPUT TYPE="TEXT" SIZE=2 VALUE="F" MAXLENGTH=1 onChange="Tchange(3,5)">
</FORM>
</TH>
<TR><TH>
<FORM>
<INPUT TYPE="button" VALUE=" - " onClick="ColorChange(0,4)">
</FORM>
</TH><TH>
<FORM>
<INPUT TYPE="button" VALUE=" - " onClick="ColorChange(1,4)">
</FORM>
</TH><TH>
<FORM>
<INPUT TYPE="button" VALUE=" - " onClick="ColorChange(0,5)">
</FORM>
</TH><TH>
<FORM>
<INPUT TYPE="button" VALUE=" - " onClick="ColorChange(1,5)">
</FORM>
</TH><TH>
<FORM>
<INPUT TYPE="button" VALUE=" - " onClick="ColorChange(0,6)">
</FORM>
</TH><TH>
<FORM>
<INPUT TYPE="button" VALUE=" - " onClick="ColorChange(1,6)">
</FORM>
</TH>
</TABLE>
<FORM>
<INPUT TYPE="button" VALUE="DirectChange!!">
</FORM>
</DIV>
<FORM>
この時のBODYタグは
<INPUT TYPE="text" size=40 VALUE="<BODY BGCOLOR=#FFFFFF>">
のようになります。
</FORM>
<HR>
現在のＲＧＢ値は
<FORM>
Red:<INPUT TYPE="text" size=5 MAXLENGTH=3 VALUE="255" onChange="RGBdirect(0)">,
Green:<INPUT TYPE="text" size=5 MAXLENGTH=3 VALUE="255" onChange="RGBdirect(1)">,
Blue:<INPUT TYPE="text" size=5 MAXLENGTH=3 VALUE="255" onChange="RGBdirect(2)">
<INPUT TYPE="button" VALUE="DirectChange!!">
</FORM>
<HR>
<A HREF="color_source.html" TARGET="_top">このスクリプトのソース</A><BR>
<A HREF="index.html" TARGET="_top">JavaScript実験ページに戻る</A><BR>
<A HREF="../index.html" TARGET="_top">トップページに戻る</A><BR>
</BODY>
</HTML>
]]></plaintext></body>