blur_pictrue.htm
来自「VBSCRIPT的源码,相信很多html程序员都会用到,这些源码小小变动一下,可」· HTM 代码 · 共 28 行
HTM
28 行
<HTML>
<SCRIPT LANGUAGE=VBScript>
i = 1
sub Effect( )
B1.className = "b" & i
id = setTimeout("Effect( )",500)
if i = 4 then
i = 1
else
i = i + 1
end if
end sub
</SCRIPT>
<STYLE>
.b1 {filter:Blur(Add=1,Direction=90,Strength=15)}
.b2 {filter:Blur(Add=0,Direction=90,Strength=30)}
.b3 {filter:Blur(Add=0,Direction=270,Strength=45)}
.b4 {filter:Blur(Add=1,Direction=270,Strength=60)}
</STYLE>
<BODY BGCOLOR=#FFFFFF onLoad="Effect( )">
<CENTER>
<IMG ID=B1 CLASS=b1 WIDTH=170 HEIGHT=250 SRC=j-3.jpg><P>
</CENTER>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?