asp发送http请求，获取一个url的内容

时间：2014-11-12 21:22:15 收藏：0 阅读：548

response.Write("http://"&Request.ServerVariables("HTTP_HOST")&"/jfclear"&Request.ServerVariables("REQUEST_URI"))

Response.Write(GetHttpPage("http://www.baidu.com/","UTF-8"))

Function GetHttpPage(url, charset)

Dim http

Set http = Server.createobject("Msxml2.ServerXMLHTTP")

http.Open "GET", url, false

http.Send()

If http.readystate<>4 Then

Exit Function

End If

GetHttpPage = BytesToStr(http.ResponseBody, charset)

Set http = Nothing

End function

Function BytesToStr(body, charset)

Dim objStream

Set objStream = Server.CreateObject("Adodb.Stream")

objStream.Type = 1

objStream.Mode = 3

objStream.Open

objStream.Write body

objStream.Position = 0

objStream.Type = 2

objStream.Charset = charset

BytesToStr = objStream.ReadText

objStream.Close

Set objStream = Nothing

End Function

原文：http://my.oschina.net/u/937746/blog/343689