滚动背景

来自「网页特效」· 代码 · 共 23 行

TXT
23
字号
<BODY background="../index/back.jpg" bgcolor="#ffffff">
<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> 
</BODY>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?