한 민 족 연 합 선 교 회

/ /
 


영혼의 친구

<소스 내용>

<HTML>
<HEAD>
<SCRIPT language=vbscript>

Dim cells(12)

Sub Window_Onload()
  Randomize  
  set cells(1) = c1: set cells(2) = c2:   set cells(3) = c3 :   set cells(4) = c4
  set cells(5) = c5: set cells(6) = c6:   set cells(7) = c7 :   set cells(8) = c8
  set cells(9) = c9: set cells(10) = c10: set cells(11) = c11 : set cells(12) = c12
  call AssignColors
End Sub

Sub AssignColors()
x1=0
x2=0
x3=250
  for i=1 to 12 
    x1 = x1+12
    x2 = x2=x2-10
    x3 = x3+10
    cells(i).style.backgroundcolor=rgb(x1,x2,x3)
  next
  Call RotateColors
End Sub

Sub RotateColors()
  for i = 12 to 2 step -1
    cells(i).style.backgroundcolor=cells(i-1).style.backgroundcolor
  next
  cells(1).style.backgroundcolor=cells(12).style.backgroundcolor
  id=settimeout("RotateColors",50,"Vbscript")
End Sub

</SCRIPT>


</HEAD>
<BODY bgColor=ffffff>
<DIV> </DIV>
<DIV align=center>
<TABLE border=0 cellPadding=5 cellSpacing=0>
    <TBODY>
    <TR>
        <TD height=1 id=c1 style="BACKGROUND-COLOR: rgb(50,0,0)"
        width=1></TD>
        <TD height=10 id=c2 width=20></TD>
        <TD height=10 id=c3 width=20></TD>
        <TD height=1 id=c4 width=1></TD></TR>
    <TR>
        <TD height=10 id=c12 width=1></TD>
        <TD align=middle colSpan=2 id=textcell rowSpan=2 width=1>


<TABLE height=500 width=700 background=http://blog.empas.com/kimmokja46/30649616_700x500.jpg>
<TBODY>
<TR>
<TD>
<DIV id=outline style="Z-INDEX: 1; LEFT: 0px; WIDTH: 100%; POSITION: relative; TOP: 0px; HEIGHT: 500px">
<DIV id=item1 style="Z-INDEX: 2; LEFT: 200px; WIDTH: 600px; POSITION: absolute; TOP:0px; HEIGHT: 500px">
<EMBED src=http://fileserver.cgntv.net/File1/club/RisingSun7/stars.swf width=500 height=350  type=application/x-shockwave-flash wmode="transparent">
</div></div></td></tr></tbody></table>       

</TD>
        <TD height=10 id=c5 width=1></TD></TR>
    <TR>
        <TD height=10 id=c11 width=1></TD>
        <TD height=10 id=c6 width=1></TD></TR>
    <TR>
        <TD height=1 id=c10 width=1></TD>
        <TD height=10 id=c9 width=20></TD>
        <TD height=10 id=c8 width=20></TD>
        <TD height=1 id=c7 width=1></TD></TR></TBODY></TABLE></DIV></BODY></HTML>
<center>
<BR><EMBED src=http://xorhd40.com.ne.kr/21.BillyVaughn-Wheels.mp3 width=300 height=50 type=application/octet-stream loop="-1" autostart="true"showstatusbar=1>
<BR><FONT color=BLUE SIZE=2> 영혼의 친구</font></center>

 

저작자표시 비영리 변경금지

'스위시>태그>소스' 카테고리의 다른 글

여러가지 효과로 화면이 바뀌는 소스  (0) 2007.09.02
Accordion-Gallery 만들기  (0) 2007.09.02
깜빡이는 칼라테두리 씌우기  (0) 2007.09.02
스위시 사진영상/작은 그림 클릭하면.../소스  (0) 2007.09.02
스위시영상만들기:JPG+스위시소스+음악 삽입하기  (0) 2007.09.02
한 민 족 연 합 선 교 회현재 전체 작업중입니다. https://smmission.tistory.com

+ Recent posts

티스토리툴바