ASP XMLDom在服務(wù)器端操作XML文件的主要方法和實現(xiàn)

2020-07-27 12:52:06

字體：大中小

供稿：網(wǎng)友

對于小數(shù)據(jù)量，xml文件在檢索更新上于ACCESS有很多優(yōu)勢。

我曾經(jīng)測試過不用數(shù)據(jù)庫，把網(wǎng)站的會員信息，商品數(shù)據(jù)信息，交易信息，網(wǎng)站定制信息全部存放在三個xml文件中，運行結(jié)果十分正常，感覺上比數(shù)據(jù)庫快多了，不過沒有作測試，不能確定。

下面說一下創(chuàng)建，查詢，修改等對xml操作的主要方法

程序代碼

NO.1--建立一個XML數(shù)據(jù)庫data.xml

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

 
<?xml version="1.0"?> 
<records> 
<record> 
<name>caca</name> 
<qq>154222225</qq> 
<email>root@3ney.com</email> 
</record> 
<records> 

NO.2--建立對象CreateObject
建立data.xml的對象先
set xmldoc=server.createobjcet("microsoft.xmldom")
xmldoc.load(server.mappath("data.xml")

NO.3--選定節(jié)點SelectNode
你想操作哪個Node,必須定位到這個節(jié)點是不是,先看看這個data.xml有幾個Node??
用一個遞歸函數(shù)搞定:

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

 
getnodes(xmldoc) 

sub getnodes(node) 
dim i 
response.write("<br><b>NodeName:</b>"&node.nodename&"<br><b>NodeTypeString:</b>"&node.nodetypestring&"<br><b>NodeValue:</b>"&node.nodevalue&"<br><b>Text:</b>"&node.text&"<br><b>node.childnodes.length:</b>"&node.childnodes.length&"<p>") 

if node.childnodes.length<>0 then 
for i=0 to node.childnodes.length-1 
getnodes(node.childnodes(i)) 
next 
end if 
end sub 
用這個函數(shù)后,可以看到這個data.xml有10個Node 
這些Node可以很簡單的定位: 
xmldoc 
xmldoc.childnodes(0) 
xmldoc.childnodes(1) 
xmldoc.childnodes(1).childnodes(0) 
xmldoc.childnodes(1).childnodes(0).childnodes(0) 
xmldoc.childnodes(1).childnodes(0).childnodes(0).text 
xmldoc.childnodes(1).childnodes(0).childnodes(1) 
xmldoc.childnodes(1).childnodes(0).childnodes(1).text 
xmldoc.childnodes(1).childnodes(0).childnodes(2) 
xmldoc.childnodes(1).childnodes(0).childnodes(2).text 
是不是定位很簡單呀,還有個方法,比如定位<name> 
xmldoc.selectsinglenode("http://name") 

NO.4--給節(jié)點賦值(修改節(jié)點的值)
學(xué)會了定位節(jié)點,利用其屬性,就可以修改或者賦值了
例如,把<name>的值caca改為wawa
xmldoc.selectsinglenode("http://name").text="wawa"
xmldoc.save(server.mappath("data.xml"))
搞定!
NO.5--創(chuàng)建新的節(jié)點CreatenewNode
用createelement或者createnode("","","")
例如:在record下新建個<age>,只需要一句就搞定:
xmldoc.selectsinglenode("http://record").appendchild(xmldoc.createelement("<age>"))
給<age>賦值
xmldoc.selectsinglenode("http://age").text="20"
xmldoc.save(server.mappath("data.xml"))
搞定!
NO.6--刪除一個節(jié)點DeleteNode
你必須明確你想刪除的這個節(jié)點的父節(jié)點,以及這個節(jié)點的特征
例如:刪除<qq>節(jié)點
xmldoc.selectsinglenode("http://record").removechild(xmldoc.selectsinglenode("http://qq"))
例如:刪除那個<name>=caca的<record>
xmldoc.selectsinglenode("http://records").removechild(xmldoc.selectsinglenode("http://record[name='caca']))
xmldoc.save(server.mappath("data.xml"))
搞定!
只有能熟練這6條code,用asp控制xml數(shù)據(jù)庫,也就差不多了...
========================================================

'創(chuàng)建DOM對象
set objDom=server.CreateObject("MicroSoft.XMLDom")

'取得xml數(shù)據(jù)
'方法1 取得xml文件的xml數(shù)據(jù)
objDom.load("c:/test.xml")
'方法2 取得xml數(shù)據(jù)串的數(shù)據(jù)
objDom.loadxml("<people><man name="sd"/></people>")

'創(chuàng)建一個節(jié)點對象
Set Newnode=objDom.CreateElement("people")
'給這個節(jié)點赴值
Newnode.Text="人"
' 給這個節(jié)點添加屬性
Set NewAttribute=objDom.CreateNode("attribute","name","")
NewAttribute.Text= "張三"
Newnode.SetAttributeNode NewAttribute
'給這個節(jié)點添加子節(jié)點
Set NewnodeChild=objDom.CreateElement("address")
Newnode.appendChild NewnodeChild
'保存這個節(jié)點對象
objDom.appendChild Newnode
objDom.save("c:/test.xml")

'查找一個節(jié)點對象
set objtofind=objdom.documentElement.SelectSingleNode("http://people/man")
'取出這個節(jié)點對象的節(jié)點名，節(jié)點值，某個屬性值，和全部的xml
nodename=objtofind.nodename
nodevalue=objtofind.text
objtofind.GetAttributeNode("name").NodeValue '屬性名為name的屬性值

'取出一個屬性節(jié)點對象
set objattrtofind=objdom.documentElement.SelectSingleNode("http://people/man"). GetAttributeNode("name")
'取出這個節(jié)點的屬性名，屬性值
nodeattrname=objattrtofind.nodename
nodeattrvalue=objattrtofind.nodevalue

'刪除一個節(jié)點對象
set objnode=objdom.documentElement.SelectSingleNode("http://people/man") '要刪除的節(jié)點
set objparentnode=objdom.documentElement.SelectSingleNode("http://people") '要刪除的節(jié)點的父節(jié)點
objparentnode.removeChild objnode

'取出一個節(jié)點的字節(jié)點集合
set objnodes=objdom.documentElement.SelectSingleNode("http://people/man").ChildNodes
遍歷這個集合
方法1
for each element in objnodes
response.write element.nodename 字節(jié)點名
response.write element.text 字節(jié)點值
next
方法2
domlength=objnodes.length
for i = 0 to domlength-1
response.write objnodes.childnodes(i).nodename 字節(jié)點名
response.write objnodes.childnodes(i).text 字節(jié)點值
next

'取出一個節(jié)點的屬性集合
set objnodes=objdom.documentElement.SelectSingleNode("http://people/man").GetAttributeNode("name").attributes
遍歷這個集合
for each element in objnodes
response.write element.nodename 屬性名
response.write element.nodevalue 屬性值
next

等能夠熟練的運用xmldom對象來操作xml文件了，就可以享受xmlhttp對象來實現(xiàn)asp下的許多功能了。

------------------------------------------------------------------------------------------

雖然asp只能簡單的操作XML文件，可是對于一般程序開發(fā)者來說就已經(jīng)足夠。
之前，XML語言非常的少接觸，后來慢慢的，發(fā)覺XML在存儲數(shù)據(jù)上有很多的方便。雖然安全性不好（個人認為），可是對于一般的數(shù)據(jù)存儲的確是一個非常不錯的選擇。
今天因為在一個網(wǎng)站上需要用到XML，我在這里就做一些總結(jié)（后期將會用到）：
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
首先，先整理ASP讀取XML文件
default.asp的代碼
<%
dim node,i,nodecount
set Doc = CreateObject("Microsoft.XMLDOM")
Doc.async = false
Doc.load(Server.MapPath("data.xml"))
set root = Doc.documentElement
set nodeLis = root.childNodes
nodeCount = nodeLis.length
For i=1 to nodeCount
set node = nodeLis.nextNode()
set cost = node.attributes.getNamedItem("cost")
%>
第 <%=i%> 條記錄：
<table width="50%" border="1">
<tr>
<td width="43" rowspan="2"><img src="<%=node.selectSingleNode("img").text%>"/></td>
<td width="46">書名</td>
<td width="48">出版社</td>
<td width="42">價格</td>
</tr>
<tr>
<td>
<%=node.selectSingleNode("name").text%>
</td>
<td>
<%=node.selectSingleNode("publisher").text%>
</td>
<td>
<%= cost.text%>
</td>
</tr>
</table>
<%
Next
%>
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
接下來就是Data.xml數(shù)據(jù)內(nèi)容
<?xml version="1.0" encoding="UTF-8"?>
<data>
<book cost="56">
<name>Dreamweaver</name>
<publisher>中國鐵路出版社</publisher>
<img>img/dw.jpg</img>
</book>
<book cost="62">
<name>Flash</name>
<publisher>中國鐵路出版社</publisher>
<img>img/flash.jpg</img>
</book>
<book cost="48">
<name>Firweorks</name>
<publisher>中國鐵路出版社</publisher>
<img>img/fw.jpg</img>
</book>
</data>

上一篇：Microsoft VBScript 運行時錯誤錯誤 '800a0005' 無效的過程調(diào)用或參數(shù): 'chr'

下一篇：ASP 高亮顯示不區(qū)分大小寫的關(guān)鍵字