
	ASP Flash VBScript Examples Create Bitmap Create Button Create Circle Create EditText Create Polygon Create Sound Create-Text JScript Samples PHP Examples C# Code Download Help File (71KB) ASFHelp.chm Full Trial (1.82MB) ASFDemo.zip

	ActiveX/Component Library Active Server Image

Create Swf Flash Movie from ASP VBScript - Create-Text

Flash swf File Size: 10.5 KB

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

set Movie = Server.CreateObject("eMarkASF.Movie")
    Movie.SetSize 600, 229
    Movie.SetBackgroundColorEx "Gold"

set objFileName = Server.CreateObject("eMarkASF.FlashObject")
    objFileName.CreateText Request.ServerVariables("Script_Name"), 0,0
    objFileName.Translate 20,10
    Movie.AddObject objFileName
    objFileName.Free

set color = Server.CreateObject("eMarkASF.Color")
    color.ColorString = "Red"

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

    obj.CreateText "?? Hello! ", 0, 229, 30, "arial black"
    obj.SolidFillColor = color
    'obj.Scale 50,50

    Movie.AddObject obj, 0

' Make the text animation
for i=1 to 80
    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
next

    obj.CreateText "?? Hello! ", 0, -30, 30, "arial black"
    color.ColorString = "#007700"
    obj.SolidFillColor = color
    movie.GotoFrame 0
    Movie.AddObject obj

' Make another text animation
for i=1 to 80
    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
next

    'movie.SaveToFile Server.MapPath(".") & "\CreateText.swf"
    'response.End

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

    obj.Free
    Movie.Free
%>

ASP Flash VBScript Examples

Download

ActiveX/Component Library

Create Swf Flash Movie from ASP VBScript - Create-Text