| 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 (责任编辑：admin) |
