Function xml2array(xmldoc,node)
Dim objdoc,i
set objdoc=Server.CreateObject("Microsoft.XMLDOM")'msxml2.FreeThreadedDOMDocument.3.0
objdoc.async = false
objdoc.LoadXml(xmldoc)
Dim objNodeList
Dim Counters()
If Isnull(objdoc.selectSingleNode(node)) Then
Redim Preserve Counters(0)
Counters(0) = "错误：非法XML格式数据"
Else
set objNodeList = objdoc.selectSingleNode(node).childNodes
For i = 0 To (objNodeList.length - 1)
Redim Preserve Counters(i)
Counters(i)= objNodeList.Item(i).text
Next
set objNodeList = Nothing
End If
xml2array = Counters
set objdoc = Nothing
End Function