|
|
Create Swf Flash Movie from ASP JScript - Create-Sound
Flash swf File Size: 54.9 KB
<% @LANGUAGE="JScript"
%>
<%
Response.Buffer = true
Response.CacheControl = "no-cache"
var Movie = Server.CreateObject("eMarkASF.Movie")
Movie.SetSize( 600, 229 )
Movie.SetBackgroundColorEx( "Gold"
)
var color = Server.CreateObject("eMarkASF.Color")
color.ColorString = "Red"
var obj = Server.CreateObject("eMarkASF.FlashObject")
obj.CreateText( "??!Hello!
", 0,229,30,"arial black" )
obj.SolidFillColor
= color
//obj.Scale( 50,50
Movie.AddObject( obj, 0 )
for (i=1; i<= 80; i++)
{
Movie.GotoFrame( i )
Movie.RemoveObject( obj )
color.Alpha = 250 - 3*i
obj.SolidFillColor
= color
obj.Scale( i+100,i+100
)
obj.Translate( i*4, 229
- i*4 )
Movie.AddObject( obj
)
}
obj.CreateText( "??!Hello!
", 0,-30,30,"arial black" )
color.ColorString
= "#007700"
obj.SolidFillColor
= color
Movie.GotoFrame( 0
)
Movie.AddObject( obj )
for (i=1; i<= 80; i++)
{
Movie.GotoFrame( i )
Movie.RemoveObject( obj )
color.Alpha = 250 - 3*i
obj.SolidFillColor
= color
obj.Scale( i+100,i+100
)
obj.Translate( i*4, i*4
- 30 )
Movie.AddObject( obj )
}
Response.ContentType
= "application/x-shockwave-flash"
Response.BinaryWrite(
Movie.Content )
obj.Free()
Movie.Free()
%> |
|
|
|
|
