如何向在 vbscript 中创建的 XML 添加空格/格式？

Question

我正在使用 vbscript 将表单数据写入 XML 文件：

    Set objRecord = objDom.createElement("story")
    objRoot.appendChild objRecord


    Set objField = objDom.createElement("first")
    objField.Text = Request.Form("fName")
    objRecord.appendChild objField

这可以工作，但输出没有像您期望的 XML 文件那样的格式：

    <story><first>Jennifer</first></story><story><first>David</first></story><story><first>Austin</first></story><story><first>Steve</first></story>

我正在尝试实现：

    <story>
        <first>Jennifer</first>
    </story>
    <story>
        <first>David</first>
    </story>

感谢您的任何见解

Answer 1

Oleg 说 你可以漂亮地打印现有 XML 文件以这种方式使用 Javascript：

  var reader = new ActiveXObject("Msxml2.SAXXMLReader.4.0");
  var writer = new ActiveXObject("Msxml2.MXXMLWriter.4.0");        
  writer.indent = true;
  writer.standalone = true;
  reader.contentHandler = writer;            
  reader.putProperty("http://xml.org/sax/properties/lexical-handler", writer);
  reader.parseURL("source.xml");

这应该很容易转换为 VBScript。