Question

我有一个大约7MB的xml文件，我不想解析它，我只是想用VB通过xmlhttp（post）将这个文件发送到一个cgi脚本，它可以读取我给它的任何字符串。问题在于代码xmlhttp.send((xmlDoc))的这一部分，因为xmlDoc加载，但它并不真正被解释为字符串。克服这个问题的最佳方法是什么？我还是VB新手，所以任何帮助都会受到赞赏！

Sub Main()

    Dim xmlhttp As Object
    'Dim xmlDoc As New Xml.XmlDocument
    Dim xmlDoc
    xmlDoc = CreateObject("Msxml2.DOMDocument.6.0")
    xmlDoc = XDocument.Load("c:\pos.xml")
    'Console.WriteLine(xmlDoc)
    'xmlDoc.async = False
    xmlhttp = CreateObject("Msxml2.ServerXMLHTTP.6.0")
    'xmlDoc = CreateObject("Msxml2.DOMDocument.6.0")

    'xmlDoc.Load("c:\pos.xml")

    xmlhttp.setOption(2, 4096)
    xmlhttp.Open("POST", "http://10.2.1.195:4980/CM/McPos.cgi?", False)
    xmlhttp.setRequestHeader("Host", "http://10.2.1.195:4980")
    xmlhttp.setRequestHeader("Content-Type", "txt")
    xmlhttp.send((xmlDoc))
    MsgBox("STATUS: " & xmlhttp.Status)
    MsgBox("RESPONSE: ")
    MsgBox(xmlhttp.responseText)

End Sub

Answer 1

如果您只想发送文件的文本，那么我建议使用FileSystemObject将文件中的文本转换为字符串，然后将该字符串作为Send调用的参数传递。这是一个发送字符串的简单示例，尽管是使用VBScript，但它基本相同。

How to perform an HTTP POST request in ASP?

VB通过xmlhttp.send传递xml内容

1 个答案: