jacn
Power Member
Olá a todos.
Estou a fazer um site que tem de redimensionar imagens em ASP. Esse redimensionamento é feito através de um plugin (aspimage.dll) da Server objects. Acontece que terei de mudar a rotina para que esse redimensionamento seja feito através do plugin AspJpeg da Persits, pois o servidor onde eu vou alojar só suporte esse plugin. A rotina que eu tenho em ASP do aspimage é o seguinte:
'********resize main
Set Image = Server.CreateObject("AspImage.Image")
Image.AutoSize = false
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Image.LoadImage userimage2
Set FSO = Nothing
intXsizeMain = Image.MaxX
intYsizeMain = Image.MaxY
if intYsizeMain > 300 then
targetY = 300
findsize1 = intYsizeMain - targetY
findsize2 = findsize1 / intYsizeMain
findsize3 = (1 - findsize2)
intXSizeNew = (intXsizeMain * findsize3)
Image.ResizeR intXSizeNew, targetY
Image.FileName = userimage2
Image.SaveImage
end if
Set Image = nothing
'**********end main
'********resize thumbnail
Set Image = Server.CreateObject("AspImage.Image")
Image.AutoSize = false
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Image.LoadImage userimage
Set FSO = Nothing
intXSize = Image.MaxX
intYsize = Image.MaxY
if intYsize > 50 then
targetY = 50
findsize1 = intYsize - targetY
findsize2 = findsize1 / intYsize
findsize3 = (1 - findsize2)
intXSizeNew = (intXsize * findsize3)
Image.ResizeR intXSizeNew, targetY
Image.FileName = userimage
Image.SaveImage
end if
Set Image = nothing
set intXSize = nothing
set intYsize = nothing
'**********end thumbnail
O objectivo era elaborar uma rotina que fizesse o mesmo, mas utilizando o pluginAspJpeg da Persits.
Abraço.
Estou a fazer um site que tem de redimensionar imagens em ASP. Esse redimensionamento é feito através de um plugin (aspimage.dll) da Server objects. Acontece que terei de mudar a rotina para que esse redimensionamento seja feito através do plugin AspJpeg da Persits, pois o servidor onde eu vou alojar só suporte esse plugin. A rotina que eu tenho em ASP do aspimage é o seguinte:
'********resize main
Set Image = Server.CreateObject("AspImage.Image")
Image.AutoSize = false
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Image.LoadImage userimage2
Set FSO = Nothing
intXsizeMain = Image.MaxX
intYsizeMain = Image.MaxY
if intYsizeMain > 300 then
targetY = 300
findsize1 = intYsizeMain - targetY
findsize2 = findsize1 / intYsizeMain
findsize3 = (1 - findsize2)
intXSizeNew = (intXsizeMain * findsize3)
Image.ResizeR intXSizeNew, targetY
Image.FileName = userimage2
Image.SaveImage
end if
Set Image = nothing
'**********end main
'********resize thumbnail
Set Image = Server.CreateObject("AspImage.Image")
Image.AutoSize = false
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Image.LoadImage userimage
Set FSO = Nothing
intXSize = Image.MaxX
intYsize = Image.MaxY
if intYsize > 50 then
targetY = 50
findsize1 = intYsize - targetY
findsize2 = findsize1 / intYsize
findsize3 = (1 - findsize2)
intXSizeNew = (intXsize * findsize3)
Image.ResizeR intXSizeNew, targetY
Image.FileName = userimage
Image.SaveImage
end if
Set Image = nothing
set intXSize = nothing
set intYsize = nothing
'**********end thumbnail
O objectivo era elaborar uma rotina que fizesse o mesmo, mas utilizando o pluginAspJpeg da Persits.
Abraço.