📄 blur_pictrue.htm
字号:
<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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -