Inet1 post 数据成功，但是如何取得WEB服务器返回的信息?

Question

Private Sub Command6_Click()
  Dim url As String
    Dim postdata As String
    
    url = "http://localhost/myoa(asp)/infoadd.asp"
    postdata = "getm=getm&postm=1111111111"
   Dim a
     Inet1.Execute url, "POST", postdata, "Content-Type: application/x-www-form-urlencoded"
    
     
    '请问如何取的infoadd.asp返回的信息
    
End Sub

Answer 1

Private Sub Command1_Click()
Dim X As Integer, RetCode As Integer
Dim s As String
urlstr = "http://192.168.0.1/xml/testcheck.asp"
s = "id=ok"
Inet1.Execute "http://192.168.0.1/xml/testcheck.asp", "post", s
Do While Inet1.StillExecuting
 DoEvents
Loop
RetCode = Val(Mid(Trim(Inet1.GetHeader), 10, 3))
    Select Case RetCode
    Case 200
        MsgBox "你的卡验证成功了"
    Case 404
        MsgBox "你的卡验证失败了"
    Case Else
        MsgBox "Error"
    End Select
End Sub

Answer 2

<%
s=request("id")
if s="ok" then
response.write "验证成功"
else
%>
<title>error</title>
<%
response.redirect "error.htm"
'response.end
end if
%>

Answer 3

问题是我要取的查询信息
XMLHTTP我测试下

Answer 4

请问XMLHTTP如何提交POST,并返回查询信息

Answer 5

http://blog.csdn.net/online/archive/2004/07/07/35994.aspx