Asp ile herhangi bir dosyayı indirmek

Bazen internetteki herhangi bir dosyayı sunucumuza indirmek gerekebiliyor. Bunun için indirmemiz gereken dosyayı, ilk önce bilgisyarımıza sonra ftp aracılığıyla sunucumuza atarız genelde :)
Aşağıdaki örnek kodla sunucumuza indirmemiz gereken dosyanın adresini yazarak o dosyayı sunucumuza alabiliriz, dosyanın türü farketmez, resim, exe, rar, swf, fla vs..<%
dosya_adi = "ornek.rar"
dosya_adresi = "http://www.site.com/ornek.rar"

Set XmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
XmlHttp.Open "GET", dosya_adresi, False
XmlHttp.send
Peksoft = XmlHttp.ResponseBody
Set XmlHttp = Nothing

Set BinaryStream = Server.CreateObject("ADODB.Stream")
BinaryStream.Type = 1
BinaryStream.Open
BinaryStream.Write Peksoft
BinaryStream.SaveToFile Server.MapPath("klasor"& dosya_adi & ""), 2
Set BinaryStream = Nothing
%> Yukardaki kodu kendinize göre geliştirerek kullanabilirsiniz. Ben ufak bir örnek yaptım, yaptığım örnekte dosyanın adresini ve dosyanın adını giriyorsunuz sonra hangi klasöre indirileceğini yazıyorsunuz ve butona tıklıyorsunuz. :)
Yaptığım örneği indirmek için buraya tıklayın.