快捷導(dǎo)航

Asp操作Xml的精煉類,含示例代碼

更新時間：2010年04月22日 19:24:20 作者：

自己寫的一個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類及使用方法,請保存成test.asp, 測試運行

復(fù)制代碼代碼如下:

 
<% 
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") 
' 去掉相應(yīng)的注釋符,即可看到 [添加 / 編輯 / 刪除] 節(jié)點的效果 
'Call Config.AddD("Config","test","test") ' 添加節(jié)點 
'Call Config.SetD("test","test2") ' 編輯節(jié)點 
'Call Config.DelD("test") ' 刪除節(jié)點 
Sub wn(str) 
Response.Write(str)&"<br />"&vbcrlf 
End Sub 
%> 