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