<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>
<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