Roby,
scaricando il sorgente per curiosita' ho visto che c'è il file MODIMG.asp a corredo dello zip
dovrebbe essere + o meno quello che chiedevi no?codice:<% rem ******************************************************************** rem * rem * Note: This demo uses the lanmannt.bmp file. You can change to rem * another BMP if you like but you'll have to modify the XY rem * values to fit within your BMP image or set AutoSize = true rem * rem ******************************************************************** rem ********************************************************************** rem * Instantiate the object rem ********************************************************************** Set Image = Server.CreateObject("AspImage.Image") rem ********************************************************************** rem * If AutoSize is false then any text that exceeds the current image rem * will be clipped. rem ********************************************************************** Image.AutoSize = false rem ********************************************************************** rem * Load a BMP. You can load JPG and BMP files rem ********************************************************************** Image.LoadImage("d:\winnt\lanmannt.bmp") rem ********************************************************************** rem * Set some font properties, set the X and Y location and write some rem * text out to the loaded image rem ********************************************************************** Image.FontName = "MS Sans Serif" Image.FontColor = vbRed Image.FontSize = 6 Image.TextOut "SteveG's Demo", 370, 57, false rem ********************************************************************** rem * Set some font properties, set the X and Y location and write some rem * 3D'd text out to the loaded image rem ********************************************************************** Image.Bold = True Image.FontSize = 12 Image.X = 160 Image.Y = 230 Image.TextOut "ASP Improved Version", Image.X, Image.Y, true rem ********************************************************************** rem * Demostrate the fact that X has been moved forward beyond the rem * original 160. Just add 20 to bump it over a little rem ********************************************************************** Image.TextOut "X =" & Image.X, Image.X + 14, Image.Y, true rem ********************************************************************** rem * Show how to calculate the next Y value. We'll take the previous Y value rem * of 230 and add the TextHeight of the string XYZ to determine what our rem * new Y starting value should be rem ********************************************************************** Image.X = 160 Image.Y = Image.Y + Image.TextHeight("XYZ") Image.FontSize = 10 Image.TextOut Now, Image.X, Image.Y, false rem ********************************************************************** rem * Set the physical path for the FileName we are going to save rem * NOTE: You should gen the filename dynamically for multiuser usage rem ********************************************************************** Image.FileName = "d:\inetpub\wwwroot\images\lman.jpg" rem ********************************************************************** rem * Save the image rem ********************************************************************** Image.SaveImage rem ********************************************************************** rem * Now write the <img src> tag out for the browser to pick up rem ********************************************************************** Response.Write "[img][/img] " rem ********************************************************************** rem * These properties give eval/registration information for the component rem ********************************************************************** rem Response.Write " Expires: " & Image.Expires rem Response.Write " Version: " & Image.Version rem Response.Write " Registered To: " & Image.RegisteredTo Set Image = nothing %>
lui dice: You can load JPG and BMP files

Rispondi quotando