日期:2014-05-17 浏览次数:20978 次
<%
Set oDoc = CreateObject("Msxml2.DOMDocument")
With oDoc
.async = False
.validateOnParse = False
.preserveWhiteSpace = False
.resolveExternals = False
.load Server.MapPath("vb.xml")
If .parseError.errorCode <> 0 Then
sErrMsg = .parseError.errorCode & "|" &_
.parseError.srcText & "|" & .parseError.reason
Response.Write sErrMsg
Response.End
End If
End With
Set ndfd = oDoc.selectNodes("//field")
Response.Write ndfd.length
Set oDoc = Nothing
%>