28,391
社区成员
发帖
与我相关
我的任务
分享
<%
set d= createobject("msxml2.domdocument")
d.async = False
d.validateOnParse = False
d.preserveWhiteSpace = False
d.resolveExternals = False
d.load "c:\test.xml"
If d.parseError.errorCode <> 0 Then
Response.Write d.parseError.errorCode & "|" & d.parseError.srcText & "|" & d.parseError.reason
Response.End
set d = Nothing
End If
set n = d.selectNodes("//book")
for each node in n
for i = 0 to node.attributes.length - 1
Response.write node.attributes(i).name & "=" & node.attributes(i).value & " "
next
Response.write "<p>"
next
set d = Nothing
%>