CreateObject("Microsoft.XMLHTTP") 问题

[taoyi1105]

Function GetBody(Url) 
	Randomize()
	If InStr(Url,"?")>0 Then 
		rUrl = Url & "&rNum=" & Int((9999) * Rnd(Now())+1) 
	Else
		rUrl = Url & "?rNum=" & Int((9999) * Rnd(Now())+1) 
	End If
	'如果你的Url没参数写成 rUrl = Url & "?rNum=" & Int((9999) * Rnd(Now())+1) 
	Set Retrieval = CreateObject("Microsoft.XMLHTTP") 
	With Retrieval
		.Open "Get",rUrl, False, "","" 
		.Send
		GetBody = .ResponseBody
	End With
	Set Retrieval = Nothing
End Function

这段代码采集百度没有问题，但是google在本机测试可以上传服务器就不成了 。何解？？？？？？？？

msxml3.dll 错误 '80070005'

拒绝访问。

/paiming/Inc.asp，行 23

网上的办法：
初步判定可能是打开的页面有跳转的原因，解决办法是用
MSXML2.ServerXMLHTTP
替换掉
Microsoft.XMLHTTP
即可解决。

是的，google解决了。百度又不成了。

[neo_yoho]

那就根据BAIDU或GOOGLE来选择用那个咯

[taoyi1105]

我想知道原因！

[neo_yoho]

搜索MSXML2.ServerXMLHTTP与Microsoft.XMLHTTP的区别看看 呵呵