滑动条方式显示图片_网页特效

<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>  <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('knowsky.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('www.knowsky.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('knowsky.com', -95, 0)"></OBJECT>