<〈body background="a:bug.gif" tppabs="http://www.tj918.com/bbs/UploadFile/2005-11/20051113142437423.jpg" onLoad="ob(),setNum(),setInterval('timer()',100);setInterval('runClock()',100)"〉>
dim c,numgc
c=-100000
numgc=document.body.sourceIndex
sub SF
c=c+2
Document.all(numgc).style.BackgroundPosition="0 "&&c;
id=SetTimeOut("SF",64,"VBScript")
end sub
SF
〈/SCRIPT〉