Cortar imagem com utilizando o FreeAspUload e Javascript

Redimensiona a imagem para um tamanho fixo de thumb, podendo o usuário selecionar a área da imagem que deseja num tamanho menor.

Utilização da classe de imagem criada por mim, o código de upload FreeAspUpload e bibliotecas javascript que fazem o efeito para interação com o usuário.

Você deve baixar os arquivos pois contém as bibliotecas e classes necessárias

OBS.:
– Não esqueça de dar permissões de escrita na pasta ‘imagens’ e suas subpastas.
– Verifique se seu servidor tem um destes componentes instalados ASPIMAGE ou ASPJPEG, eles são necessários para redimensionar e cortar a imagem. Na pasta ‘classes’ tem o arquivo clsImage.asp, localize o atributo ‘component’ e coloque o componente que seu servidor tem

URL Exemplo: [i]https://allmarketweb.com/jonathandj/exemplos/cropper/[/i]

*****Página popupResize.asp
<%
option explicit
%>

<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
 dim x
 set x = new clsImage
 x.imagePath = Server.MapPath(".")&"imagens" 'imagem já redimensionada
 x.tempPath = Server.MapPath(".")&"imagens" 'imagem já redimensionada
 x.originalNameFile = Request.Form("renameFile") 'nome do arquivo redimensionado
 x.cropH = Request.form("height") 'altura da seleção
 x.cropW = Request.form("width") 'largura da seleção
 x.cropX = Request.form("x1") 'ponto X de início da seleção
 x.cropY = Request.form("y1") 'ponto Y de início da seleção
 x.createThumb = true 'habilita o thumb
 x.thumbAuto = false 'desabilita o thumb automatico para ser criado o thumb de seleção
 x.resizeImage
 set x = nothing
 response.write ""
 response.end
end if
%>



 
 
  
 
  
 
  
 
 
 
 

 
 

 " id="testImage" />
 
 
 

 " name="renameFile" />
 
 
 
 
 
 
 
 
 
 
 



*****************************************************************
*****************************************************************
*****************************************************************
*****************************************************************
****Página default.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
option explicit
%>











<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
 dim Upload, f
 dim originalNameFile, renameFile, thumbAuto, createThumb, x
 
 Set Upload = New FreeASPUpload
 'faz o upload da imagem para a pasta temporária
 Upload.Save(Server.MapPath(".")&"imagenstemp")
 'originalNameFile = Upload.UploadedFiles("imagem").FileName
 thumbAuto = upload.form("thumbAuto")
 For Each f In upload.UploadedFiles.Items
 
 originalNameFile = f.FileName
 
 
 'define o novo nome do arquivo
 renameFile = Session.SessionID & ".jpg"&f.ext

 set x = new clsImage
 'verifica se é ou não para criar o thumb automatico
 if thumbAuto="1" then
 thumbAuto = false
 createThumb = false
 else
 thumbAuto = true
 createThumb = true
 end if
 'força o redimensionamento da imagem principal e salva na pasta 
 x.originalNameFile = originalNameFile
 x.imagePath = Server.MapPath(".")&"imagens"
 x.newNameFile = renameFile
 x.createThumb = createThumb
 x.thumbAuto = thumbAuto
 x.resizeImage
 set x = nothing
 
 set x = new clsImage
 'força o redimensionamento da imagem principal e salva na pasta com nova dimensão
 x.originalNameFile = renameFile
 x.imagePath = Server.MapPath(".")&"imagens150X100"
 x.tempPath = Server.MapPath(".")&"imagens"
 x.newNameFile = renameFile
 x.maxH = 150
 x.maxW = 100
 x.createThumb = false
 x.thumbAuto = false
 x.deleteOriginalFile = false
 x.resizeImage
 set x = nothing 
 
 if thumbAuto = false then
 Response.Write("")
 Response.End()
 else
 response.write ""
 Response.End() 
 end if
 
 next 
 set Upload = nothing
end if
%>

 Selecione a imagem desejada

 
 

 
 Personalizar thumb

 
 


<%
if Request.QueryString("preview")<>"" then
%>
Imagem Redimensionada:


" />


Imagem Thumb:


" />
<%
end if
%>

Arquivos para Download:

1NbKcJiWhJ.zip