sb-7  会动的背景：

<script language="VBScript">
dim c,numgc
c=-100000
numgc=document.body.sourceIndex
sub SF
c=c+1
Document.all(numgc).style.BackgroundPosition= "0 " &c
id=SetTimeOut("SF",16,"VBScript")
end sub
SF
</script>