脚本特效展示
背景向下移动脚本
注意:把< body>换为 < body background=back.jpg onLoad="ob(),setNum(),setInterval('timer()',100);setInterval('runClock()',100)">
以下代码加入<head>区域
以下代码加入<body>区域
<SCRIPT language=VBScript> 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>