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