网络时空 | 网页特效

特效说明

非常漂亮的文字转动显示，快看吧

特

效

代

码

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

<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('k688.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('k688.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('Welcome', -95, 87)">
</OBJECT>

@_⌒ 特效预览 @_⌒

预览：