RSS订阅<!--要完成此效果需要两个步骤
第一步：把如下代码加入到<head>区域中-->
<SCRIPT language=VBScript>
Sub Window_OnLoad()
call SG1.Scale(0.50, 0.50, 0.50)
call SG2.Scale(0.50, 0.50, 0.50)
call SG3.Scale(0.50, 0.50, 0.50)
call SG4.Scale(0.50, 0.50, 0.50)
call SG1.Rotate(0, 0, 0)
call SG2.Rotate(90, 0, 0)
call SG3.Rotate(0, 90, 0)
RotateAll
end sub
Sub RotateAll
Call SG1.Rotate(4,6,2)
Call SG2.Rotate(4,6,2)
Call SG3.Rotate(4,6,2)
Call SG4.Rotate(4,6,2)
FILK = Window.SetTimeOut("Call RotateAll", 10, "VBSCript")
End Sub
</SCRIPT>
<!--第二步：把如下代码加入到<body>区域中-->
<OBJECT classid=CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6 id=SG4
style="HEIGHT: 400px; LEFT: 25%; POSITION: absolute; TOP: 25%; WIDTH: 400px; ZINDEX: 0"><PARAM
NAME="Line0001" VALUE="SetLineStyle(0)"><PARAM NAME="Line0002" VALUE="SetFillColor(164, 164, 255)"><PARAM
NAME="Line0003" VALUE="SetFillStyle(1)"><PARAM NAME="Line0004" VALUE="SetFont('Arial', 180, 700, 0, 0,
0)"><PARAM NAME="Line0005" VALUE="Text('yezigu.com', -95, 87)"></OBJECT>
<OBJECT classid=CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6 id=SG1
style="HEIGHT: 400px; LEFT: 25%; POSITION: absolute; TOP: 25%; WIDTH: 400px; ZINDEX: 0"><PARAM
NAME="Line0001" VALUE="SetLineStyle(1)"><PARAM NAME="Line0002" VALUE="SetLineColor(0, 0, 0)"><PARAM
NAME="Line0003" VALUE="SetFillStyle(0)"><PARAM NAME="Line0004" VALUE="SetFont('Arial', 180, 700, 0, 0,
0)"><PARAM NAME="Line0005" VALUE="Text('yezigu.com', -95, 87)"></OBJECT>
<OBJECT classid=CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6 id=SG3
style="HEIGHT: 300px; LEFT: 25%; POSITION: absolute; TOP: 25%; WIDTH: 400px; ZINDEX: 1"><PARAM
NAME="Line0001" VALUE="SetLineStyle(1)"><PARAM NAME="Line0002" VALUE="SetLineColor(66,158, 144)"><PARAM
NAME="Line0003" VALUE="SetFillStyle(0)"><PARAM NAME="Line0004" VALUE="SetFont('Arial', 280, 700, 0, 0,
0)"><PARAM NAME="Line0005" VALUE="Text('http://', -95, 87)"></OBJECT>
<OBJECT classid=CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6 id=SG2
style="HEIGHT: 400px; LEFT: 25%; POSITION: absolute; TOP: 25%; WIDTH: 400px; ZINDEX: 2"><PARAM
NAME="Line0001" VALUE="SetLineStyle(1)"><PARAM NAME="Line0002" VALUE="SetLineColor(255, 111,210)"><PARAM
NAME="Line0003" VALUE="SetFillStyle(0)"><PARAM NAME="Line0004" VALUE="SetFont('Arial', 180, 700, 0, 0,
0)"><PARAM NAME="Line0005" VALUE="Text('yezigu.com', -95, 0)"></OBJECT>
