asp读取xml文件

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
        if advertvirtualvalue>=1 then
        xml.childnodes.item(3).text=2
        objxml.save(strsourcefile)
        end if 
    end if 
 set xml=nothing
set objxml =nothing