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