网络编程
位置:首页>> 网络编程>> Asp编程>> WinHttp.WinHttpRequest--XmlHttp获取跳转页面的功能

WinHttp.WinHttpRequest--XmlHttp获取跳转页面的功能

作者:雨哲 来源:yz81.com 发布时间:2010-03-22 14:34:00 

标签:WinHttp.WinHttpRequest,xmlhttp,跳转,采集

最近在研究雨哲软件采集程序的时候,需要获取真实软件地址时遇到了需要读取跳转页面跳转后的真实地址的问题。

在网上找了很多方法,使用WinHttp.WinHttpRequest.5.1组件终于找到解决问题的方法了。

下面是详细代码:


'==================================================
'函数名:YuZheGetTrueUrl 雨哲QQ:425162221
'作  用:检测文件是否最重文件路径
'参  数:iYuZheUrl ------将要检测的路径
'==================================================
Function YuZheGetTrueUrl(iYuZheUrl)
    'On Error Resume Next
    YuZheGetTrueUrl = ""
    If IsNull(iYuZheUrl) = True Or Len(iYuZheUrl) < 18 Or iYuZheUrl = "" Then Exit Function
    Dim YuZheHttp
    Set YuZheHttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
    YuZheHttp.Option(6)=0 '禁止自动跳转
    YuZheHttp.SetTimeouts 5000, 5000, 30000, 5000 '设置超时
    YuZheHttp.Open "GET", iYuZheUrl, False
    YuZheHttp.Send
    If YuZheHttp.Status=302 Then '查找跳转页面
        YuZheGetTrueUrl = YuZheHttp.GetResponseHeader("Location")
    'ElseIf YuZheHttp.Status=404 Then '文件不存在
    '    YuZheGetTrueUrl = ""
    Else
        YuZheGetTrueUrl = iYuZheUrl
    End If
    Set YuZheHttp=Nothing
End Function

这里只是只是说说简单过程,具体使用请根据自己的需要进行修改。

0
投稿

猜你喜欢

  • MySQL目前不支持列的Default 为函数的形式,如达到你某列的默认值为当前更新日期与时间的功能,你可以使用TIMESTAMP列类型下面
  • 如何显示数据库的结构?<html><head><meta http-equiv="Cont
  • 在MySQL经历了2008年Sun的收购和2009年Oracle收购Sun的过程中,基本处于停滞发展的情况,在可以预见的未来,MySQL是肯
  • CSS3 + HTML5是未来的Web,它们都还没有正式到来,虽然不少浏览器已经开始对它们提供部分支持。本文介绍了5个CSS3技巧,可以帮你
  • 移动互联网被称为“第五次科技革命”,而随着iPhone和Android等智能手机的日渐流行和iPad等平板电脑的出现,移动互联网的潜力和趋势
  • 整个重装步骤大致分四个步骤进行,第一步,备份原mysql中的所有数据库。第二步,完全卸载mysql第三步,下载安装新版mysql第四步,导入
  • 数据共享是数据库最基本的特征之一。但是数据共享虽然为员工带来了便利,但也产生了一些负面作用。例如因用户并发存取而导致的对数据一致性的破坏、由
  • 它解析并马上执行动态的SQL语句或非运行时创建的PL/SQL块.动态创建和执行SQL语句性能超前,EXECUTE IMMEDIATE的目标在
  • 1.指向“开始->程序->Microsoft SQL Server 2005->配置工具->SQL Server 外
  •  很早以前就有很多关于用CSS制作的相册,今天突然想看又找不到,反正也无聊,自己做了一下,结果做一下发现自己温习了一些东西。还行,
  • 通过亲密性原则,我们可以将一个页面中的元素按照某种逻辑理解上的差异划分成不同的元素组合;再通过对齐原则,使这些不同的元素组合在视觉上看起来彼
  • JavaScript中indexOf函数方法是返回 String 对象内第一次出现子字符串的字符位置。使用方法:strObj.indexOf
  • 原文:Unobtrusive Ajax。今天才看见的一个Presentation,是Jesse Skinner在06年10月发表的。虽然题目
  • 绘制一个线框图是你在制作一个网站前必须要经历的过程。线框图能够帮助你合理的组织并简化你内容和元素,是网站内容布局的基本视觉表现方式,是网站开
  • 添加用户(随着用户的创建,自动产生与用户同名的schema) CREATE USER "TESTER" PROFILE
  • 桥接模式Bridge Pattern是什么桥接模式是一种结构型模式,它将抽象部分与实现部分分离开来,使它们可以独立地变化。在桥接模式中,我们
  • 来自Six Revisions的一篇文章,作者对一些主流的浏览器进行了测试比较,测试主要针对以下几个方面进行:1.JavaScript执行速
  • 简介这是一篇介绍网页设计原则的文章。在互联网迅速发展的今天,各种web  2.0网站竞争激烈,你死我亡。Jini,  D
  • 因此,在我接触那么多种语言当中,asp是最不严格的一种,是对程序员要求最低的一种。 昨天测试了asp.net、php和asp的运行速度比较,
  • 大家是否还记得1983年任天堂的著名游戏《超级玛丽》里那个留着胡子的意大利水管工人,还有日本konami公司1987年发行的射击游戏《魂斗罗
手机版 网络编程 asp之家 www.aspxhome.com