ASP使用HTTP 协议，发送参数

最新推荐文章于 2020-12-31 09:05:01 发布

great_domino

最新推荐文章于 2020-12-31 09:05:01 发布

阅读量2.2k

点赞数

分类专栏： ASP 文章标签： asp function url vbscript html javascript

本文链接：https://blog.csdn.net/great_domino/article/details/539874

版权

ASP 专栏收录该内容

28 篇文章 0 订阅

订阅专栏

<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift-JIS">
<SCRIPT LANGUAGE="JavaScript">

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

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
%>