最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
ASP Image 使用范例
时间:2022-06-30 11:55:59 编辑:袖梨 来源:一聚教程网
使用ASPImage组件仅需以下步骤:
建一个对象
设置若干属性
调用SaveImage方法
以下代码举例说明如何在vbscript中使用ASPImage组件,在这个例子中我们要建立一个渐进填充的字样为 "welcome to"的文字图片:
Set Image = Server.CreateObject("AspImage.Image")
rem Set various font parameters
Image.FontColor = vbBlack
Image.Italic = True
Image.Bold = True
Image.FontName = "Arial"
Image.FontSize = 12
Image.PadSize = 10
rem Calculate how big our text info is and set the image to this size
remThis has to be done since we want to fill the area with a gradient
strMessage = "Welcome to"
Image.MaxX = Image.TextWidth (strMessage)
Image.MaxY = Image.TextHeight (strMessage)
rem Create a one way gradient
Image.GradientOneWay vbRed, vbWhite, 0
rem Print our string to the image
Image.TextOut strMessage, Image.X, Image.Y, false
rem Set the filename and save
remNOTE: You should gen the filename dynamically for multiuser usage
Image.FileName = "d:inetpubwwwrootimagesmsg1.jpg"
if Image.SaveImage then
rem The image was saved so write the tag out for the browser to pick up
Response.Write "
"
else
rem Something happened and we couldn't save the image so just use an HTML header
remWe need to debug the script and find out what went wrong
Response.Write "
end if
通过使用SaveImage方法我们可以得知图片是否已经正确保存了。一般导致图片不能正确保存的原因是图片的保存路径不合法或者对该路径没有写的权限。
GIF Animations
图片能被加载或进行处理,并且可以通过调用AddImage方法将这些修改保存到一个活动顺序的动画中。在soianim.asp中有个简单的GIF动画例子,这个文件已打包到ASPImage的ZIP文件中。
建一个对象
设置若干属性
调用SaveImage方法
以下代码举例说明如何在vbscript中使用ASPImage组件,在这个例子中我们要建立一个渐进填充的字样为 "welcome to"的文字图片:
Set Image = Server.CreateObject("AspImage.Image")
rem Set various font parameters
Image.FontColor = vbBlack
Image.Italic = True
Image.Bold = True
Image.FontName = "Arial"
Image.FontSize = 12
Image.PadSize = 10
rem Calculate how big our text info is and set the image to this size
remThis has to be done since we want to fill the area with a gradient
strMessage = "Welcome to"
Image.MaxX = Image.TextWidth (strMessage)
Image.MaxY = Image.TextHeight (strMessage)
rem Create a one way gradient
Image.GradientOneWay vbRed, vbWhite, 0
rem Print our string to the image
Image.TextOut strMessage, Image.X, Image.Y, false
rem Set the filename and save
remNOTE: You should gen the filename dynamically for multiuser usage
Image.FileName = "d:inetpubwwwrootimagesmsg1.jpg"
if Image.SaveImage then
rem The image was saved so write the tag out for the browser to pick up
Response.Write "
"
else
rem Something happened and we couldn't save the image so just use an HTML header
remWe need to debug the script and find out what went wrong
Response.Write "
Welcome to
end if
通过使用SaveImage方法我们可以得知图片是否已经正确保存了。一般导致图片不能正确保存的原因是图片的保存路径不合法或者对该路径没有写的权限。
GIF Animations
图片能被加载或进行处理,并且可以通过调用AddImage方法将这些修改保存到一个活动顺序的动画中。在soianim.asp中有个简单的GIF动画例子,这个文件已打包到ASPImage的ZIP文件中。