Como redimensionar uma foto Jpeg ao enviar para o servidor

‘Primeiro vamos verificar o se o tipo de arquivo enviado será .JPG
If InStr(LCase(arquivo), ".jpg") > 0 Then

‘Depois vamos criar o objeto e abrir a imagem
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Upload.Path & arquivo

‘Especificações do seu sistema de imagens
Dim Width, Height, x0, y0, x1, y1
Width = 82
Height = 62

‘Aqui o script irá verificar a largura x altura da foto original e corrigir para o padrão que você especificou
If Jpeg.OriginalWidth < Jpeg.OriginalHeight Then
Jpeg.Width = Width
Jpeg.Height = ( Jpeg.OriginalHeight * ((Jpeg.Width * 100) / Jpeg.OriginalWidth)) / 100
Else
Jpeg.Height = Height
Jpeg.Width = ( Jpeg.OriginalWidth * ((Jpeg.Height * 100) / Jpeg.OriginalHeight)) / 100
End If

‘Determina o corte na figura e salva o arquivo final
Jpeg.Sharpen 1, 120
x0 = Fix((Jpeg.OriginalWidth/2)-(Width/2))
y0 = Fix((Jpeg.OriginalHeight/2)-(Height/2))
x1 = Fix((Jpeg.OriginalWidth/2)+(Width/2))
y1 = Fix((Jpeg.OriginalHeight/2)+(Height/2))
Jpeg.Crop x0, y0, x1, y1
Jpeg.Save Upload.Path & arquivo
End If

Espero que seja útil.

Nós queremos saber sua opinião aqui