📄 alpha_pictrue.htm
字号:
<HTML>
<head>
<title>
透明滤镜图片
</title>
<SCRIPT LANGUAGE=VBScript>
i = 1
sub Effect( )
A1.className = "a" & i
id = setTimeout("Effect( )",500)
if i = 4 then
i = 1
else
i = i + 1
end if
end sub
</SCRIPT>
<STYLE>
.a1 {filter:Alpha(Opacity=100,FinishOpacity=100,Style=0,
StartX=0,StartY=0,FinishX=170,FinishY=250)}
.a2 {filter:Alpha(Opacity=0,FinishOpacity=100,Style=1,
StartX=0,StartY=0,FinishX=170,FinishY=250)}
.a3 {filter:Alpha(Opacity=0,FinishOpacity=100,Style=2,
StartX=0,StartY=0,FinishX=170,FinishY=250)}
.a4 {filter:Alpha(Opacity=0,FinishOpacity=100,Style=3,
StartX=0,StartY=0,FinishX=170,FinishY=250)}
</STYLE>
</head>
<BODY BGCOLOR=#FFFFFF ID=BodyID onLoad="Effect( )">
<CENTER>
<IMG ID=A1 CLASS=a1 WIDTH=170 HEIGHT=250 SRC=j-3.jpg><P>
</CENTER>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -