Article last modified on 2002-1-21
<%Response.Buffer = False%> <html> <head> </head> <body> <% Dim oXML, oXMLError, ReturnValue, x Set oXML = Server.CreateObject("MSXML2.DOMDocument")
' 設置DOMDocument加載資源時是異步加載，還是同步加載： A oXML.async = false ' 設置目的： ' True/False value indicating if the "server-safe" ServerXMLHTTP ' component should be used to load a document to a server B oxml.setProperty "ServerHTTPRequest", true ' 通過HTTP加載資源: C ReturnValue = oXML.Load("http://localhost/asp/ServerXML.xml") ' 或者加載文件資源： D 'ReturnValue = oXML.Load("C:Inetpub estASPServerXML.xml")
' 打出DOMDocument.load的返回值： Response.write "Result of load method is =" & ReturnValue & "<br>" ' 打出DOMDocument加載資源的URL: Response.Write oxml.url & "<br>"
'如果DOMDocument.load方法返回值為FALSE，則打出它的錯誤原因： If ReturnValue = False Then Response.Write "--****************--" & "<br>"
Set oXMLError = oXML.ParseError Response.Write "" & _ oXMLError.ErrorCode & _ " - " & oXMLError.Reason & _ "<br>" Set oXMLError = Nothing
Response.Write "--****************--" & "<br>" End If ' 打出加載的XML文檔的節點個數 For x = 0 to oxml.childNodes.length Response.Write "Node " & x & "." & "<br>" Next
' 打出加載的XML文檔內容： Response.Write "<-- XML Content: -->" & "<br>" & oxml.xml & "<br>" & " --------" Set oXML = Nothing %> </body> </html> |
A ‘ oXML.async = false
B ‘ oxml.setProperty "ServerHTTPRequest", true
這時候，加載會成功。 ReturnValue將會是TRUE。 但是加載到DOMDocument中的XML文檔為空！也就是說，load方法返回的TRUE是一個幌子！ 結果如下所示：