<P><BLOCKQUOTE>
<OBJECT ID="eglbl"
WIDTH=203
HEIGHT=27
CLASSID="CLSID:99B42120-6EC7-11CF-A6C7-00AA00A47DD2">
<PARAM NAME="_ExtentX" VALUE="5371">
<PARAM NAME="_ExtentY" VALUE="714">
<PARAM NAME="Caption" VALUE="This text would blink on the page">
<PARAM NAME="Angle" VALUE="0">
<PARAM NAME="Alignment" VALUE="4">
<PARAM NAME="Mode" VALUE="0">
<PARAM NAME="FillStyle" VALUE="0">
<PARAM NAME="ForeColor" VALUE="#000000">
<PARAM NAME="BackColor" VALUE="#FFFFE0">
<PARAM NAME="FontName" VALUE="Arial">
<PARAM NAME="FontSize" VALUE="10">
<PARAM NAME="FontItalic" VALUE="0">
<PARAM NAME="FontBold" VALUE="0">
<PARAM NAME="FontUnderline" VALUE="0">
<PARAM NAME="FontStrikeout" VALUE="0">
<PARAM NAME="TopPoints" VALUE="0">
<PARAM NAME="BotPoints" VALUE="0">
<PARAM NAME="Visible" VALUE="-1">
</OBJECT>
</BLOCKQUOTE>
<OBJECT ID="Blinker"
WIDTH=1
HEIGHT=1
CLASSID="CLSID:59CCB4A0-727D-11CF-AC36-00AA00A47DD2">
<PARAM NAME="_ExtentX" VALUE="0">
<PARAM NAME="_ExtentY" VALUE="0">
<PARAM NAME="Interval" VALUE="2000">
</OBJECT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Blinker_Timer()
if eglbl.Caption="This text would blink on the page" then
eglbl.Caption=""
Blinker.Interval="1000"
else
eglbl.Caption="This text would blink on the page"
Blinker.Interval="2000"
end if
end sub
-->
</SCRIPT>
<OBJECT ID="eglbl"
WIDTH=203
HEIGHT=27
CLASSID="CLSID:99B42120-6EC7-11CF-A6C7-00AA00A47DD2">
<PARAM NAME="_ExtentX" VALUE="5371">
<PARAM NAME="_ExtentY" VALUE="714">
<PARAM NAME="Caption" VALUE="This text would blink on the page">
<PARAM NAME="Angle" VALUE="0">
<PARAM NAME="Alignment" VALUE="4">
<PARAM NAME="Mode" VALUE="0">
<PARAM NAME="FillStyle" VALUE="0">
<PARAM NAME="ForeColor" VALUE="#000000">
<PARAM NAME="BackColor" VALUE="#FFFFE0">
<PARAM NAME="FontName" VALUE="Arial">
<PARAM NAME="FontSize" VALUE="10">
<PARAM NAME="FontItalic" VALUE="0">
<PARAM NAME="FontBold" VALUE="0">
<PARAM NAME="FontUnderline" VALUE="0">
<PARAM NAME="FontStrikeout" VALUE="0">
<PARAM NAME="TopPoints" VALUE="0">
<PARAM NAME="BotPoints" VALUE="0">
<PARAM NAME="Visible" VALUE="-1">
</OBJECT>
</BLOCKQUOTE>
<OBJECT ID="Blinker"
WIDTH=1
HEIGHT=1
CLASSID="CLSID:59CCB4A0-727D-11CF-AC36-00AA00A47DD2">
<PARAM NAME="_ExtentX" VALUE="0">
<PARAM NAME="_ExtentY" VALUE="0">
<PARAM NAME="Interval" VALUE="2000">
</OBJECT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Blinker_Timer()
if eglbl.Caption="This text would blink on the page" then
eglbl.Caption=""
Blinker.Interval="1000"
else
eglbl.Caption="This text would blink on the page"
Blinker.Interval="2000"
end if
end sub
-->
</SCRIPT>
不过是从homesite里贴的