8,906
社区成员
发帖
与我相关
我的任务
分享
Set oNode = oDoc.selectSingleNode("//head/ReferenceID")
If Not oNode Is Nothing Then
Response.Write oNode.text
End If
Set oNode = oDoc.selectSingleNode("//body/MerBillNo")
If Not oNode Is Nothing Then
Response.Write oNode.text
End If
<%
Set oDoc = CreateObject("Msxml2.DOMDocument.6.0")
With oDoc
.async = False
.validateOnParse = False
.preserveWhiteSpace = False
.resolveExternals = False
'.setProperty "NewParser", True
.load sXMLFilePath
'或 .loadXML sXMLText
If .parseError.errorCode <> 0 Then
sErrMsg = .parseError.errorCode & "|" & .parseError.srcText & "|" & .parseError.reason
Set oDoc = Nothing
Response.Write sErrMsg
Response.End
End If
End With
Set oNode = oDoc.selectSingleNode("\\head\ReferenceID")
If Not oNode Is Nothing Then
Response.Write oNode.text
End If
Set oNode = oDoc.selectSingleNode("\\body\MerBillNo")
If Not oNode Is Nothing Then
Response.Write oNode.text
End If
Set oNode = Nothing
Set oDoc = Nothing
%>