ASP控制XML问题

[偷麦]

我想用ASP控制XML里的内容，但是我不想把后缀名改了，我知道有一种方法是把XML写到ASP里执行 但是我想让ASP在XML里执行 或者用ASP代码 控制XML里的数据，解答详细点 所有的分全给了

[hookee]

后缀名无所谓的，用DOM+XPATH操作就可以了,具体操作太多了，查MS XML Paser的文档。

<%
sXMLFile    = "C:\xxx.xxx"
Set oDoc    = CreateObject("Msxml2.DOMDocument")
With oDoc
	.async              = False
	.validateOnParse    = False
	.preserveWhiteSpace = False
    .resolveExternals   = False
	.load sXMLFile
    If .parseError.errorCode <> 0 Then
        sErrMsg     = .parseError.errorCode & "|" &_
                      .parseError.srcText & "|" & .parseError.reason
        Set oDoc = Nothing
        Response.Write sErrMsg
        Response.End
    End If
    ' 用XPATH选节点
    Set oNode   = .selectSingleNode("/ROOT/ABC")
    If Not (oNode Is Nothing) Then
        oNode.text = "new value" ' 更改节点  
    End If
    .save .url ' 保存
    Set oNode   = Nothing
End With
Set oDoc = Nothing
%>

[wode421898419]

<%
response.ContentType="text/xml"
response.write "<?xml version='1.0' encoding='utf-8'?>"
response.write ""
%>

[后浪]

用asp文件，动态去生成xml文件

..
<%
Dim  objItem, objItem1,objItem2,objItem3,objItem4,ObjDOM
Set ObjDOM = Server.CreateObject("MSXML2.FreeThreadedDOMDocument.3.0")
Set objItem1 = ObjDOM.appendChild(ObjDOM.CreateElement("root"))
rs.open sql,conn,3,3
    Do while not rs.eof 
        set objItem2 =objItem1.appendChild(ObjDOM.CreateElement("list"))
            set objitem3 =objItem2.appendChild(ObjDOM.CreateElement("cardorderamount"))
            If Not IsNull(rs("cardOrderAmount")) or rs("cardOrderAmount")="" Then
                objItem3.appendChild(ObjDOM.createCDATASection(rs("cardOrderAmount")) )
            Else
                objItem3.appendChild(ObjDOM.createCDATASection(""))
            End If
      loop %>
...