How To Save Images Using ASP

We've had lots of people asking how to save images from webresizer to their servers using ASP. 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.

Sending images to webresizer - 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/ext1.0/js/webresizer_api.js">
</script>

Saving images to your server - 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", strImageUrl, 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
 
%>

Kudos Ariel!