ASP Source Code: iaspimage.asp
   ASP Script
   Comments
   HTML and Text

<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   

'set your path to webserver
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.


Copyright © 1998-2002, Halcyon Software Inc. All rights reserved.