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

2019独角兽企业重金招聘Python工程师标准>>>

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

转载于:https://my.oschina.net/u/937746/blog/343689