Aşağıdaki örnekle resim, program, müzik vs... istediğini indirebilirsin, dosyalar klasörüne yazma izni verdikten sonra. Denemedim ama çalışacağını hissediyorum.

<form action="?islem=kaydet" method="post">
Dosya url: <input type="text" name="url"> <br />
Dosya adı: <input type="text" name="adi"> <br />
<input type="submit" value="Kaydet">
</form>
<%
if request.querystring("islem") = "kaydet" then
adi = request.form("adi")
url = request.form("url")
yeri= "/dosyalar/"&adi

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

Set BinaryStrea = server.CreateObject("ADODB.Stream")
BinaryStrea.Type = 1 
BinaryStrea.Open
BinaryStrea.Write KK
BinaryStrea.SaveToFile server.MapPath(yeri), 2 
Set BinaryStrea = Nothing
end if
%>