4当前位置:网页制作ASP教程-ASP处理XML数据的常用函数
4网页制作分类
CSS | HTML
FrontPage | DreamWeaver
JavaScript | ASP
.Net | PHP
JSP | XML
数据库 | PhotoShop
FireWorks | Flash
视频 | 其它
4赞助商链接
4最新网页制作
·ASP在线解压WinRAR文件操作的代码实例
·ASP处理XML数据的常用函数
·ASP高亮显示字符串中指定字符
·ASP中Cint和Int的区别
·ASP中Cint与Clng的区别
·ASP中set与dim的区别
·ASP延迟指定时间执行操作
·ASP数组随机排序
·ASP列出程序中所有Session变量
·常用的ASP获取时间操作代码
4热门网页制作
·ACCESS多表查询技巧
·IIS安装、发布及使用详解
·动态生成表单
·防止刷新重复提交及后退的方法
·ASP实现文章浏览次数加1
·多行多列显示图片
·网站地图生成代码
·详解后台管理批量操作(ASP+Script)
·ASP判断一个字符是否为汉字的两种方法
·计算页面加载时间
4相关网页制作
·实现单根目录多站跳转的ASP代码
·ASP实现防盗链
·用XMLHTTP解析图片地址并保存
·ASP延迟指定时间执行操作
·ASP使用变量的方法
·ASP验证域名是否合法
·ASP编写的IP所在地搜索类
·ASP实现多域名同一空间的处理实例
·AJAX无刷新验证用户名是否存在之一
·ASP实现防盗链
ASP处理XML数据的常用函数
类别:ASP教程    来源:网络    时间:2022/8/9    贴士:推荐给好友
收藏本页 8 
  一组ASP处理XML数据的常用函数,可以将XML转换为请求参数格式,读取XML节点名的值,还有一个函数是将请求参数转换为XML:
<%
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=zzsky"
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
%>
·上一篇:ASP高亮显示字符串中指定字符
·下一篇:ASP在线解压WinRAR文件操作的代码实例
本站部分内容收集整理于网络,仅用于学习,不存在商业目的,如有涉及版权等问题请联系站长,本站将在第一时间内进行处理!
Copyright © 2007-2010 Zzsky.Cn  站长天空  网站制作维护:可乐猫  QQ:8127544(请注明来意)
设为首页  加入收藏  联系站长  友情链接  闽ICP备12017729号

闽公网安备 35010302000430号