<HTML>
<HEAD>
<TITLE>iASP_Image Demo</TITLE>
</HEAD>
<BODY bgcolor="white"> <CENTER>
<% Response.Expires = 0 initVal="Halcyon
China"
Set Image = Server.CreateObject("ASPImage.Image")
Dim colorarray
colorarray = Array(vbBlack, vbRed, vbGreen,
vbYellow, vbBlue, vbMagenta, vbCyan, vbWhite)
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
temp=request.form("mychoice")
strText = "Halcyon China"
if temp<>"" then
if temp <> strText then
strText=temp
end if
end if
initVal=strText
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
For i = 1 to Len(strText)
AddTextToAnimation Mid(strText,
i, 1), colorarray((i-1) mod 8), intDelay
Next
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>
<FORM method=post id=form1 name=form1
action="iaspimage.asp">
<P align=left><FONT size=3><B>Enter
a string below:</B></FONT><BR>
<INPUT type='text' name='mychoice' size='50'
value="<%=initVal%>">
<INPUT id=button1 name=button1 type=submit value=POST>
</FORM>
</BODY>
</HTML>
If you require technical support please send complete details about the
problem you are having to support@halcyonsoft.com.
|