极酷的页面效果

是用VBscript做成的

脚本说明:
把如下代码加入<body>区域中
<SCRIPT language=VBScript>
<!--
Dim i
Dim Rotation
Dim Lib
Dim DRS
Dim winsizew
Dim winsizeh

Sub Window_OnLoad
	i=0
	Rotation=0
	Call Seq("1").Play
End Sub

Sub Seq_OnInit
	Call seq("1").at(0.000, "Gen", 20, 0.150, 1)
	Call seq("1").at(0.000, "Rot", -1, 0.030, 1)
	Call seq("1").at(3.500, "ShowMegaRecords")
	Call seq("1").at(5.000, "MoveMegaRecords", 15, 0.020)
End Sub

Sub ShowMegaRecords
	Mega.style.visibility="visible"
	Records.style.visibility="visible"
End Sub

Sub MoveMegaRecords
	Star.style.left=Star.style.posleft -25
	Star.style.top=Star.style.postop - 9
	Call Star.scale(.90,.9,.9)

Mega.style.left=mega.style.posleft - 19
	Mega.style.top=mega.style.postop - 11
	Call Mega.Scale(.95,.95,.95)

Records.style.left=Records.style.posLeft - 19
	Records.style.top=Records.style.posTop - 14
	Call Records.Scale(.95,.95,.95)
End Sub

Sub Gen
	Set Lib=Star.Library
	Set DRS=Star.DrawSurface
	Call DRS.FillStyle(0)
	Call DRS.LineDashStyle(1)
	if i mod 2=1 then
		Call DRS.BorderColor(lib.ColorRgb255(200,200,255))
	Else
	 	Call DRS.BorderColor(lib.ColorRgb255(100,100,255))
	End If
	Rotation=i * 18
	Call DRS.PieDegrees(-120, -120, Rotation, Rotation+10 , 240, 240)
	Star.DrawSurface=DRS
	i=i+1
End Sub

Sub Rot
	Call Star.Rotate(-4,2,-2)
End Sub

Sub Window_OnUnLoad
	Call Seq("1").Stop
End Sub
-->
</SCRIPT>
<OBJECT id=Star 
style="Z-INDEX: 1; LEFT: 421px; WIDTH: 303px; POSITION: absolute; TOP: 11px; HEIGHT: 282px" 
height=171 width=207 
classid=clsid:369303C2-D7AC-11D0-89D5-00A0C90833E6></OBJECT>
<OBJECT id=mega 
style="LEFT: 5%; VISIBILITY: hidden; WIDTH: 90%; POSITION: absolute; TOP: 75px; HEIGHT: 200px" 
height=14 width=14 classid=clsid:369303C2-D7AC-11D0-89D5-00A0C90833E6><PARAM NAME="Line0001" VALUE="SetFont('Impact',100, 650, 1, 0, 0)"><PARAM NAME="Line0002" VALUE="SetLineColor(110, 255, 0)"><PARAM NAME="Line0003" VALUE="SetFillColor(255, 255, 255)"><PARAM NAME="Line0004" VALUE="SetFillStyle(1)"><PARAM NAME="Line0005" VALUE="Text('COOL!', -115, 75, 0)"></OBJECT>
<OBJECT id=Records 
style="LEFT: 5%; VISIBILITY: hidden; WIDTH: 90%; POSITION: absolute; TOP: 210px; HEIGHT: 100px" 
height=14 width=14 classid=CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6><PARAM NAME="Line0001" VALUE="SetFont('Impact', 50, 700, 1, 0, 0)"><PARAM NAME="Line0002" VALUE="SetLineColor(110, 255, 0)"><PARAM NAME="Line0003" VALUE="SetFillColor(200, 200, 200)"><PARAM NAME="Line0004" VALUE="SetFillStyle(0)"><PARAM NAME="Line0005" VALUE="Text('w w w . 7 s t k . c o m', -125, 40, 0)"></OBJECT>
<OBJECT id=Seq height=50 width=50 align=top  classid=CLSID:B0A6BAE2-AAF0-11d0-A152-00A0C908DB96></OBJECT>