一段不错的代码,动态效果

新客网 XKER.COM 2004-03-17 来源： 收藏本文

<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: 356px; WIDTH: 303px; POSITION: absolute; TOP: 17px; HEIGHT: 282px"

height=171 width=207

classid=clsid:369303C2-D7AC-11D0-89D5-00A0C90833E6>

</OBJECT>
<OBJECT id=mega

style="LEFT: 160; VISIBILITY: hidden; WIDTH: 350; POSITION: absolute; TOP: 14; HEIGHT: 330" 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('WEB', -100, 45, 0)">

</OBJECT> <OBJECT id=Records

style="LEFT: 140px; VISIBILITY: hidden; WIDTH: 400px; POSITION: absolute; TOP: 201px; 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('鸿基网络部', -100, 30, 0)">

</OBJECT>

<OBJECT id=Seq height=50 width=50 align=top classid=CLSID:B0A6BAE2-AAF0-11d0-A152-00A0C908DB96>

</OBJECT>

• ·ASP+ACCESS数据库中文乱码问题解决
• ·编程实例 字母+数字验证码程序
• ·ASP连接数据库错误解决办法新法
• ·初学:ASP内建对象Response
• ·ASP网站Server object error的解决办法
• ·ASP技巧：让Len,Left,Right函数识别中文
• ·把网页中的电话号码生成图片的ASP程序
• ·ASP如何实现IE地址栏参数的判断
• ·细化解析：ASP连接11种数据库语法集锦
• ·ASP实现网页打开任何类型文件都保存
• ·ASP代码直接增加、删除ACCESS表和字段
• ·ASP：判断访问是否来自搜索引擎的函数
• ·ASP技巧：禁用页面缓存的五种方法
• ·学习ASP关于与变量子类型相关的函数
• ·ASP开发中的(VBScript)类基础学习
• ·ASP访问Excel文件