ASP Source Code ASP File: iaspimage.asp |
|
<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>