• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    asp读取xml文件和记数

    复制代码 代码如下:
    if isnumeric(id)=false then exit sub
     strSourceFile = Server.MapPath(dataxml"/Advertisement/"id"/adv.xml")
     Set objXML =Server.CreateObject("Microsoft.XMLDOM")  '创建一个XML对像 
     objXML.load(strSourceFile)  '把XML文件读入内存      
       Set xml=objXML.documentElement.selectSingleNode("Advertisement")  '选取节点 Advertisement     
        ADid=xml.childNodes.item(0).text
        ADname=xml.childNodes.item(1).text
        ADintro=xml.childNodes.item(2).text
        ADact=xml.childNodes.item(3).text
        ADclass=xml.childNodes.item(4).text
        Pids=xml.childNodes.item(5).text
        Picid=xml.childNodes.item(6).text
        ADurl=xml.childNodes.item(7).text
        ADwindow=xml.childNodes.item(8).text
        ADshow=xml.childNodes.item(9).text
        ADshows=xml.childNodes.item(10).text
        ADclick=xml.childNodes.item(11).text
        ADclicks=xml.childNodes.item(12).text
        ADtime=xml.childNodes.item(13).text
        ADstoptime=xml.childNodes.item(14).text
        ADstarttime=xml.childNodes.item(15).text
        ADxslei=xml.childNodes.item(16).text
        ADcss=xml.childNodes.item(17).text
        Picurl=xml.childNodes.item(18).text
        ADipkg=xml.childNodes.item(19).text 
        xml.childNodes.item(9).text=xml.childNodes.item(9).text+1  '' 显示次数加 1 
        objXML.save(strSourceFile)
    Set xml=nothing
    Set objXML =nothing

    上一篇:用xslt+css让RSS显示的跟网页一样漂亮
    下一篇:本站用的rss输出
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    asp读取xml文件和记数 asp,读取,xml,文件,和,记数,