Function GetXmlFile(Condition) Dim Doc:Set Doc = CreateObject("msxml2.FreeThreadedDOMDocument" & MsxmlVersion) Doc.async = false Doc.setProperty "ServerHTTPRequest", true Doc.load(Server.MapPath("路径+文件名")) Dim Node:Set Node = Doc.DocumentElement.SelectSingleNode("label[@name='"&Condition&"']") GetXmlFile = Node.text End Function
参 数:Condition 得到节点条件