图片下降效果

 

点击这里看效果


在 <body> 与 </body> 之间加入：

<script language=VBScript>
dim z,numfond
z=100000
numfond=document.body.sourceIndex
sub SF
z=z+1//+就向下、-就向上//
Document.all(numfond).style.BackgroundPosition= "0 " &z
id=SetTimeOut("SF",64,"VBScript")
end sub
SF
</script>