ASP操作XML的类

---

ASP #xml #类2012-05-15 08:51

---

工作中常常跟XML打交道，以下分享一个ASP操作XML的类。

以下保存成 App.xml , 与asp文件放在相同目录下! 

<?xml version="1.0" encoding="utf-8"?> 
<Root> 
<About> 
<Version>1.0 Beta</Version> 
<LatestVersion>1.0 Beta</LatestVersion> 
<Author>Author</Author> 
<PubDate>2010/02/20</PubDate> 
</About> 
<Config> 
<Installed>False</Installed> 
<BakPath>_Data</BakPath> 
</Config> 
</Root> 

以下为Asp类及使用方法,请保存成yige.org.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 
wn Config.GetD("Version") 
wn Config.GetD("LatestVersion") 
wn Config.GetD("Author") 
wn Config.GetD("PubDate") 
wn Config.GetD("Installed") 
wn Config.GetD("BakPath") 
'一个网yige.org去掉相应的注释符,即可看到 [添加 / 编辑 / 删除] 节点的效果 
'Call Config.AddD("Config","test","test") ' 添加节点 
'Call Config.SetD("test","test2") ' 编辑节点 
'Call Config.DelD("test") ' 删除节点 
Sub wn(str) 
Response.Write(str)&"<br />"&vbcrlf; 
End Sub 
%> 

---

相关文章

• ASP禁止指定IP和只允许指定IP访问网站 2012/05/14
• ASP利用MSXML2.XmlHttp和Adodb.Stream采集图片 2012/05/14
• ASP的URL参数获取的几种方法 2012/05/14
• ASP常用字符串处理类 2012/05/14
• ASP单日期自动补零函数 2012/05/14
• ASP模板标签替换简单生成静态的方法 2012/05/13
• ASP的无限级分类实现方法 2012/05/12
• ASP把XML转换为XHTML的方法 2012/05/12
• asp实现动态级联菜单的代码 2012/05/12
• ASP上传防止图片木马上传的方法 2012/05/12