Como redimensionar imagens e aplicar marca d'agua com ASPJpeg?

Question

Pessoal, preciso fazer o redimensionamento de imagens usando o ASPJPEG, já li varios topicos do forum e de outros foruns também, e também o mannual existente no proprio site aspjpeg.com, mas não consegui fazer funcionar o redimensionamento das imagens. Gostaria que o redimensionamento fosse realizado apenas para visualização, sem ter que salvar os arquivos em disco.
E tambem, ao ser exibida a imagem redimensionada gostaria que aparecesse um logomarca como marca d'agua em cada imagem no canto inferior esquerdo. alguém poderia me ajudar com esse problema?
abaixo esta meu codigo:

<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")

' Open source file
Jpeg.Open "sgw/coberturas/'"&rs("foto")&"'"

' Set new height and width
Jpeg.Width = 735
Jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth

' Perform resizing and
' send resultant image to client browser
Jpeg.SendBinary

%>

no local onde sera exibida a imagem

<img src="sgw/coberturas/<%= rs("foto")"%> border="0" />


desde já agradeço a atençao de todos
Obrigado

---

ANDRÉ GUSTAVO

Answer 1

Amigo, vide em Perlscript, tb é ASP ..

 

<%@LANGUAGE="PerlScript" CODEPAGE="65001"%>

<%

$Response->{Expires} = 0;

my $pathimagem = $Request->Querystring("path")->Item();

my $jpeg = $Server->CreateObject("Persits.Jpeg");

$jpeg->Open($pathimagem);

$jpeg->{Progressive} = 1;

$L = 430;#191 161

$jpeg->{Width} = $L;

$jpeg->{Height} = $jpeg->{OriginalHeight} * $L / $jpeg->{OriginalWidth};

$jpeg->Crop(0, 0, 333, 254);

$jpeg->{Width} = 57;

$jpeg->{Progressive} = 1;

$jpeg->{Height} = 67;

my $jpeg2 = $Server->CreateObject("Persits.Jpeg");

$jpeg2->Open("D:\wwwroot\web2.eti.br\imagens\logo.png");

$jpeg->Canvas->DrawImage(0, 0, $jpeg2, 1);

$jpeg->Grayscale(1);

$jpeg->SendBinary;

%> 

Answer 2

pronto, traduzido:

<%@LANGUAGE="VBScript" CODEPAGE="65001"%>

<%

Response.Expires = 0

dim pathimagem = Request.Querystring("path")

dim jpeg = Server.CreateObject("Persits.Jpeg")

jpeg.Open pathimagem

jpeg.Progressive = 1

L = 430

jpeg.Width = L

jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth

jpeg.Crop 0, 0, 333, 254

jpeg.Width = 57

jpeg.Progressive = 1

jpeg.Height = 67

dim jpeg2 = Server.CreateObject("Persits.Jpeg")

jpeg2.Open("D:\wwwroot\web2.eti.br\imagens\logo.png")

jpeg.Canvas.DrawImage 0, 0, jpeg2, 1

jpeg.Grayscale 1

jpeg.SendBinary

%>