当前位置：星空免费资源网 → 免费资源 → 网页特效 → 链接特效 → 文章内容

定时更换的超酷连接

减小字体

增大字体作者：KaSim 来源：星空资源网发布时间：2008-1-10 13:09:24 收藏到QQ书签

以下是程序代码

<html>
<head>
<title>免费网络-网页特效-定时更换的超酷连接</title>
</head>
<body onload="if (document.all||document.layers) {regenerate2();update()}">

<style>
<!--

#tickertape{
position:relative;

layer-background-color:black;
width:400;
height:12;
; font-family: "宋体"; font-size: 9pt}

#subtickertape{
background-color:black;
position:absolute;
border: 1px solid black;
width:400;
height:12;
; font-family: "宋体"; font-size: 9pt
}

.subtickertapefont{
font:bold 9pt "宋体";
text-decoration:none;
color:white;
}

.subtickertapefont a{
color:white;
text-decoration:none;
; font-family: "宋体"; font-size: 9pt}
-->
</style>
<div id="tickertape"> 
<div id="subtickertape" class="subtickertapefont">初始化...</div>
</div>
<script language="JavaScript1.2">

var speed=2500

var news=new Array()
news[0]="<a href='#'>网页特效</a>"
news[1]="<a href='#'>资源文章</a>"
news[2]="<a href='#'>源码下载</a>"
news[3]="<a href='#'>教程学习</a>"
news[4]="<a href='#'>平面设计</a>"

i=0
if (document.all)
tickerobject=document.all.subtickertape.style
else
tickerobject=document.tickertape.document
function regenerate(){
window.location.reload()
}
function regenerate2(){
if (document.layers)
setTimeout("window.onresize=regenerate",450)
}

function update(){
 BgFade(0xff,0xff,0xff, 0x00,0x00,0x00,10);
if (document.layers){
document.tickertape.document.subtickertape.document.write('<span class="subtickertapefont">'+news[i]+'</span>')
document.tickertape.document.subtickertape.document.close()
}
else 
document.all.subtickertape.innerHTML=news[i]

if (i<news.length-1)
i++
else
i=0
setTimeout("update()",speed)
}

</script>
</tr></table>
</body></html>

代码"/> 代码"/>
[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]

本资源由星空资源网提供！转载请著名,谢谢！

[] [返回上一页] [打印]