|
|
Create Web Server Side Swf Flash Movie from ASP JScript
- Create-Circle
Flash swf File Size: 5.8 KB
<% @LANGUAGE="JScript"
%>
<%
Response.Buffer = true
Response.CacheControl = "no-cache"
var Movie = Server.CreateObject("eMarkASF.Movie")
Movie.SetSize( 600,229)
Movie.SetBackgroundColor( 255,
200, 0)
var color = Server.CreateObject("eMarkASF.Color")
color.ColorString = "Blue"
color.Alpha = 200
var obj = Server.CreateObject("eMarkASF.FlashObject")
obj.CreateCircle( 100,130,75)
obj.LineWidth = 0
obj.SolidFillColor
= color
Movie.AddObject(
obj)
var obj2 = Server.CreateObject("eMarkASF.FlashObject")
obj2.CreateCircle( 300,130,75)
obj2.LineWidth = 0
color.ColorString
= "Green"
obj2.SolidFillColor
= color
Movie.AddObject(
obj2)
var obj3 = Server.CreateObject("eMarkASF.FlashObject")
obj3.CreateCircle(
500,130,75)
obj3.LineWidth
= 0
color.ColorString = "Red"
obj3.SolidFillColor = color
Movie.AddObject( obj3)
for
(var i=1; i<=100; i++)
{
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)
}
Response.contentType
= "application/x-shockwave-flash"
Response.BinaryWrite(
Movie.Content )
obj.Free()
Movie.Free()
Response.end
%> |
|
|
|
|
