ASP XMLDom在服务器端操作XML文件的主要方法和实现

对于小数据量，xml文件在检索更新上于access有很多优势。

我曾经测试过不用数据库，把网站的会员信息，商品数据信息，交易信息，网站定制信息全部存放在三个xml文件中，运行结果十分正常，感觉上比数据库快多了，不过没有作测试，不能确定。

下面说一下创建，查询，修改等对xml操作的主要方法

程序代码

no.1--建立一个xml数据库data.xml

<?xml version="1.0"?>
<records>
<record>
<name>caca</name>
<qq>154222225</qq>
<email>[e-mail]</email>
</record>
<records>

no.2--建立对象createobject
建立data.xml的对象先
set xmldoc=server.createobjcet("microsoft.xmldom")
xmldoc.load(server.mappath("data.xml")

no.3--选定节点selectnode
你想操作哪个node,必须定位到这个节点是不是,先看看这个data.xml有几个node??
用一个递归函数搞定:

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
用这个函数后,可以看到这个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("//name")

no.4--给节点赋值(修改节点的值)
学会了定位节点,利用其属性,就可以修改或者赋值了
例如,把<name>的值caca改为wawa
xmldoc.selectsinglenode("//name").text="wawa"
xmldoc.save(server.mappath("data.xml"))
搞定!
no.5--创建新的节点createnewnode
用createelement或者createnode("","","")
例如:在record下新建个<age>,只需要一句就搞定:
xmldoc.selectsinglenode("//record").appendchild(xmldoc.createelement("<age>"))
给<age>赋值
xmldoc.selectsinglenode("//age").text="20"
xmldoc.save(server.mappath("data.xml"))
搞定!
no.6--删除一个节点deletenode
你必须明确你想删除的这个节点的父节点,以及这个节点的特征
例如:删除<qq>节点
xmldoc.selectsinglenode("//record").removechild(xmldoc.selectsinglenode("//qq"))
例如:删除那个<name>=caca的<record>
xmldoc.selectsinglenode("//records").removechild(xmldoc.selectsinglenode("//record[name='caca']))
xmldoc.save(server.mappath("data.xml"))
搞定!
只有能熟练这6条code,用asp控制xml数据库,也就差不多了...
========================================================

'创建dom对象
set objdom=server.createobject("microsoft.xmldom")

'取得xml数据
'方法1 取得xml文件的xml数据
objdom.load("c:\test.xml")
'方法2 取得xml数据串的数据
objdom.loadxml("<people><man name="sd"/></people>")

'创建一个节点对象
set newnode=objdom.createelement("people")
'给这个节点赴值
newnode.text="人"
' 给这个节点添加属性
set newattribute=objdom.createnode("attribute","name","")
newattribute.text= "张三"
newnode.setattributenode newattribute
'给这个节点添加子节点
set newnodechild=objdom.createelement("address")
newnode.appendchild newnodechild
'保存这个节点对象
objdom.appendchild newnode
objdom.save("c:\test.xml")

'查找一个节点对象
set objtofind=objdom.documentelement.selectsinglenode("//people/man")
'取出这个节点对象的 节点名，节点值，某个属性值，和全部的xml
nodename=objtofind.nodename
nodevalue=objtofind.text
objtofind.getattributenode("name").nodevalue '属性名为name的属性值

'取出一个属性节点对象
set objattrtofind=objdom.documentelement.selectsinglenode("//people/man"). getattributenode("name")
'取出这个节点的属性名，属性值
nodeattrname=objattrtofind.nodename
nodeattrvalue=objattrtofind.nodevalue

'删除一个节点对象
set objnode=objdom.documentelement.selectsinglenode("//people/man") '要删除的节点
set objparentnode=objdom.documentelement.selectsinglenode("//people") '要删除的节点的父节点
objparentnode.removechild objnode

'取出一个节点的字节点集合
set objnodes=objdom.documentelement.selectsinglenode("//people/man").childnodes
遍历这个集合
方法1
for each element in objnodes
response.write element.nodename 字节点名
response.write element.text 字节点值
next
方法2
domlength=objnodes.length
for i = 0 to domlength-1
response.write objnodes.childnodes(i).nodename 字节点名
response.write objnodes.childnodes(i).text 字节点值
next

'取出一个节点的属性集合
set objnodes=objdom.documentelement.selectsinglenode("//people/man").getattributenode("name").attributes
遍历这个集合
for each element in objnodes
response.write element.nodename 属性名
response.write element.nodevalue 属性值
next

等能够熟练的运用xmldom对象来操作xml文件了，就可以享受xmlhttp对象来实现asp下的许多功能了。

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

虽然asp只能简单的操作xml文件，可是对于一般程序开发者来说就已经足够。
之前，xml语言非常的少接触，后来慢慢的，发觉xml在存储数据上有很多的方便。虽然安全性不好（个人认为），可是对于一般的数据存储的确 是一个非常不错的选择。
今天因为在一个网站上需要用到xml，我在这里就做一些总结（后期将会用到）：
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
首先，先整理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数据内容
<?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>