SET XML = Server.createObject ("Microsoft.xmlhttp") XML.Open "get", "www.163.com", False 'Pull The Data from The Web Page Xml.send
set oStream = server.CreateObject ( "ADODB.Stream") oStream.Type = 1 oStream.Mode = 3 oStream.Open () oStream.Write (xml.responseBody) oStream.Position = 0 oStream.Type = 2 oStream.Charset = "UTF-8" 'Result = ostream.readtext () ostream.savetofile (Server.MAppath ("aa.doc") ostream.close ()
Set ostream = Nothing 'response.write (result)' response.redirect "aa.xls" set XML = Nothing
