我想用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
结果一运行就出现错误的页面,错误页面显示如下信息