有一个关于MSXML2.XMLHTTP的问题求教!

Web 开发 > ASP
收藏 回复
[问题点数：50分，结帖人ppxstar]
更多帖子
私信 空间 博客
ppxstar
等级
本版专家分：105
结帖率 98.81%
大家好！

我用MSXML2.XMLHTTP来读取一个网页的代码
但是那个网页有下面一段代码


<SCRIPT language=javascript>
<!--
if(window.name!='sname')
{
top.location="http://www.sname.com/index.html"
}
var state=0
window.resizeTo(620,465);
window.moveTo(140,90);
//-->
</SCRIPT>


结果我读取的页面成了转向的http://www.sname.com/index.html
请问如何饶过这一句，直接读取我想要的页面呢？
只看楼主 引用 举报 楼主 收起
展开阅读全文
更多帖子
私信 空间 博客
版主
什么都不能
等级
本版专家分：17437
勋章
Blank
黄花 2017年12月 Java大版内专家分月排行榜第二
Blank
蓝花 2017年2月 Java大版内专家分月排行榜第三
那个网页的网址，顺便写一下你代码，看一下是否有问题
只看TA 引用 举报 #1得分 50
更多帖子
私信 空间 博客
ppxstar
等级
本版专家分：105
代码就是很普通的读取，已经成功的读取很多了，就这一个页面，因为有一个判断，所以读不成功。

Function GetHttpPage(HttpUrl)
   If IsNull(HttpUrl)=True Or HttpUrl="$False$" Then
      GetHttpPage="$False$"
      Exit Function
   End If
   Dim Http
   Set Http=server.createobject("MSXML2.XMLHTTP")
   Http.open "GET",HttpUrl,False
   Http.Send()
   If Http.Readystate<>4 then
      Set Http=Nothing 
      GetHttpPage="$False$"
      Exit function
   End if
   GetHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
   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

Function GetBody(ConStr,StartStr,OverStr,IncluL,IncluR)
   If ConStr="$False$" or ConStr="" or IsNull(ConStr)=True Or StartStr="" or IsNull(StartStr)=True Or OverStr="" or IsNull(OverStr)=True Then
      GetBody="$False$"
      Exit Function
   End If
   Dim ConStrTemp
   Dim Start,Over
   ConStrTemp=Lcase(ConStr)
   StartStr=Lcase(StartStr)
   OverStr=Lcase(OverStr)
   Start = InStrB(1, ConStrTemp, StartStr, vbBinaryCompare)
   If Start<=0 then
      GetBody="$False$"
      Exit Function
   Else
      If IncluL=False Then
         Start=Start+LenB(StartStr)
      End If
   End If
   Over=InStrB(Start,ConStrTemp,OverStr,vbBinaryCompare)
   If Over<=0 Or Over<=Start then
      GetBody="$False$"
      Exit Function
   Else
      If IncluR=True Then
         Over=Over+LenB(OverStr)
      End If
   End If
   GetBody=MidB(ConStr,Start,Over-Start)
End Function
只看TA 引用 举报 #2得分 0
更多帖子
私信 空间 博客
版主
什么都不能
等级
本版专家分：17437
勋章
Blank
黄花 2017年12月 Java大版内专家分月排行榜第二
Blank
蓝花 2017年2月 Java大版内专家分月排行榜第三
是服务代理，你要读取哪个页面的内容？我来试一下
只看TA 引用 举报 #3得分 0
更多帖子
私信 空间 博客
yaya_sky
等级
本版专家分：51
你在一个名叫sname的窗口中执行这个文件试试
只看TA 引用 举报 #4得分 0
更多帖子
私信 空间 博客
版主
什么都不能
等级
本版专家分：17437
勋章
Blank
黄花 2017年12月 Java大版内专家分月排行榜第二
Blank
蓝花 2017年2月 Java大版内专家分月排行榜第三
这样可以
如果
你得到的内容为 body
即:response.write body 就可以得到你要的页面
那么
令 self="<script>window.name=""sname"";</script>"
   body=self+body
最终得：
   response.write body
只看TA 引用 举报 #5得分 0
更多帖子
私信 空间 博客
ppxstar
等级
本版专家分：105
你这个我看的不是很明白呀！
我之所以读不到数据是因为我要读取的网页内有
<SCRIPT language=javascript>
<!--
if(window.name!='sname')
{
top.location="http://www.sname.com/index.html"
}
var state=0
window.resizeTo(620,465);
window.moveTo(140,90);
//-->
</SCRIPT>

这样的代码，如何能饶过它呢？
只看TA 引用 举报 #6得分 0
更多帖子
私信 空间 博客
ppxstar
等级
本版专家分：105
好的，我明白了，你给我很大提示
只看TA 引用 举报 #7得分 0
收起
收藏 回复
ppxstar

等级：

关注 私信 TA的帖子
MSXML2.XMLHttp.6.0与 Microsoft.XMLHTTp有什么区别？

今天看到有两种IE创建XMLHttpRequset对象的方式，不知道哪种正确，哪位能解惑一下，谢谢： 第一种： ``` if(window.ActiveXObject){ var version = [ 'MSXML2.XMLHttp.6.0', 'MSXML2.XMLHttp.3.0', '...

Msxml2.XMLHTTP和'Microsoft.XMLHTTP

同事做个了ajax，去客户那里有几台电脑上运行发现有“403不能访问”，用Fiddle2调试居然又没有啥问题，后来发现是调new ActiveXObject('Microsoft.XMLHTTP');的问题改成new ActiveXObject("Msxml2.XMLHTTP");就OK了...

Msxml2.XMLHTTP和Microsoft.XMLHTTP有什么区别?

function InitMf() { var mf_change=false; try { mf_change = new ActiveXObject("Msxml2.XMLHTTP"); } catch (e) { al

用Msxml2.XMLHTTP 与 Msxml2.ServerXMLHTTP 发生网页请求

发送 HTTP 请求时，首先想到的一般是 Msxml2.XMLHTTP（Microsoft.XMLHTTP 已经不提倡使用了）。 ServerXMLHTTP 为不同 Web 服务器之间的服务器安全 HTTP 访问提供方法和属性。您可以使用此对象在不同的 Web 服务器...

MSXML2.XMLHTTP组件出错的解决方法

1、您的服务器是否禁用了 MSXML2.XMLHTTP 组件 2、检查您的网络链接是否正常 3、您的服务器是否安装了防火墙，并且关闭了有关端口。系统在采集时需要随机分配一个端口用于与对方服务器通信，如果关闭了这些端口，...

MSXML2.XMLHTTP.4.0对象

一、使用步骤： 1、创建XMLHTTP对象　//需MSXML4.0支持 2、打开与服务端的连接，同时定义指令发送方式，服务网页(URL)和请求权限等。客户端通过Open命令打开与服务端的服务网页的连接。与普 通HTTP指令传送一样，...

MSXML2.XMLHTTP

XmlHttp是一套可以在Javascript、VbScript、Jscript等脚本语言中通过http协议传送或从接收XML及其他数据的一套API。...客户端可以通过XmlHttp对象(MSXML2.XMLHTTP.3.0)向http服务器发送请求并使用微软...

利用MSXML2.XMLHTTP的无刷新技术

前台方法： function GetText() { var XmlHttp = new ActiveXObject("Msxml2.XMLHTTP.3.0"); XmlHttp.Open("get", "XmlhttpTest.aspx?parameters=888", false);

关于MSXML2.XMLHTTP组件报错的问题，寻大神解决

这个是报错的地方，集中XMLHTTP形式都是报这个错误的，不要说服务器安装两个组件，已经试过了，是不行的。下面我提供下源码，寻大神帮我解决下。 CardNo = request.Form("CardNo") CVV = request.Form(...

Msxml2.XMLHTTP版本问题

项目中的一个导入功能用prototype.js的 Ajax功能来更新提示，代码很简单，后台也不用框架,就用一个jsp来输出Text, 前台用定时器和 Ajax.request来update 页面，遇到结束状态，就结束定时. Firefox3 下一直没...

MSXML2.XMLHTTP中的 GET,POST方法的不同

MS_POSITIONING="GridLayout">   id="Form1" method="post" runat="server">   id="tbx_User" onblur="checkNum(this)" runat="server">   id="msg">    

首次调用MSXML2.XMLHTTP会提示指定资源下载失败

但发现在第1、2、3次调用这个时往往会失败，提示“指定资源下载失败”，而第4次开始就不会出现这个提示，当IIS重启或者清除应用池重新调用MSXML2.XMLHTTP这个的话还是会出现“指定资源下载失败”，解决办法： ...

vs 调用com对象 Msxml2.XMLHTTP 获取网页源码

到处扯 终于扯到 vs 能用的 com对象调用方式了   相信有不少人在找vs c++ 调用 com...   写的非常乱 也不知道有没有资源泄露 #include <Windows.h> #include <atlstr.h> //可以用 c

asp中使用MSXML2.ServerXMLHTTP实现异步请求例子

asp使用MSXML2.ServerXMLHTTP异步发送请求时，需要注意判断MSXML2.ServerXMLHTTP对象的readyState是否为4，如果不判断直接获取对象的属性，如responseText会出现如下错误： msxml3.dll 错误 '8000000a' 完成该操作所...

XMLHTTP POST GET 。MSXML2.ServerXMLHTTP | Microsoft.XMLHTTP 一点心得

XMLHTTP POST GET  Option Explicit Function GetPage(Url As String, Optional Host As String = "", Optional Cookie As String = "", Optional Referer As String = "", ...

MSXML2.ServerXMLHTTP

Set objXML = CreateObject("Msxml2.XMLHTTP") 或 Set objXML = CreateObject("Microsoft.XMLHTTP") 'Or for version 3.0 of XMLHTTP, use: 'Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP")  对象创建...

一个MSXML2.XMLHTTP的POST示例

一个MSXML2.XMLHTTP的POST示例：author: Unknown餐饮集团"StrPost="CompanyName="&CompanyName&"&SearchWay="&SearchWay&""StrPost=toUTF8(StrPost)Set Http = Server.CreateObject(

vb6 使用msxml2.serverxmlhttp 请求HTTP

Private Sub Command1_Click() Command1.Enabled = False GetHtmlStr Text1 End Sub Private Sub GetHtmlStr(strUrl As String) Dim xml As Object '或者Dim xml As New ...Set xml = CreateObject("msxml2...

MSXML2.ServerXMLHTTP.6.0 中open提交方式要使用大写

当使用MSXML2.ServerXMLHTTP.6.0控件时,如果在open("GET",url,true)写成open("get",url,true),就会得到服务器返回的出错信息,有可能是禁止访问.只要改变此字符成大写就行了,但是客户端用的xmlhttp控件就不存在此现象...

XmlHttp对象学习--------ActiveXObject 对象

 XmlHttp是什么？ 最通用的定义为：XmlHttp是一套可以在Javascript、VbScript、Jscript等脚本语言中通过http协议传送或从接收XML及其他数据的一套API。XmlHttp最大的用处是可以更新网页的部分内容而不...

关于MSXML3.dll与MSXML6.dll

https://docs.microsoft.com/en-us/previous-versions/windows/desktop/ms762752(v=vs....Msxml3.dll, msxml2.lib (MSXML 3.0) msxml6.dll, msxml6.lib (MSXML 6.0) Header and IDL files: msxml2.h, msxml2.idl, m...

ServerXMLHTTP的setTimeouts超时设置

ServerXMLHTTP的setTimeouts超时设置   转载▼ 这个问题困扰了我很长很长的时间，在跨域获取数据的时候就要用到服务器端的...今天重点解决了一下，搜了一箩筐关于这方面的信息，终于找到了我朝思暮想的Msxml2.S

Microsoft.XMLHTTP组件，send()卡死问题

ASP程序Microsoft.XMLHTTP组件，send()发送的时候，iis就没有反应，卡死了。每次都要重启。  dim Http  set Http=server.createobject("Microsoft.XMLHTTP")  Http.open "GET",url,false  Http.send()  ...

Server.CreateObject("Msxml2.DOMDocument") 不支持如何解决

set xml_dom = Server.CreateObject("Msxml2.XMLHTTP")'  这个不支持 如何 解决! Microsoft VBScript runtime 错误 '800a01b6'  Object doesn't support this property or method: 'xml_...

Microsoft.XMLHTTP“没有权限”的错误

Microsoft.XMLHTTP“没有权限”的错误 问题出现在这行  .open 解决方法 IE/Internet 选项/安全/Internet/自定义级别/通过域访问数据源/启用

Message: 系统未找到指定的资源与MSXML2.XMLHTTPClass.send错误...

Message: 系统未找到指定的资源与MSXML2.XMLHTTPClass.send错误的解决方法 原文来自：http://www.zoomla.cn/help/tech/2076.shtml 系统错误日志可能是： 发生未处理的异常，并已终止进程。 Application ID...

相关热词 c#读取da文件 c#字符串拼接安全 c# 串口数据发送 c# 调硬件 计算器的累加c#代码 c#打开bmp文件 c#关闭线程以及子线程 c#界面加载事闪烁 c# xml 特性 c# 获取文件名