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

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

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


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

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

这是可行的，但输出没有XML文件所期望的格式：

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


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

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

Jenniferdavistinsteve

我正在努力实现：

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

珍妮弗
大卫

感谢您提供的任何见解

您可以通过以下方式使用Javascript漂亮地打印现有XML文件：

  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

对我来说并不容易，但它让我找到了，这正是我在搜索中找不到的。感谢您可以在服务器上运行javascript。将开始脚本标记更改为：并尝试运行以查看结果