28,391
社区成员
发帖
与我相关
我的任务
分享
Set oDoc = CreateObject("Msxml2.DOMDocument")
With oDoc
.async = False
.validateOnParse = False
.preserveWhiteSpace = False
.resolveExternals = False
.load "c:\PaperRules.xml"
If .parseError.errorCode <> 0 Then
sErrMsg = .parseError.errorCode & "|" & .parseError.srcText & "|" & .parseError.reason
Set oDoc = Nothing
Response.Write sErrMsg
Response.End
End If
s = "version=1 ruleCount="
Set oNodes = .selectNodes("//rule")
s = s & oNodes.length
For i = 0 To oNodes.length - 1
Set oSubnodes = oNodes(i).selectNodes("./node()")
For j = 0 To oSubnodes.length -1
s = s & oSubnodes(j).tagName & i & "=" & oSubnodes(j).text & " "
Next
Set oSubnodes = Nothing
Next
Set oNodes = Nothing
Response.Write s
End With
Set oDoc = Nothing
Set oDoc = Nothing
Response.Write sErrMsg
Response.End
End If
s = "version=1 ruleCount="
Set oNodes = .selectNodes("//rule")
s = s & oNodes.length
For i = 0 To oNodes.length - 1
Set oSubnodes = oNodes(i).selectNodes("./node()")
For j = 0 To oSubnodes.length -1
s = s & oSubnodes(j).tagName & i & "=" & oSubnodes(j).text & " "
Next
Set oSubnodes = Nothing
Next
Set oNodes = Nothing
Response.Write s
End With
Set oDoc = Nothing