alpha_pictrue.htm
来自「VBSCRIPT的源码,相信很多html程序员都会用到,这些源码小小变动一下,可」· HTM 代码 · 共 36 行
HTM
36 行
<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 + =
减小字号Ctrl + -
显示快捷键?