28,391
社区成员
发帖
与我相关
我的任务
分享求救，asp组件问题，跪地求解！进来看看，在线等！
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.
求各位老师，前辈帮忙解答！。。谢谢！。。。。
源码：
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.
求各位老师，前辈帮忙解答！。。谢谢！。。。。
...全文
请发表友善的回复…
发表回复
