Skapa en bildomskalningssubrutin - med w3Image
Förord
Här är samma subrutin, fast med w3Image. För anrop och utförligare dokumentation hänvisar jag till den relaterade artikeln länkad nedan.Innehåll
Relaterade artiklar
» Skapa en bildomskalningssubrutin - med aspImage» Skapa en bildomskalningssubrutin för aspJpeg
<%
Sub MakeThumb(filepath, savefolder, maxwidth, maxheight)
'**Defaults
default_savepath="c:\inetpub\wwwroot\projectx\imagefolder\"
default_maxwidth=100
default_maxheight=100
'** Check parameters
Set fs=Server.CreateObject("Scripting.FileSystemObject")
if filepath="" Then Exit Sub
'since this paragraph has no default value and it is a critical
'variable you have to end the sub rutine, else it vill nog work anyway.
if fs.FileExists(filepath)=False Then Exit Sub
filename=fs.GetFileName(filepath)
if savefolder="" Then savefolder = default_savefolder
if right(savefolder,1)<> "\" Then savefolder=savefolder&"\"
if fs.FolderExists(savefolder)=False Then Exit Sub
if Isnumeric(maxwidth)=false Or 0>maxwidth Then maxwidth = default_maxwidth
if Isnumeric(maxheight)=false Or 0>maxheight Then maxheight = default_maxheight
On Error Exit Sub
'** initiate Image-function and open original image
set Image = Server.CreateObject("W3Image.Image")
'** Opens, BMP JPG PNG GIF TIFF TGA TARGA ICO and WBMP
strSave = Image.LoadImage(filepath)
'** Determen if width or height i greater, Scale in procentage (1-100
If Image.width> Image.height Then
Image.Scale 100* (maxwidth/Image.width),0
Else
Image.Scale 0, 100 * (maxheight/Image.height)
End If
'fileextension=right(filename,3) ' Or use the Split Function
fileprefix=left(filename,len(filename)-4)
'** Save new image
strSave = Image.SaveImage("savefolder & fileprefix&".jpg", "JPG", 24)
Set Image = nothing
Set fs = nothing
End Sub
%>
Inte testad vid skrivtillfället
För anrop och utförligare dokumentation hänvisar jag till Artikel [Skapa en bildomskalningssubrutin för aspJpeg]
0 Kommentarer