|
<%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\testASP\ServerXML.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> | 
本类阅读TOP10