Web Resizer API : How to copy an image to your server using ASP

We've had lots of people asking how to save images from webresizer to their servers using ASP. Unfortunately as unix/linux programmers we don't understand ASP code.

Many thanks to Ariel Shachar from http://www.logate.co.il (Israel) for providing the following sample ASP code. It looks beautifully simple and well done.

Transferring images to your server using ASP

EditImage.asp

<script type="text/javascript">

var webresizer_apikey = 'your API key here';     
var webresizer_image_url = 'http://yourdomain/images/<%=  imagename %>';
var webresizer_default_image_size  = '500';
var webresizer_allow_downloads  = 'no';
var webresizer_allow_uploads  = 'no';
var webresizer_uplink_text  = 'Save image';
var webresizer_single_line  = 'yes';
var webresizer_uplink_url = 'http://yourdomain/saveimage.asp';
var webresizer_is_sample_image  = 'no';
</script>

<script type="text/javascript" 
src="http://api.webresizer.com/ext/js/webresizer_api.js">
</script>

SaveImage.asp

<%
imagename = request("fileName")
url = request("url")
 
'Creating variables
 
imageUrl = url 
strImageName = imagename
 
'Function and subroutine calls
 
saveImage getImage(imageUrl), strImageName
 
'Here is code library:
 
Function getImage(strImageUrl)
  ' Set objHttp = CreateObject("Microsoft.XMLHTTP")
  ' Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
  Set objHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
  ' Set Http = CreateObject("WinHttp.WinHttpRequest")
  objHttp.Open "GET", URL, False
  objHttp.Send
            
  getImage = objHttp.ResponseBody
End Function
 
Sub saveImage(ByteArray, strImageName)
  Const adTypeBinary = 1
  Const adSaveCreateOverWrite = 2
  Const adSaveCreateNotExist = 1
            
  Set objBinaryStream = CreateObject("ADODB.Stream")
  objBinaryStream.Type = adTypeBinary
            
  objBinaryStream.Open
  objBinaryStream.Write ByteArray
  objBinaryStream.SaveToFile server.mappath("images\" & strImageName) , 
      adSaveCreateOverWrite
  response.Write("Image has been downloaded and saved!")
end sub
 
%>

Web Resizer - API

Image Gallery - ASP Demo Source