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 + -
显示快捷键?