JavaScript ~ 向下移動的背景圖案

(1)　請把以下程式複製到 html 檔案的 <body> 標記下：

<! 注意修改你背景的圖案名稱及路徑>

<BODY background="image/snowview.jpg">

<script language="VBScript">
dim i, pic
i = -100000
pic = document.body.sourceIndex
sub scrollBG
i=i+1
Document.all(pic).style.BackgroundPosition= "0 " & i
id=SetTimeOut("scrollBG", 64, "VBScript")
end sub
scrollBG
</script>

</BODY>