欢迎来到安信科技官方网站!【www.anxin66.com】
18112005550
工作时间: 8:30-21:30
新闻中心
News Center

【解决方案】ASP抓取网页自定义函数GetBody

资讯分类: 资源共享  浏览: 2015年12月26日

 Function GetBody(weburl)  

    '创建对象 
    Dim ObjXMLHTTP 
    Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP") 
    '请求文件,以异步形式 
    ObjXMLHTTP.Open "GET",weburl,False 
    ObjXMLHTTP.send 
    While ObjXMLHTTP.readyState <> 4 
        ObjXMLHTTP.waitForResponse 1000 
    Wend 
    '得到结果 
     GetBody=ObjXMLHTTP.responseBody 
    '释放对象 
     Set ObjXMLHTTP=Nothing 
End Function

 
Copyright © 2007-2022 安信科技(十五周年纪念版) All Rights Reserved  备案号:苏ICP备15047094号-3 
网站首页 |  新闻资讯 |  服务项目 |  软件产品 |  试用下载 |  需求提交 |  模版建站 |  关于安信 |  产品授权 |  联系我们 |  定制开发 | 
服务热线:181-1200-5550  客服QQ: 120094883  | 邮箱:120094883#qq.com(#改@)