[C]通过XMLHTTP获取CGI/PHP等程序的返回值

ASP.NET 中的 HTTP 请求处理

最新推荐文章于 2021-04-07 18:29:30 发布

转载最新推荐文章于 2021-04-07 18:29:30 发布 · 1k 阅读

文章标签：

#function #c #url

ASP 专栏收录该内容

0 篇文章

订阅专栏

本文介绍了一个使用 ASP.NET 和 MSXML2.XMLHTTP 对象进行 HTTP POST 请求的方法。通过示例展示了如何发送请求并接收响应，同时解析响应体为 GB2312 编码的字符串。

function getHTTPPage(url)
        dim Http
        set Http=server.createobject("MSXML2.XMLHTTP")
        Http.open "POST",url,false
        Http.send()
        if Http.readystate<>4 then
                exit function
        end if
        getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
        set http=nothing
        if err.number<>0 then err.Clear
end function

Private Function BytesToBstr(Body,Cset)
        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 = Cset
        BytesToBstr = Objstream.ReadText
        Objstream.Close
        Set Objstream = Nothing
End Function

Dim Str_Url,Result
Result = getHTTPPage(Str_Url)