ASP Source Code

ASP File: 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>