Create Flash Swf Animation from ASP VBScript - Create-Circle

Flash swf File Size: 5.8 KB

<% @LANGUAGE="VBSCRIPT" %>
<%
response.Buffer = true
response.CacheControl = "no-cache"

' Create flash movie object
set movie = Server.CreateObject("eMarkASF.Movie")

' Set the stage size and background-color of flash movie
    movie.SetSize 600,229
    movie.SetBackgroundColor 255, 200, 0

' Use a color object
set color = Server.CreateObject("eMarkASF.Color")
    color.ColorString = "Blue"
    color.Alpha = 200

' Create flash object
set obj = Server.CreateObject("eMarkASF.FlashObject")
    obj.CreateCircle 100,130,75
    obj.LineWidth = 0
    obj.SolidFillColor = color

    movie.AddObject obj

set obj2 = Server.CreateObject("eMarkASF.FlashObject")

    obj2.CreateCircle 300,130,75
    obj2.LineWidth = 0
    color.ColorString = "Green"
    obj2.SolidFillColor = color

    movie.AddObject obj2

set obj3 = Server.CreateObject("eMarkASF.FlashObject")

    obj3.CreateCircle 500,130,75
    obj3.LineWidth = 0
    color.ColorString = "Red"
    obj3.SolidFillColor = color

    movie.AddObject obj3

' Make a circle moving animation
for i=1 to 100
    movie.GotoFrame i
    movie.RemoveObject obj
    obj.Translate i*4,0
    movie.AddObject obj

    movie.RemoveObject obj3
    obj3.Translate -i*4,0
    movie.AddObject obj3
next

    response.contentType = "application/x-shockwave-flash"
    response.binarywrite movie.Content

    ' Free all objects
    obj.Free
    movie.Free
%>