求解 httpxml.send 报错

[happynet]

Set Retrieval = Createobject("Microsoft.Xmlhttp")
With Retrieval
.Open "Get", Url, False, "", ""
.Send '这行报错


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

出现一个意外错误: 'Send'

这是什么造成的，各位高手帮帮忙

[txlty]

双钻出现..顶..

SEND 后面应该有参数啊

[zhangzuwu]

Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
Retrieval.Open "POST", url, False, "", ""
Retrieval.Send stttr



好像是你少一个参数 stttr

[zhangzuwu]

我也有这一个程序，实在不行我发给你也可以

[孟子E章]

你是服务器端的代码还是客户端？服务器端使用的建议使用
Set Retrieval = Server.Createobject("Microsoft.Xmlhttp")

另外，看看你的系统system32下是否有msxml.dll并进行了注册

另外把打一下msxml3 sp7补丁

[jiewenxu]

SEND后面必须有发送的参数
你也可以发送空值
Send("")

[ishion]

我的程序设置如下：
On Error Resume Next
Dim httpxml
Set httpxml = Server.CreateObject("msxml2.XMLHTTP")
httpxml.open "HEAD",url,False
httpxml.send

另外参考我的主题贴中孟子的回复
“1，检查msxml3.dll 物理文件的安全性，允许匿名账户可以访问
2，检查url是否正确”
得到正确运行结果

[jspadmin]

SEND后面必须有发送的参数
你也可以发送空值
Send("")

同样观点

[huo789]

路过JF~

[happynet]

我的代码是有时可以运行，有时又错误。快崩溃了。