求救,asp组件问题,跪地求解!进来看看,在线等!

老吴老吴 2006-02-12 10:14:23
Aspimage 组件问题
源码:
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
rem This 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
Image.FileName = "d:\inetpub\wwwroot\images\msg1.jpg"
if Image.SaveImage =1 then '******************** 到这句出错 ***************
rem The image was saved so write the <img src> tag out for the browser to pick up
Response.Write "<img src=""/images/msg1.jpg""><br>"
else
rem Something happened and we couldn't save the image so just use an HTML header
rem We need to debug the script and find out what went wrong. See Image.Error for details
Response.Write "<h2>Welcome to</h2>"
end if


执行到上面*****号的那一句出现下面错误,
ASPImage.Image (0x8000FFFF)
This evaluation component has expired. Please register.
求各位老师,前辈帮忙解答!。。谢谢!。。。。
...全文
49 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
online 2006-02-12
This evaluation component has expired. Please register

找破解版的
回复
你在vb里引用这个组件
看看都有什么方法的
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2006-02-12 10:14
社区公告
暂无公告