以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 关于XML的POST用法,高手进~~  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=38875)

--  作者:西瓜住持
--  发布时间:2013/8/9 12:18:00
--  [求助] 关于XML的POST用法,高手进~~
调试出错 看看怎么修正,TEXT.XML 任意

目标实现功能:POST*.xml格式的数据,取回响应数据

Dim FileName As String = "test.xml" 
Dim doc As New System.XML.XmlDocument
try

    doc.LoadXml(FileName)

catch ex As Exception

End Try
Dim xmlHttp As new System.MSXML2.XMLHTTPClass
Dim backxmlstring As String =""
Dim strURL As String = ""
try

    xmlHttp.open("post", strURL, False, "", "")
    xmlHttp.send(doc.InnerXml)
    backxmlstring = xmlHttp.responseText.ToString()

catch

    backxmlstring = "Can not open the target Url"

End Try
output.show(backxmlstring)

--  作者:Bin
--  发布时间:2013/8/9 12:20:00
--  
http://blog.eastmoney.com/xiaoyaotd,170046707.html
--  作者:西瓜住持
--  发布时间:2013/8/9 12:26:00
--  
这个我知道啊,关键是胡表里怎么写,业务不熟悉啊。
--  作者:Bin
--  发布时间:2013/8/9 12:35:00
--  
一样的.
--  作者:西瓜住持
--  发布时间:2013/8/9 13:44:00
--  
~~来个实例吧。。
--  作者:Bin
--  发布时间:2013/8/9 14:10:00
--  


xmlHttp.open("post", strURL, False)
xmlHttp.send(doc.InnerXml)

一样的啊

--  作者:西瓜住持
--  发布时间:2013/8/9 14:22:00
--  
Dim xmlHttp As new System.MSXML2.XMLHTTPClass  这里报错了。我上面的代码你直接贴命令窗口试下