|
|
Create Web Server Side
SWF Flash from ASP VBScript
Flash swf File Size: 54.9 KB
<% @LANGUAGE="VBSCRIPT"
%>
<%
response.Buffer = true
response.CacheControl = "no-cache" set
movie = Server.CreateObject("eMarkASF.Movie")
movie.SetSize 600,229 movie.SetBackgroundColorEx
"Gold" set color =
Server.CreateObject("eMarkASF.Color") color.ColorString
= "cornflowerblue"
'Load a wav file to create sound
in flash movie set
obj = Server.CreateObject("eMarkASF.FlashObject")
obj.CreateSound Server.MapPath(".")
& "\sample3.wav" movie.AddObject
obj obj.CreateCircle
300,120,20 obj.SolidFillColor
= color movie.AddObject obj
for
i=1 to 72 movie.GotoFrame
i movie.RemoveObject obj
obj.CreateCircle 300,120,20 +
i obj.SolidFillColor = color
movie.AddObject obj
next
response.contentType = "application/x-shockwave-flash" response.binarywrite
movie.Content obj.Free
movie.Free %> |

|
|
|
|