vb调用msxml组件,执行RequestOBJ.Send (strSend),程序长时间没反应，RequestOBj是MSXML.XMLHTTPRequest类型对象？

Question

RequestOBJ.Open "Post", strSubmitPageUrl, false
RequestOBJ.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
RequestOBJ.Send (strSend)
执行到send一句，长时间没反应，只好结束任务。请教怎么解决。strSubmitPageUrl，如果提交到建在iis的我写的asp页没问题，提交到一个tomcat的站点就出现上诉情况。请教各位大侠。
另外，RequestOBJ.Send strSend，抱错，但RequestOBJ.Send "id=001" 就可以。只好写成RequestOBJ.Send (strSend)，为何如此？

Answer 1

看看返回值
http://blog.csdn.net/online/archive/2004/07/07/35994.aspx
httpRequest.Open "POST", "http://localhost/webxml/putsingleinfo.asp", False    httpRequest.send StrXml    '如果错误  If httpRequest.Status <> 200 Then    MsgBox httpRequest.statusText, , httpRequest.Status    Exit Sub  End If

Answer 2

请问SetRequestHeader后面的参数都是什么意思？还有RequestOBJ.Send (内容在网页上怎么获得?内容一般怎么写)

Answer 3

Dim bPostData() As BytebPostData = StrConv(strSend, vbFromUnicode)
转换一下你的strSend

Answer 4

贴原码（部分）
Dim StrSend As String
StrSend = "id=1&name=abc"Dim Reqst
Set Reqst = New MSXML.XMLHTTPRequestReqst.Open "Post", submitPage.Text, False 'submitPage.Text是一个url
Reqst.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"On Error Resume Next
Reqst.Send (StrSend) '***
On Error GoTo 0
 
If Reqst.Status <> 200 Then
    MsgBox "错误原因:" & Reqst.StatusText, , Reqst.Status
    Exit Function
End If
......上边***一句，如写成Reqst.Send StrSend,在If Reqst.Status <> 200 Then报未知的错误，所以才加了括号。程序运行停在Reqst.Send (StrSend)，再没响应，没有再向下运行。请教各位大侠。

Answer 5

这样试试
Reqst.Open "Post", "http://www.xxx.com/test.asp?id=1&name=abc", False 
Reqst.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"On Error Resume Next
Reqst.Send

Answer 6

online(龙卷风V2.0--再战江湖)
不行呀,
Dim Reqst
Set Reqst = New MSXML.XMLHTTPRequest
Reqst.Open "POST", "http://.../1.asp?id=1", False
Reqst.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
Reqst.sendIf Reqst.Status <> 200 Then
    MsgBox "错误原因:" & Reqst.statusText, , Reqst.Status
End If在msgbox报object not found

Answer 7

因为asp站点没有问题
建议你去java社区问问