为什么无法获取谷歌的搜索结果页面???
来源:互联网 发布:Ⅴmware for linux 编辑:程序博客网 时间:2024/04/29 14:44
我想用asp获取谷歌的搜索结果页面
Function xmlHttp(sUrl, sCharSet)
On Error Resume Next
Dim xml: set xml = Server.CreateObject("Msxml2.ServerXMLHTTP") 'Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", sUrl, False
xml.setRequestHeader "Content-Type", "text/html;charset=" & sCharSet
xml.Send()
If Err.Number <> 0 Then
xmlHttp = ""
Exit Function
End If
If xml.readyState = 4 Then
xmlHttp = BytesToBstr(xml.responseBody, sCharSet)
End If
End Function
Function BytesToBstr(cnvUni, sCharSet)
On Error Resume Next
Dim objStream: set objStream = Server.CreateObject("adodb.stream")
With objStream
.Type = 1
.Mode = 3
.Open
.Write cnvUni
.Position = 0
.Type = 2
.Charset = sCharSet
BytesToBstr = .ReadText
.Close
End With
End Function
ym12=xmlHttp("http://www.google.com.hk/search?q=Yes+or+no&hl=zh-CN&newwindow=1&lr=lang_zh-CN&ft=i&cr=","utf-8")
response.write ym12
结果一运行就出现错误的页面,错误页面显示如下信息
Function xmlHttp(sUrl, sCharSet)
On Error Resume Next
Dim xml: set xml = Server.CreateObject("Msxml2.ServerXMLHTTP") 'Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", sUrl, False
xml.setRequestHeader "Content-Type", "text/html;charset=" & sCharSet
xml.Send()
If Err.Number <> 0 Then
xmlHttp = ""
Exit Function
End If
If xml.readyState = 4 Then
xmlHttp = BytesToBstr(xml.responseBody, sCharSet)
End If
End Function
Function BytesToBstr(cnvUni, sCharSet)
On Error Resume Next
Dim objStream: set objStream = Server.CreateObject("adodb.stream")
With objStream
.Type = 1
.Mode = 3
.Open
.Write cnvUni
.Position = 0
.Type = 2
.Charset = sCharSet
BytesToBstr = .ReadText
.Close
End With
End Function
ym12=xmlHttp("http://www.google.com.hk/search?q=Yes+or+no&hl=zh-CN&newwindow=1&lr=lang_zh-CN&ft=i&cr=","utf-8")
response.write ym12
结果一运行就出现错误的页面,错误页面显示如下信息
0 0
- 为什么无法获取谷歌的搜索结果页面???
- 为什么无法获取谷歌的搜索结果页面???
- 谷歌彩蛋-让搜索结果页面下雪、旋转、倾斜
- 谷歌搜索结果页面推陈出新 2大变化
- 用perl获取google搜索的结果
- 百度搜索结果页面的参数 搜索历史记录(rsv_sug)
- 百度搜索结果页面的参数 搜索框位置(rsv_bp)
- 为什么搜索不能提供超过一千页的结果
- 百度搜索结果页面的参数_反馈搜索结果用时(rsv_sug4)
- google搜索结果无法打开
- C++和python如何获取百度搜索结果页面下信息对应的真实链接(百度搜索爬虫,可指定页数)
- 第一天学CSS,仿百度的搜索结果页面
- 百度搜索结果页面的参数 输入编码(ie)
- 百度搜索结果页面的参数 形式(f)
- 百度搜索结果页面的参数 原先查询字符串(oq)
- 百度搜索结果页面的参数 相关提示位置(rsp)
- 百度搜索结果页面的参数 上下页切换(rsv_ers)
- 百度搜索结果页面的参数 键盘重复速度(rsv_sug3)
- 求助一个 asp 循环输出
- Jquery的extend函数的简单应用
- IPhone通过USB通信
- Android摄像头非全屏预览,怎么保证图像不变形
- 怎么把按目录读取的图片sql 字段替换成按绝对地址的。
- 为什么无法获取谷歌的搜索结果页面???
- ubuntu12.04编译安装openjdk-8-jdk
- Bom报头导致Gson无法正确解析
- alert for elasticsearch
- 云计算工程
- RDD Pipeline 源码图解
- 安卓开发初学者 在学习异步加载时遇到了问题 望大神指点
- 关于其他设备NFC与android手机p2p传输问题
- ios手势怎样实现同时可以单击和双击