Asp操作Xml的精炼类,含示例代码

精炼ASP操作XML的类及其使用示例

在Web开发过程中，操作XML文件是一项常见任务。以下是一个用ASP编写的精炼类，用于操作XML文件。请注意将此代码保存为App.xml，并将其与ASP文件放在同一目录下。

XML文件示例（App.xml）：

```xml

1.0 Beta

1.0 Beta

Author

2010/02/20

False

_Data

```

ASP类及使用方法（请保存为test.asp）：

```asp

<%

Class AppConfig

Dim XmlDom

Private Sub Class_Initialize()

Set XmlDom = Server.CreateObject("Microsoft.XMLDOM")

XmlDom.Load(Server.MapPath("App.xml"))

End Sub

Private Sub Class_Terminate()

Set XmlDom = Nothing

End Sub

Function GetD(key)

GetD = XmlDom.getElementsByTagName(key)(0).Text

End Function

Function SetD(key, val)

XmlDom.getElementsByTagName(key)(0).Text = val

XmlDom.Save(Server.MapPath("App.xml"))

End Function

Function AddD(node, key, val)

Set newnode = XmlDom.getElementsByTagName(node)(0).AppendChild(XmlDom.CreateElement(key))

newnode.Text = val

Set newnode = Nothing

XmlDom.Save(Server.MapPath("App.xml"))

End Function

Function DelD(key)

On Error Resume Next

XmlDom.getElementsByTagName(key)(0).ParentNode.RemoveChild(XmlDom.getElementsByTagName(key)(0))

XmlDom.Save(Server.MapPath("App.xml"))

End Function

End Class

Set Config = New AppConfig

' 获取XML节点值并输出到页面（展示效果）

Response.Write("Version：" & Config.GetD("Version") & "
")

Response.Write("Latest Version：" & Config.GetD("LatestVersion") & "
")

Response.Write("Author：" & Config.GetD("Author") & "
")

Response.Write("Publication Date：" & Config.GetD("PubDate") & "
")

Response.Write("Installed：" & Config.GetD("Installed") & "
")

Response.Write("Backup Path：" & Config.GetD("BakPath") & "
") ' 显示XML节点内容效果（以添加、编辑、删除节点为例） '注释符号必须去除才能使用对应功能 'Call Config.AddD("Config","test","test") ' 添加节点 'Call Config.SetD("test","test2") ' 编辑节点 'Call Config.DelD("test") ' 删除节点 Sub wn(str) Response.Write(str) End Sub %> ``` 此ASP类能够实现对XML文件的添加、编辑和删除操作，具有一定的通用性和实用性。你可以根据需要扩展或修改这个类以满足特定的需求。希望这个示例能帮助你更好地理解ASP操作XML的方法。