用户名: 用QQ登录本站
密 码: 注册
验证码:
首页 软件 编程 笑话 知识 公告 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

[公益] 节省一分零钱 献出一份爱心 温暖世间真情       【腾讯云】云产品限时秒杀,爆款1核2G云服务器,首年99元      
广告位招租中
2021年 儿童节 23
2021年 端午节 36
2022年 元 旦 237
2022年 春 节 268
 
  • 您现在的位置:首页 >> ASP >> 内容

    通过XMLHTTP获取web访问头信息和网页代码

    内容摘要: 第一段代码是后台的程序代码:%Function BytesToBstr(body,Cset)dim objstreamset objstream = Server.CreateObject('adodb.stream')objstream.Type = 1objstream.Mode =3objstream.Openobjstream.Write bodyo......

      第一段代码是后台的程序代码:

    <%

    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


    url=request.form("url")

    if trim(url)<>"" then

    set xml = Server.CreateObject("MSXML2.XMLHTTP.5.0")

    xml.open "GET",url, False

    xml.send

    bo = BytesToBstr(xml.ResponseBody,"UTF-8")

    header = xml.GetAllResponseHeaders

    set xml = nothing

    end if


    %>

    <html>


    下面是前端HTML文件:


    <head>

    <title>XMLHTTP测试</title>

    <meta http-equiv="Content-Type" content="text/html;charset=gb2312">

    </head>

    <body bgcolor="#D4D0C8" topmargin="20" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">


    <div align="center">

    <table border="1" width="770px" cellspacing="0" cellpadding="0" bordercolorlight="#808080" bordercolordark="#FFFFFF" height="356">

    <tr>

    <form method="post">

    <td align="center" height="50">

    <input type="text" name="url" style="width:700;height:20" value="<%=url%>">

    <input type="submit" value="查看"> </td>

    </form>

    </tr>

    <tr>

    <td align="center" height="124">

    <textarea id="Textarea2" name="Textarea2" rows="7" cols="105"><%=header%></textarea></td>

    </tr>

    <tr>

    <td height="230" align="center">

    <textarea id="Textarea1" name="Textarea1" rows="14" cols="105"><%=bo%></textarea></td>

    </tr>

    </table>

    </div>


    </body>


    </html>

      版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。


    发布日期:2021/4/9 发布时间:15:18:11 点击:276 录入:齐天大圣
  • 上一篇:显示字符串前20个字符并在结尾处添加“……”
  • 下一篇:ASP实现限制每天隔5分钟开始一次新的活动的判断函数
  • 本类新增
    本类热门文章
    Baidu

    YiJiaCMS V5.1 Build 21.05.08(MSSQL) 闽ICP备05000814号-1
    本空间由景安网络提供,百度云加速提供加速防护
    齐天大圣® 制 作 ©2000-2021
    您正在使用IPV4(3.230.154.160)访问本站 您本次共访问本站 1 次