将页面保存到 word

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