ActiveX 部件不能创建对象: 'Microsoft.XMLHTTP'

[weiforest]

偶 做了个 远程读去数据的代码
原来一直较正常，假期期间不知道怎么出现错误了！

提示如下：

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 运行时错误 错误 '800a01ad'

ActiveX 部件不能创建对象: 'Microsoft.XMLHTTP'

/caiji.asp，行71


代码如下：


Function GetURL(url)

Set Retrieval = CreateObject("Microsoft.XMLHTTP") '71行


With Retrieval
.Open "GET", url, False
.Send
GetURL = bytes2bstr(.responsebody)
'对取得信息进行验证，如果信息长度小于100则说明截取失败


if len(.responsebody)<100 then
response.write "获取远程文件 <a href="&url&" target=_blank>"&url&"</a> 失败。"
response.end
else
'response.write Retrieval.responsebody

end if

End With


Set Retrieval = Nothing

End Function


请各位给予帮助！万分谢谢

[jspadmin]

程序都没改动过吗？
如果是那样的话，可能目标页面发生了变化

[weiforest]

目标文件还存在！难道是那个组件 失效了

[toury]

1,没听说过'Microsoft.XMLHTTP 也会失效;
2,如果程序/目标文件都没改动,那很有可能是用户身份发生了变化;现在的身份没有权限创建对象;检查一下IIS的设置吧;
3,或者把这个验证放到客户端脚本去