背景下滑
<script language="VBScript">
dim i, pic
i = -1
pic = document.body.sourceIndex
sub scrollBG
i=i+1
Document.all(pic).style.BackgroundPosition= "0 " & i
id=SetTimeOut("scrollBG", 50, "VBScript")end sub
scrollBG</script>
背景斜移
<SCRIPT language="Javascript">
var background = "圖片網址";
var speed = 80;
browserName = navigator.appName;
browserVer = parseInt(navigator.appVersion);
if (browserName != "Netscape" || browserVer >= 4.5) {
function moveback(movert,movedn,hPos,vPos) {
if (arguments[4])
document.body.style.backgroundImage = "url(\"" + arguments[4] + "\")";if (arguments[5])
document.body.style.backgroundRepeat = arguments[5]
if (!isNaN(hPos)) {
if ((movert!=0) && (hPos>0)) hPos=-100000
hPos += movert} if (!isNaN(vPos)) {
if ((movedn!=0) && (vPos>0)) vPos=-100000
vPos+= movedn}
document.body.style.backgroundPosition= hPos + " " + vPos
if (isNaN(hPos)) hPos = "\"" + hPos + "\""
if (isNaN(vPos)) vPos = "\"" + vPos + "\""
setTimeout("moveback("+movert+","+movedn+","+hPos+","+vPos+")",speed)
}moveback(1,1,0,0, background);}</SCRIPT>
淡化版面
<style>
body{filter:alpha(opacity=100, finishOpacity=0,style=2)}
</style>
隨機背景
<script language=javascript>
var pic=new Array(3)
pic[0]="圖片網址"
pic[1]="圖片網址"
pic[2]="圖片網址"
var newdate=new Date()
var getpic=newdate.getSeconds()%pic.length
document.write(<body background=+pic[getpic]+ bgproperties=fixed>)
</script>
|