ASP 中使用 HTTP 协议发送参数详解

2019-10-29 14:55asp教程网 ASP教程

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

    %>

    <title></title>

    </head>

    <body onload=“SelText()“>

    <%

    Dim Url,Html

    'Url=“http://localhost/CSharpWebAppTest/WebForm1.aspx?tmp=33333“

    'Url=“http://localhost/CSharpWebAppTest/WebForm1.aspx“

    Url= “http://www.whois.sc/221.216.169.120“

    'Url=“http://localhost/akira/default.asp“

    Html = getHTTPPage(Url)

    Response.write Html

    %>

    </body>

    </html>