用XMLHTTP读取网页源代码-会员卡,广州印刷,深圳印刷,印刷公司,名片,彩页,名片设计,设计教程,名片制作,彩色名片,名片模板,贵宾卡,pvc卡,设计欣赏,深圳名片,广州名片,business card design

首页	名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash

» 彩色名片
» PVC卡
» 彩色磁性卡
» 彩页/画册
» 个性印务
» 彩色不干胶
» 明信片
   » 明信片
   » 彩色书签
   » 门挂
» 其他产品与服务
   » 创业锦囊
   » 办公用品
   » 信封、信纸
   » 便签纸、斜面纸砖
   » 无碳复印纸
   » 海报
   » 大篇幅印刷
   » KT板
   » 海报
   » 横幅

用XMLHTTP读取网页源代码
    在VBScript中，我们用XMLHTTP组件来获取网页源代码，并可以赋给某变量从而动态保存为HTML文件。有关XMLHTTP对象的介绍请参考以下文章：http://www.webjx.com/htmldata/2005-10-17/1129556661.html；有关XMLHTTP的使用实例请参考以下文章：http://www.webjx.com/htmldata/2005-02-25/1109332374.html。
    我按照第二篇文章的介绍写了一段代码：
    <%
    set x=server.createObject("Microsoft.XMLHTTP")
    x.open "get","http://www.webjx.com",false
    x.send
    response.write "<xmp>"&x.responseText&"</xmp>"
    set x=nothing
    %>
    不过测试后发现其中的中文全都显示为乱码，去网上搜了一下，实在找不着一个简朴的解决办法。不过找到一个responseBody属性，这在第一篇文章中是没有提及的。和responseText属性不同的是，responseBody返回的是一个二进制字符串（responseText返回的是普通字符串），用response.binaryWrite x.responseBody，发现能正常显示中文。于是我们只需编写一个把二进制字符串转变为普通字符串的函数bin2str：

    function bin2str(bin)
        dim tmp,ustr
        tmp=""
        for i=1 to LenB(bin)-1
            ustr=AscB(MidB(bin,i,1))
            if ustr>127 then
                i=i+1
                tmp=tmp&chr(ustr*256+AscB(MidB(bin,i,1)))
            else
                tmp=tmp&chr(ustr)
            end if
        next
        bin2str=tmp
    end function

    关于从二进制字符串中恢复汉字信息请参照以下文章：http://www.ahcit.com/200407/20040752.doc。
    有了这个函数，我们就可以很方便地提取指定网址的源代码并赋给变量了：

    set x=server.createObject("Microsoft.XMLHTTP")
    x.open "get","http://www.webjx.com",false
    x.send
    str=bin2str(x.responseBody)
    response.write "<xmp>"&str&"</xmp>"
    set x=nothing

返回类别: 教程
上一教程: 用XMLHTTP对象Post表单
下一教程: XML Schema帮你建模（3）

您可以阅读与"用XMLHTTP读取网页源代码"相关的教程:
· XMLHTTP异步获取网站数据的例子
· 网页屏蔽(左右键,代码等)的非JS方式
· 各种网页媒体播放器代码及详解
· 怎样使用网页JS提交发信给我
· W3C入门第6天:XHTML代码规范


	快精灵印艺坊版权所有	首页会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店网站地图关于我们友情链接