以下讨论的是和XML 读取 转换相关的ASP处理XML数据的常用函数，读取，转换 教程文章，内容是本站精心挑选整理的教程，希望对广大的网友给到帮助,下面是详细内容：

开发时用到的一组ASP处理XML数据的常用函数。将XML转换为 请求参数格式，读取XML节点名的值，还有一个函数是将  【请求参数】 转换为 XML

[code]<%
dim str,arrstr,jsons,xmlstr,para

str = ""
para = "mch_id=alixixi"

arrstr = XMLToArr(str)
response.write arrstr(0) &"
"
response.write GetParaValue(arrstr,"sign") &"
"
response.write server.HTMLEncode(paraToXML(para)) &"
"

'读取XML节点名的值
private function GetParaValue(byval paraArr, byval paraName)
    dim i
    GetParaValue = ""
    for i = 0 to Ubound(paraArr)
        if left(paraArr(i), len(paraName) + 1) = paraName & "=" then
            GetParaValue = mid(paraArr(i), len(paraName) + 2)
            exit function
        end if
    next
end function

'将XML转换为 请求参数格式
'格式：mch_id=1527172451,nonce_str=ibuaiVcKdpRxkhJA
private function XMLToArr(byval xmlDoc)
    dim paraArr(),objXml,objParent,i
    Set objXml = Server.CreateObject("MSXML2.DOMDocument")
    objXml.resolveExternals = false
    objXml.loadxml xmlDoc
    set objParent = objXml.SelectNodes("//xml")
    if objParent.length > 0 then
        redim paraArr(objParent(0).childNodes.length - 1)
        for i = 0 to objParent(0).childNodes.length - 1
            paraArr(i) = objParent(0).childNodes(i).nodeName & "=" & objParent(0).childNodes(i).text
        next
    end if
    XMLToArr = paraArr
end function

'将  【请求参数】 转换为 XML
private function paraToXML(byval paraItem)
    dim nodeName,nodeValue
    if instr(paraItem, "=") > 0 then
        nodeName = mid(paraItem, 1, instr(paraItem, "=") - 1)
        nodeValue = mid(paraItem, instr(paraItem, "=") + 1)
        paraToXML = "<" & nodeName & ">"
    else
        paraToXML = ""
    end if
end function

%>[/code]

关于ASP处理XML数据的常用函数，读取，转换的内容写到这里就结束啦，您可以收藏本页网址http://www.alixixi.com/biancheng/ a/2019030598592.shtml方便下次再访问哦。