日期:2014-05-17 浏览次数:20848 次
<% 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 %>