Dim xmlDoc
NewsConfigFile=server.MapPath("/test.xml")
Set xmlDoc=Server.CreateObject("msxml2.FreeThreadedDOMDocument.3.0")
If Not xmlDoc.load(NewsConfigFile) Then
'XmlDoc.loadxml "<?xml version=""1.0"" encoding=""gb2312""?><NewscodeInfo/>"
response.Write("不存在数据")
response.End()
End If
Dim colsNum,newsLine,rndInt
set newsNode = xmlDoc.DocumentElement.childNodes
for i=0 to newsNode.length-1
if newsNode(i).firstChild.text=val then
call listErr(val&"已存在")
response.End()
end if
next
'添加新节点
Set newNode = XmlDoc.createNode(1,"list","")
xmlDoc.DocumentElement.appendChild(newNode)
Set newNode2 = XmlDoc.createNode(1,"name","")
newNode2.text=val
newNode.appendChild(newNode2)
'添加新属性
set newAttr=XmlDoc.createAttribute("time") ’修改已存在属性 newNode.getAttributeNode("time").nodeValue=now()
newAttr.text=now()
newNode.attributes.setNamedItem(newAttr)
'保存
xmlDoc.save NewsConfigFile
set xmlDoc=nothing
显示XML
test.xml
<?xml version="1.0" encoding="gb2312"?>
<?xml-stylesheet type="text/xsl" href="test1.xsl"?>
<lists>
<list time="oooooo">
<name>xxxxxxxx</name>
</list>
....
</lists>
test1.xsl
<?xml version="1.0" encoding="gb2312"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="/">
<div style="background:#fff;">
<table>
<xsl:for-each select="lists/list">
<xsl:sort select="@time" order="descending" />
<tr>
<td width="120">标题:</td>
<td width="380"><xsl:value-of select="name" /></td>
<td><xsl:value-of select="@time" /></td>
</tr>
</xsl:for-each>
</table>
</div>
</xsl:template>
</xsl:stylesheet>