简单实现的文字闪出的效果
（支持连接）
<html>
<head>
<script Language="VBScript">
MyMsg=Array("☆ 欢迎无问题中文网 ☆","☆ 试试把你的问题留到论坛吧☆","☆ 12小时内在县回复 ☆","☆ 请记住半站域名☆","☆ www.cy123.com☆","☆ 您的支持是我做得更好 ☆","☆ 喜欢这里的变化吗？ ☆","☆ <a href=http://www.cy123.com>点击进入无问题中文网 </a>☆","☆ 欢迎您常来提问或帮助别人 ☆")
MyLen=UBound(MyMsg)

Sub SetMessage(ByVal Index)
If Index=MyLen+1 Then Index=0
msg.InnerHtml=MyMsg(Index)
SetTimeOut "SetMessage " & Index+1,1500
End Sub

Sub Window_OnLoad()
Window.DefaultStatus=""
SetMessage 0
End Sub
Sub Chat_OnClick()
If Window.Parent.topFrameSet.Rows="*,160" Then
Window.Parent.topFrameSet.Rows="*,0"
Else
Window.Parent.topFrameSet.Rows="*,160"
Window.Parent.Window.subFrameSet.Rows="*,64"
End If
End Sub
</script>
</head>

<body >

<table >
 <tr>
  <td id="msg" nowrap colspan="2" height="40" class="myfont2" align="center"></td>
 </tr>
</table>
</body>
</html>