asp中用xmlhttp获取远程zip文件为什么出现501错误？ (200分)

<%
const myFile = "D:/abc.exe"
const myURL = "http://123.456.789.123/abc.exe"

Set xml = CreateObject("Microsoft.XMLHTTP")
Set objStream = Server.CreateObject("ADODB.Stream")

objStream.Mode=3
objStream.Type=1
objStream.Open
xml.Open "Get", myURL, False, "", ""
xml.Send

objStream.write xml.responseBody
objStream.Position=0
objstream.SaveToFile myFile,2
objStream.Close

Response.BinaryWrite xml.responseBody

Set xml=Nothing
set objstream = nothing
%>