欢迎来到代码驿站!

ASP代码

当前位置:首页 > 软件编程 > ASP代码

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

时间:2021-06-12 08:19:53|栏目: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 = document.body.createTextRange();
      alert(oRangeRef.text);
     }
    //-->
    </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> 

上一篇:不用WinRar只有asp将网络空间上的文件打包下载

栏    目:ASP代码

下一篇:asp 批量删除选中的多条记录

本文标题:ASP 中使用 HTTP 协议发送参数详解

本文地址:http://www.codeinn.net/misctech/140716.html

推荐教程

广告投放 | 联系我们 | 版权申明

重要申明:本站所有的文章、图片、评论等,均由网友发表或上传并维护或收集自网络,属个人行为,与本站立场无关。

如果侵犯了您的权利,请与我们联系,我们将在24小时内进行处理、任何非本站因素导致的法律后果,本站均不负任何责任。

联系QQ:914707363 | 邮箱:codeinn#126.com(#换成@)

Copyright © 2020 代码驿站 版权所有