VBScript实现状态栏走马灯效果

发布时间:2007年01月24日      浏览次数:1674 次
<html>
<head>
<title>中国站长天空-网页特效-状态标题-VBScript实现状态栏走马灯效果</title>
<meta http-equiv="content-Type" content="text/html;charset=gb2312">
<!--把下面代码加到<head>与</head>之间-->
<script language=vbs>
if screen.width = 640 then
spaces = 40
elseif screen.width = 800 then
spaces = 50
else
spaces = 64
end if
text = ""
for i = 1 to spaces
text = text & " "
next
text = text & "欢迎光临中国站长天空!"
function scrollText()
window.status = text
text = Mid(text,2) & Left(text,1)
t=setTimeout("scrollText()",260)
end function
window_onload=scrollText
</script>
</head>
<body>
看到了吗?
</body>
</html>
文章来源:http://www.zzsky.cn/effect/content/849.htm
免责声明:本站相关技术文章信息部分来自网络,目的主要是传播更多信息,如果您认为本站的某些信息侵犯了您的版权,请与我们联系,我们会即时妥善的处理,谢谢合作!