ASP远程保存图片

<%
"先下载远程图片
url="http://www.im286.com/image... "远程图片地址
savepath="D:photo\" "保存路径
"为文件重命名
randomize
ranNum=int（999*rnd）
filename=year（now）&month（now）&day（now）&hour（now）&minute（now）&second（now）&ranNum
"为文件重命名结束
set xmlhttp=server.createobject（"Microsoft.XMLHTTP"）
xmlhttp.open "get",url,false
xmlhttp.send
img = xmlhttp.ResponseBody
set xmlhttp=nothing
set objAdostream=server.createobject（"ADODB.Stream"）
objAdostream.Open（）
objAdostream.type=1
objAdostream.Write（img）
objAdostream.SaveToFile（savepath&filename&".jpg"）
objAdostream.SetEOS
set objAdostream=nothing
"文件下载结束
Set Upload = Server.CreateObject（"Persits.Upload"） "打开对象
Set File = Upload.OpenFile（savepath&filename&".jpg"） "打开已经保存的文件

If File.ImageType <> "JPG" and File.ImageType <> "GIF" and File.ImageType <> "BMP" and File.ImageType <> "PNG" Then
Upload.DeleteFile savepath&filename&".jpg" "如果格式不正确就删除这张已下载的图片
response.write "错误的图片格式"
end if
"注销实例
Set Upload = nothing
Set File = nothing
%>