正如本页所显示的，背景图像不停向下移动。 安装： 拷贝以下代码贴在网页紧接<body>标记之下。记得别将它包含在任何表单之内。 <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> <span class="font1"></span><script language="JavaScript"> <!-- done = 0; step = 2 function anim(yp,yk){ if(document.layers) document.layers["napis"].top=yp; else document.all["napis"].style.top=yp; if(yp>yk) step = -2 if(yp<60) step = 2 setTimeout('anim('+(yp+step)+','+yk+')', 35);} function start(){ if(done) return done = 1; if(navigator.appName=="Netscape") { document.napis.left=innerWidth/2 - 145; anim(60,innerHeight -5) } else { napis.style.left=12; anim(60,document.body.offsetHeight -5) }} //--> </script> <script language="JavaScript"> <!-- setTimeout('start()',10); //--> </script>
安装： 拷贝以下代码贴在网页紧接<body>标记之下。记得别将它包含在任何表单之内。