.NET Facil

Imports System.Drawing.Imaging
Imports System.IO

Public Class ShowThumb
   Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

   'This call is required by the Web Form Designer.
 Private Sub InitializeComponent()

   End Sub

   'NOTE: The following placeholder declaration is required by the Web Form Designer.
   'Do not delete or move it.
   Private designerPlaceholderDeclaration As System.Object

   Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
       'CODEGEN: This method call is required by the Web Form Designer
       'Do not modify it using the code editor.
       InitializeComponent()
   End Sub

#End Region

   Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       'MUDE CONTENT TYPE CASO VOCÊ UTILIZE OUTROS TIPOS DE IMAGEM
       Response.ContentType = "image/jpeg”
       generateThumb(Request.QueryString("img"), Integer.Parse(Request.QueryString("width")))
   End Sub

   Public Sub generateThumb(ByVal ImgUrl As String, ByVal ImageWidth As Integer)
       'VERIFICA SE O PARÂMETRO CAMINHO DA IMAGEM FOI FORNECIDO
       If ImgUrl <> "" Then
           'RECUPERA O CAMINHO FISICO DA IMAGEM NO DISCO
           Dim PathArquivo = Server.MapPath(ImgUrl)
           If File.Exists(PathArquivo) Then
               Try
                   'CRIA UM NOVO BITMAP A PARTIR DA IMAGEM FORNECIDA
                   Dim bm As Bitmap = System.Drawing.Image.FromFile(PathArquivo)

                   'DECLARA A NOVA LARGURA DA IMAGEM
                   Dim newWidth As Integer = ImageWidth

                   'CALCULA A NOVA ALTURA A PARTIR DA LARGURA ENVIADA COMO PARÂMETRO
                   Dim newHeight As Integer = (newWidth / bm.Width) * bm.Height

                   'CRIA UM NOVO BITMAP COM A NOVA LARGURA E ALTURA
                   Dim Resized As Bitmap = New Bitmap(newWidth, newHeight)

                   'CRIA UM NOVO OBJETO GRÁFICO PARA EXECUÇÃO DO REDIMENSIONAMENTO
                   Dim g As Graphics = Graphics.FromImage(Resized)

                   'REDIMENSIONA A IMAGEM ORIGINAL E SALVA NO NOVO BITMAP
                   g.DrawImage(bm, New Rectangle(0, 0, Resized.Width, Resized.Height), 0, 0, bm.Width, bm.Height, GraphicsUnit.Pixel)

                   'LIBERA OS RECURSOS UTILIZADOS PELO OBJETO GRÁFICO
                   g.Dispose()

                   'SALVA A IMAGEM DIRETAMENTE NO RESPONSE OBJECT (DIRETO PARA O BROWSER) NO FORMATO JPEG
                   'MUDE O IMAGEFORMAT AQUI CASO TRABALHE COM OUTROS TIPOS DE IMAGEM
                   Resized.Save(Response.OutputStream, ImageFormat.Jpeg)
               Catch ex As Exception
                   Response.Write(ex.ToString)
               End Try
           End If
       End If
   End Sub

End Class

<img src="’ShowThumb.aspx?img="imagens/PREDIO1.jpg&width="250’">