word_shadow.htm

来自「VBSCRIPT的源码,相信很多html程序员都会用到,这些源码小小变动一下,可」· HTM 代码 · 共 31 行

HTM
31
字号
<HTML>
<SCRIPT LANGUAGE=VBScript>
i = 1
sub window_OnLoad 
    call Effect
end sub
sub Effect( )
S1.className = "s" & i
id = setTimeout("Effect( )",500)
if i = 4 then
i = 1
else
i = i + 1
end if
end sub
</SCRIPT> 

<STYLE>
.s1 {Width:300;filter:Shadow(Color=#000000,Direction=180)}
.s2 {Width:300;filter:Shadow(Color=#000000,Direction=270)}
.s3 {Width:300;filter:Shadow(Color=#000000,Direction=0)}
.s4 {Width:300;filter:Shadow(Color=#000000,Direction=90)}
</STYLE> 

<BODY BGCOLOR=LightYellow >
<CENTER>
<DIV ID=S1 CLASS=s1>
<FONT color=red SIZE=6>
<B><BR><BR>生活很现实<BR>爱情才会褪色</B></FONT></DIV><P>
</CENTER>
</HTML>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?