欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

asp读取xml文件和记数

程序员文章站 2022-03-21 23:21:10
复制代码 代码如下:if isnumeric(id)=false then exit sub strsourcefile&...

复制代码 代码如下:
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