SoFunction
Updated on 2025-04-08

Detailed explanation of the parameters used to send HTTP protocol in ASP

<%@LANGUAGE=“VBSCRIPT“ CODEPAGE=“CP_ACP“%>
    <html>
    <head>
    <meta http-equiv=“Content-Type“ content=“text/html; charset=Shift-JIS“>
    <SCRIPT LANGUAGE=“JavaScript“>
    <!--
     function SelText(){
      var oRangeRef = ();
      alert();
     }
    //-->
    </SCRIPT>
    <%
    function getHTTPPage(url)
        dim Http
        set Http=(““)
        ' “GET“,url,false
      “POST“,url,false
        ()
        if <>4 then
            exit function
        end if
        'getHTTPPage=bytesToBSTR(,“GB2312“)
     getHTTPPage=bytesToBSTR(,“Shift-JIS“)
        set http=nothing
        if <>0 then
     
     end if
    end function

    Function BytesToBstr(body,Cset)
            dim objstream
            set objstream = (““)
             = 1
             =3
            
             body
             = 0
             = 2
             = Cset
            BytesToBstr = 
            
            set objstream = nothing

    End Function
    %>

    <title></title>
    </head>

    <body onload=“SelText()“>
    <%
    Dim Url,Html
    'Url=“http://localhost/CSharpWebAppTest/?tmp=33333“
    'Url=“http://localhost/CSharpWebAppTest/“
    Url= “/221.216.169.120“
    'Url=“http://localhost/akira/“
    Html = getHTTPPage(Url)
     Html
    %>
    </body>
    </html>