72、页面中的超酷效果

72、页面中的超酷效果

脚本说明:

把如下代码加入<body>区域中

<SCRIPT language=VBScript>

<!--

' Sets initial variables and letter starting positions

 

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

 

' sets rotation speed and behavior as well as creating loop

 

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 bgColor=white>

 

<!--TOOLBAR_START--><!--TOOLBAR_EXEMPT--><!--TOOLBAR_END--><!--Object creates solid light blue E, structured graphic using text set to fill -->

<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('7stk.com', -95, 87)">

</OBJECT>

<!--Object creates green outline around solid E, structured graphic using text set to no fill -->

<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('7stk.com', -95, 87)">

</OBJECT>

 

<!-- Object creates pink E that loops around -->

<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('Welcome', -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('How are you', -95, 0)">

</OBJECT>

Write a comment

Comments: 0