明輝手游網(wǎng)中心：是一個免費提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺！

ASP Image 使用范例

發(fā)表時間：2024-02-18 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]使用ASPImage組件僅需以下步驟： 建一個對象 設(shè)置若干屬性 調(diào)用SaveImage方法 以下代碼舉例說明如何在vbscript中使用ASPImage組件，在這個例子中我們要建立一個漸進填充的字樣為 "welcome to"的文字圖片： Set Image = Server...

使用ASPImage組件僅需以下步驟：

建一個對象
設(shè)置若干屬性
調(diào)用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
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
rem NOTE: You should gen the filename dynamically for multiuser usage
Image.FileName = "d:\inetpub\wwwroot\images\msg1.jpg"
if Image.SaveImage then
rem The image was saved so write the <img src> tag out for the browser to pick up
Response.Write "<img src=""http://www.okasp.com/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
Response.Write "<h2>Welcome to</h2>
end if



通過使用SaveImage方法我們可以得知圖片是否已經(jīng)正確保存了。一般導(dǎo)致圖片不能正確保存的原因是圖片的保存路徑不合法或者對該路徑?jīng)]有寫的權(quán)限。

GIF Animations
圖片能被加載或進行處理，并且可以通過調(diào)用AddImage方法將這些修改保存到一個活動順序的動畫中。在soianim.asp中有個簡單的GIF動畫例子，這個文件已打包到ASPImage的ZIP文件中。（出處：熱點網(wǎng)絡(luò)）