23、向下滚动的背景图片

23、向下滚动的背景图片

<html>

<head>

<title> </title>

</head>

 

<body background="images/1.jpg">

 

 

<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>

 

</html>

 

 

 

Write a comment

Comments: 0