<html>
<head>
<title>iASPImage Component Demonstration</title>
</head>
<body bgcolor="white">
<center>
<%
Set Image = Server.CreateObject("ASPImage.Image")
Sub AddTextToAnimation (strText, intColor, intDelay)
Image.FontColor = intColor
Image.TextOut strText, Image.X,
Image.Y, false
Image.AddImageToAnimation
Image.AddAnimationControl intDelay,
false, vbBlack
End sub
Image.AntiAliasText = True
Image.FontName = "Courier"
Image.FontSize = 40
Image.Bold = True
Image.Padsize = "0"
Image.BackgroundColor = vbBlack
Image.ClearImage
strText = "Halcyon China"
Image.MaxX = Image.TextWidth (strText) + 5
Image.MaxY = Image.TextHeight (strText) + 5
Image.X = 3
Image.Y = 3
Image.GradientTwoWay vbBlue, vbWhite, 0, 1
Image.StartAnimation true
intDelay = 20
AddTextToAnimation "H", vbRed, intDelay
AddTextToAnimation "a", vbWhite, intDelay
AddTextToAnimation "l", vbGreen, intDelay
AddTextToAnimation "c", vbBlue, intDelay
AddTextToAnimation "y", vbWhite, intDelay
AddTextToAnimation "o", vbGreen, intDelay
AddTextToAnimation "n", vbBlue, intDelay
AddTextToAnimation " ", vbGreen, intDelay
AddTextToAnimation "C", vbRed, intDelay
AddTextToAnimation "h", vbWhite, intDelay
AddTextToAnimation "i", vbGreen, intDelay
AddTextToAnimation "n", vbBlue, intDelay
AddTextToAnimation "a", vbRed, 90
path = Server.mappath("iaspimage.asp")
Image.Filename = Left(path,len(path)-13) & "iaspimage.gif"
Image.SaveAnimation
Response.Write "<img src=iaspimage.gif><br>"
Set Image = nothing
%>
</center>
</body>
</html>
|