ASP XML操作類，想學(xué)習(xí)xml操作的朋友可以參考下。

ASP通過XMLDom在服務(wù)器端操作XML文件的主要方法和實現(xiàn) 
對于小數(shù)據(jù)量，xml文件在檢索更新上于ACCESS有很多優(yōu)勢。 

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

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

‘創(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(”//people/man”) 
‘取出這個節(jié)點對象的 節(jié)點名，節(jié)點值，某個屬性值，和全部的xml 
nodename=objtofind.nodename 
nodevalue=objtofind.text 
objtofind.GetAttributeNode(”name”).Nodevalue '屬性名為name的屬性值 

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

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

‘取出一個節(jié)點的字節(jié)點集合 
set objnodes=objdom.documentElement.SelectSingleNode(”//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(”//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下的許多功能了。 

re:[轉(zhuǎn)]ASP通過XMLDom在服務(wù)器端操作XML文件的主要方法和實現(xiàn) 
飛飛，你怎么不介紹一下@的用法，沒了這個，很多事不方便。 
xml，有人也稱之為數(shù)據(jù)壓縮技術(shù)，顧名思義，xml是可以充當(dāng)數(shù)據(jù)庫來用。 
所以，我們可以把xml看成是“小型的數(shù)據(jù)庫”。為什么說是小型呢？因為xml本身的功能及應(yīng)用方便，與數(shù)據(jù)庫還是存在著一定的差別。那我們?yōu)槭裁匆褂脁ml呢？因為，有時候我們的一些應(yīng)用程序雖然進行數(shù)據(jù)存取，但是，如果使用數(shù)據(jù)庫的話，顯行有些不夠靈活，方便。這個時候，我們就應(yīng)該結(jié)合xml來使用。 
xml既然可以看成是數(shù)據(jù)庫，那它的第一步工作就當(dāng)然是創(chuàng)建鏈接對象了。（以ASP+xml為例） 
創(chuàng)建方法同鏈接數(shù)據(jù)庫一樣，用server.createobject為創(chuàng)建。 
方法如下： 
set xmlDoc= Server.CreateObject(”microsoft.xmldom”) 
xmlDoc.async=false 
xmldata=數(shù)據(jù)源絕對路徑 
xmlDoc.load xmldata '這里使用load方法進行鏈接 

既于xml的數(shù)據(jù)格式是比較人性化的，可以由于人為或其它的原因，引起數(shù)據(jù)格式不合法，這時如果繼續(xù)使用的話，會引起程序出程，這樣，我們往往在創(chuàng)建好鏈接對象后進行數(shù)據(jù)格式驗證。 
方法如下： 
if xmlDoc.parseError.errorCode<>0 then 
….錯誤處理 


<% 
‘—————————————————————- 
‘程序簡介: 完成asp語言對XML文檔中指定節(jié)點文本的增加、刪除、修改、查看 
‘入口參數(shù): 無 
‘出口參數(shù): 無 
‘———————————————— 
‘函數(shù)名字：ConnectXml() 
‘入口參數(shù): filename 需要連接或打開的xml文件名 
‘出口參數(shù): 無 
‘返回值 ：ConnectXml=0，XMLMorntekDocument就是一個成功裝載XML文檔的對象了。 
‘ ConnectXml<>0,則打印錯誤信息strError 
‘———————————————— 
dim XMLMorntekDocument 

function ConnectXml(filename) 
dim strSourceFile 
strSourceFile = Server.MapPath(filename) 
Set XMLMorntekDocument = Server.CreateObject(”Microsoft.XMLDOM”) 
XMLMorntekDocument.async = false 
XMLMorntekDocument.load(strSourceFile) 
ConnectXml=XMLMorntekDocument.parseerror.errorcode 
if XMLMorntekDocument.parseerror.errorcode<>0 then 
strError=”<h2>error”&XMLMorntekDocument.parseerror.errorcode&”</h2>” 
strError=strError&XMLMorntekDocument.parseerror.reason&”<br>” 
strError=strError&XMLMorntekDocument.parseerror.url&”<br>” 
strError=strError&XMLMorntekDocument.parseerror.line&”<br>” 
strError=strError&XMLMorntekDocument.parseerror.filepos&”<br>” 
strError=strError&XMLMorntekDocument.parseerror.srcText&”<br>” 
response.write strError 
end if 
end function 

‘———————————————— 
‘函數(shù)名字：CloseXml() 
‘入口參數(shù): 無 
‘出口參數(shù): 無 
‘———————————————— 
function CloseXml(XMLMorntekDocument) 
if IsObject(XMLMorntekDocument) then 
set XMLMorntekDocument=nothing 
end if 
end function 

‘———————————————— 
‘函數(shù)名字：SelectXmlNodeText(elementname) 
‘入口參數(shù): elementname 元素的名字 
‘出口參數(shù): 無 
‘———————————————— 
function SelectXmlNodeText(elementname) 
elementname=”//”&elementname 
temp=XMLMorntekDocument.selectSingleNode(elementname).text 
selectXmlNodeText= server.htmlencode(temp) 

end function 

‘———————————————— 
‘函數(shù)名字：InsertXmlNodeText(befelementname,elementname,elementtext) 
‘入口參數(shù): elementname 插入的元素的名字 
‘ befelementname在此元素的名字前面插入元素 
‘ elementtext 插入的元素的文本 
‘出口參數(shù): 無 
‘———————————————— 
function InsertXmlNodeText(befelementname,elementname,elementtext) 
dim befelement,element 
set befelement=XMLMorntekDocument.selectSingleNode(”//”&befelementname) 
set element= XMLMorntekDocument.createelement(elementname) 
befelement.insertBefore element,befelement.firstchild 
element.text=elementtext 
end function 

‘———————————————— 
‘函數(shù)名字：UpdateXmlNodeText(elementname,newelementtext) 
‘入口參數(shù): elementname 元素的名字 
‘ newelementtext元素的新文本 
‘出口參數(shù): 無 
‘———————————————— 
function UpdateXmlNodeText(elementname,newelementtext) 
dim element 
set element=XMLMorntekDocument.selectSingleNode(”//”&elementname) 
element.text=newelementtext 
end function 

‘———————————————— 
‘函數(shù)名字：DeleteXmlNodeText(elementname) 
‘入口參數(shù): elementname 元素的名字 
‘出口參數(shù): 無 
‘———————————————— 
function DeleteXmlNodeText(elementname) 
XMLMorntekDocument.selectSingleNode(”//”&elementname).text =”" 
end function 
%> 
____________________ 

本文未經(jīng)測試，文章可行度未知。