msxml3.dll 错误 '80070005' 拒绝访问。

代码如下：
PostUrl=http://www.xxx.com/
Server.ScriptTimeOut=20
Set oXMLHttp = createObject("Microsoft.XMLHTTP")
Call oXMLHttp.Open("get", PostUrl, false)
Call oXMLHttp.Send("")
sHtmlStr =  oXMLHttp.responseBody
Set oXMLHttp = nothing

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

另外在CSDN上找到这么一段代码
ServerURL=PostUrl
Set   Mail1   =   Server.CreateObject("CDO.Message")  
Mail1.CreateMHTMLBody   ServerURL,31    
AA=Mail1.HTMLBody  
Set   Mail1   =   Nothing  
Response.Write   AA

试了一下，也可以用，拷过来收藏