用户名: 用QQ登录本站
密 码: 注册
验证码:
首页 软件 编程 笑话 知识 公告 日历 计算器 行情 简化版 分站
文明驾车我带头,文明行路我带头,礼貌让座我带头      

[公益] 节省一分零钱 献出一份爱心 温暖世间真情      
广告位招租中
2021年 妇女节 8
2021年 清明节 35
2022年 元 旦 307
2022年 春 节 338
全部 综合数码金融娱乐服务报刊政府机构 推荐 申请 友情  
  • 您现在的位置:首页 >> ASP >> 内容

    ASP处理XML数据的常用函数,读取,转换

    内容摘要: %dim str,arrstr,jsons,xmlstr,parastr = 'xmlmch_id![CDATA[3423342353]]/mch_idnonce_str![CDATA[ibuaiVcKdpRxk43hJA]]/nonce_strsign![CDATA[F766FB383C5BCAB169E566DF43DFG]]/sign/xml'para......

      <%

    dim str,arrstr,jsons,xmlstr,para

    str = "<xml><mch_id><![CDATA[3423342353]]></mch_id><nonce_str><![CDATA[ibuaiVcKdpRxk43hJA]]></nonce_str><sign><![CDATA[F766FB383C5BCAB169E566DF43DFG]]></sign></xml>"

    para = "mch_id=alixixi"



    arrstr = XMLToArr(str)

    response.write arrstr(0) &"<br />"

    response.write GetParaValue(arrstr,"sign") &"<br />"

    response.write server.HTMLEncode(paraToXML(para)) &"<br />"


    '读取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 & "><![CDATA[" & nodeValue & "]]></" & nodeName & ">"

    else

    paraToXML = ""

    end if

    end function


    %>

      版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。


    发布日期:2021/1/21 发布时间:16:28:32 点击:276 录入:齐天大圣
  • 上一篇:asp连接xlsx文件并读取表中的内容
  • 下一篇:在ASP中限制同一表单被多次提交
  • 本类新增
    本类热门文章
    Baidu

    YiJiaCMS V5.00 Build 21.02.02(MSSQL) 闽ICP备05000814号-1
    本空间由景安网络提供,百度云加速提供加速防护
    齐天大圣® 制 作 ©2000-2021