ASP与XML(二)

XML Parser如何解析XML檔案呢？
　

XML Parser（XMLDOM）用以解析XML檔案，可於IE（client）與 ASP（server）上使用。

載入XML檔案

載入XML檔案時，XML Parser可使用的屬性與方法如下：

l　　　　Load方法：載入一個XML檔案。

l　　　　xml：可取得XML檔案所有內容。

l　　　　parseError.errorCode：可以得知是否載入錯誤。

l　　　　parseError.Line：得知錯誤解析行數。

l　　　　parseError.errorCode：得知錯誤碼，若不等於0表示有錯誤。

l　　　　parseError.reason：得知錯誤解析原因。

l　　　　parseError.Line：得知錯誤解析行數。

l　　　　parseError.srcText：得知錯誤解析文字。

譬如asp程式碼xmldom1.asp如下：

<%

'create the XML doc

Set xmlDoc = CreateObject（"Microsoft.XMLDOM"）



'load the XML doc

XMLFile = Server.MapPath（"books0.xml"）

xmlDoc.Load（XMLFile）

Response.Write "
xmlDoc.parseError.errorCode = " & xmlDoc.parseError.errorCode

Response.Write "
xmlDoc.parseError.Line = " & xmlDoc.parseError.Line

Response.Write "
xmlDoc.parseError.reason = " & xmlDoc.parseError.reason

Response.Write "
xmlDoc.parseError.srcText = " & xmlDoc.parseError.srcText

Response.Write "
xmlDoc.xml = " & xmlDoc.xml

%>

首先使用Set xmlDoc = CreateObject（"Microsoft.XMLDOM"）指令，以使用XML Parser，再使用Load方法以載入一個XML檔案，由parseError.errorCode可以得知是否載入錯誤，若有錯誤，由parseError.Line得知錯誤解析行數，由parseError.reason得知錯誤解析原因，由parseError.Line得知錯誤解析行數，由parseError.srcText得知錯誤解析文字。

載入後，由xmlDoc.xml可取得XML檔案所有內容。

其中所載入的books0.xml檔案內容如下：

<?xml version="1.0" encoding="BIG5" standalone="yes" ?>　

<bookstore>

　<book genre="網站設計">

　　<title>ASP網站熱門應用技術</title>

　　<author>

　　　<first-name>世雄</first-name>

　　　<last-name>周</last-name>

　　</author>

　　<price>580</price>

　　<publisher>華彩</publisher>

　</book>

　<book genre="網站設計">

　　<title>微軟熱門Web技術速成班</title>

　　<author>

　　　<first-name>世雄</first-name>

　　　<last-name>周</last-name>

　　</author>

　　<price>450</price>

　　<publisher>松崗</publisher>

　</book>

　<book genre="網頁設計">

　　<title>動態網頁設計 99 招 PART 2</title>

　　<title>動態網頁設計 99 招 PART 3</title>

　　<author>

　　　<first-name>世雄</first-name>

　　　<last-name>周</last-name>

　　</author>

　　<price>430</price>

　　<publisher>第三波</publisher>

　</book>

</bookstore>

解析XML檔案

解析XML檔案時，XML Parser可使用的屬性與方法如下：

n　　　　　　selectSingleNode（"xxx"）：由此點往下找尋名稱為xxx的單一節點。

n　　　　　　selectNodes（"yyy"）：由此點往下找尋所有名稱為yyy的節點。

n　　　　　　length：節點數目。

n　　　　　　Attributes.getNamedItem（"zzz"）：某一節點Attribute為zzz的值，譬如” <book genre="網頁設計">”中genre之Attributes.getNamedItem（"genre"）值為"網頁設計"。

n　　　　　　nodeTypedValue：某一節點的值。

譬如asp程式碼如下：

<%

'get the node

Set xml_node = xmlDoc.selectSingleNode（"bookstore"）



'find the book nodes

Set xml_subNodes = xml_node.selectNodes（"book"）



Response.Write "
xml_subNodes.length = " & xml_subNodes.length

For i = 0 To xml_subNodes.length - 1



'find the genre attribute and get the value

Set xml_subNode = xml_subNodes（i）.Attributes.getNamedItem（"genre"）

Response.Write "<P>genre = " & xml_subNode.nodeValue

　

　　　　　　　'find the title nodes

　　　　　Set xml_subNode = xml_subNodes（i）.selectNodes（"title"）

　

　　　　　　　'iterate through the node list

　　　　　For j = 0 To xml_subNode.length - 1

　　　　　 Response.Write "
title= " & xml_subNode（j）.nodeTypedValue

　　　　　Next　

　

　　　　　　　'find the author nodes

　　　　　Set xml_subNode1 = xml_subNodes（i）.selectSingleNode（"author"）

　

　　　　 'find the first-name nodes

　　　　　Set xml_subNode2 = xml_subNode1.selectSingleNode（"first-name"）

　　　firstname =　xml_subNode2.nodeTypedValue

　

　　　　　　　'find the last-name nodes

　　　　　Set xml_subNode2 = xml_subNode1.selectSingleNode（"last-name"）

　　　lastname = xml_subNode2.nodeTypedValue

　　　 Response.Write "
author = " & lastname & firstname

　

　　　　　　　'find the publisher nodes

　　　　　Set xml_subNode = xml_subNodes（i）.selectSingleNode（"publisher"）

　　　 Response.Write "
publisher = " & xml_subNode.nodeTypedValue

　

　　　　　　　'find the price nodes

　　　　　Set xml_subNode = xml_subNodes（i）.selectSingleNode（"price"）

　　　 Response.Write "
price = " & xml_subNode.nodeTypedValue

Next

%>

首先使用selectSingleNode（"bookstore"）由起點往下找尋名稱為bookstore的單一節點，接著使用selectNodes（"book"）由此點往下找尋所有名稱為book的節點。

由length得知找到的節點數目。

然後由Attributes.getNamedItem（"genre"）取得此節點Attribute為genre的值。

再由selectNodes（"title"）找尋名稱為title的節點，接著由nodeTypedValue取得此節點的值。依序由找尋名稱為author、first-name、last-name、publisher、price節點的值。

由For i = 0 To xml_subNodes.length - 1...Next取得所有book節點的值。

新增加節點

新增加XML檔案的節點時，XML Parser可使用的屬性與方法如下：

l　　　　loadXML（“yyy”）：新增加XML標記“yyy”。

l　　　　createElement（"xxx"）：新增加名稱為xxx的XML節點。

l　　　　documentElement.appendChild（xml_node）：將新增加的節點加入XML文件。

l　　　　documentElement.lastChild：移到最後節點處。

l　　　　createAttribute（"zzz"）：新增加名稱為zzz的Attribute。

l　　　　Text：設定Attribute的值。

l　　　　Attributes.setNamedItem（xml_node）：將新增加的Attribute加入XML文件。

譬如asp程式碼如下：

<%

'create the XML doc

Set xmlDoc = CreateObject（"Microsoft.XMLDOM"）



'load the XML doc

XMLFile = Server.MapPath（"log.xml"）

xmlDoc.Load（XMLFile）



'check if xml exists in the file

If xmlDoc.xml = "" Then

Call xmlDoc.loadXML（"<root></root>"）

End If

　

'create the new log node

Set xml_node = xmlDoc.createElement（"log"）

　

'add the node to the document

Set xml_node = xmlDoc.documentElement.appendChild（xml_node）

　

'get the new node

Set xml_logNode = xmlDoc.documentElement.lastChild

　　　　　　

'create the new user atribute

Set xml_node = xmlDoc.createAttribute（"User"）

xml_node.Text = "jack"　　　　

'add the attribute to the list

Call xml_logNode.Attributes.setNamedItem（xml_node）

　

'create the new date atribute

Set xml_node = xmlDoc.createAttribute（"Date"）

xml_node.Text = CStr（date）　　　　

'add the attribute to the list

Call xml_logNode.Attributes.setNamedItem（xml_node）

　

Set fs = CreateObject（"Scripting.FileSystemObject"）

Set a = fs.CreatetextFile（XMLFile, True）

a.Write xmlDoc.xml

a.Close

　

Response.Redirect "log.xml"

%>

於瀏覽器執行結果如下，顯示此新產生的XML檔案。

首先使用Set xmlDoc = CreateObject（"Microsoft.XMLDOM"）指令，以使用XML Parser，再使用Load方法以載入一個XML檔案log.xml，若xmlDoc.xml為空字串表示無內容，則由xmlDoc.loadXML（"<root></root>"）加入<root></root>標記。

接著由 xmlDoc.createElement（"log"）以新增加名稱為log的XML節點，由documentElement.appendChild（xml_node）將新增加的節點加入XML文件，再由documentElement.lastChild移到最後節點處以再加以新的節點。

由createAttribute（"User"）新增加名稱為User的Attribute，由Text設定Attribute的值，由Attributes.setNamedItem（xml_node）將新增加的Attribute加入XML文件。

依序加入User、Date的Attribute。

最後使用Scripting.FileSystemObject之CreatetextFile方法，將此XML文件儲存成一個XML檔案test1.xml，最後Response.Redirect重新導向到此新產生的XML檔案。